维
维生素c
Unregistered / Unconfirmed
GUEST, unregistred user!
可以给出常用的字符串操作函数的说明吗？
传
传说中的菜鸟
Unregistered / Unconfirmed
GUEST, unregistred user!
做个MD5，ini中不存明码，存MD5值
代码参看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1731696
（借花献佛^_^）
代码参看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1731696
（借花献佛^_^）
P
plzw
Unregistered / Unconfirmed
GUEST, unregistred user!
简单的加密
你可以自己写
比如说，你在加密的时候将密码字串的每一位的ASCII码加2，保存在Ini中
解密的时候再减2还原
当然可以有更复杂的加密算法
你可以自己写
比如说，你在加密的时候将密码字串的每一位的ASCII码加2，保存在Ini中
解密的时候再减2还原
当然可以有更复杂的加密算法
维
维生素c
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的兄弟，就是您说的那样加密，可以给出源码吗？只要主要部分的就可以了啊！谢谢！
P
plzw
Unregistered / Unconfirmed
GUEST, unregistred user!
我手边没有Delphi，所以没有办法写、调试。
干讲一下吧：
比方说密码是12345
你的加密程序取出每一位进行ASCII码加2的运算
const
PasswordMaxLength = 5;
begin
for I := 0 to PasswordMaxLength -1 do
begin
//这里对每一位进行加密处理就可以了。
end;
//执行完之后12345的ASCII码原本是31,32,33,34,35，加密后就是33,34,35,36,37
//也就变成了34567，你将34567保存到ini文件中，程序加载的时候再解密把ASCII码减2就可以了
end;
干讲一下吧：
比方说密码是12345
你的加密程序取出每一位进行ASCII码加2的运算
const
PasswordMaxLength = 5;
begin
for I := 0 to PasswordMaxLength -1 do
begin
//这里对每一位进行加密处理就可以了。
end;
//执行完之后12345的ASCII码原本是31,32,33,34,35，加密后就是33,34,35,36,37
//也就变成了34567，你将34567保存到ini文件中，程序加载的时候再解密把ASCII码减2就可以了
end;
D
dcshi2001
Unregistered / Unconfirmed
GUEST, unregistred user!
我给个简单加密的原码给你:
Function TForm1.Check():Boolean
var
Temp
char;
Name:string;
c:char;
i,Long,Pass:integer;
begin
Pass:=0;
Name:=edit1.Text;
long:=length(Name);
for i:=1 to Long do
begin
temp:=pchar(copy(Name,i,1));
c:=temp^;
Pass:=Pass＋ord(c); //将用户名每个字符转换为ASCII码后相加。
end;
if StrToInt(Edit2.Text)=pass then //密码通过
begin
Result:=True;
PName:=Name;
PPass:=Pass;
end
else Result:=False;
end;
Function TForm1.Check():Boolean
var
Temp
char;Name:string;
c:char;
i,Long,Pass:integer;
begin
Pass:=0;
Name:=edit1.Text;
long:=length(Name);
for i:=1 to Long do
begin
temp:=pchar(copy(Name,i,1));
c:=temp^;
Pass:=Pass＋ord(c); //将用户名每个字符转换为ASCII码后相加。
end;
if StrToInt(Edit2.Text)=pass then //密码通过
begin
Result:=True;
PName:=Name;
PPass:=Pass;
end
else Result:=False;
end;
传
传说中的菜鸟
Unregistered / Unconfirmed
GUEST, unregistred user!
我不是贴了
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1731696
吗？
里面有代码啊。。。仔细看看。。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1731696
吗？
里面有代码啊。。。仔细看看。。
维
维生素c
Unregistered / Unconfirmed
GUEST, unregistred user!
对了，顺便问一下有没有DELPHI如何操作INI文件的说明啊？
P
plzw
Unregistered / Unconfirmed
GUEST, unregistred user!
uses
IniFiles;
var
ini: TIniFile;
begin
ini := TIniFile.Create('F:/ini.ini');
//读取用ini.ReadString要是Integer类型的就用ReadInteger...
//写入用ini.WriteString等
ini.Free;
end;
IniFiles;
var
ini: TIniFile;
begin
ini := TIniFile.Create('F:/ini.ini');
//读取用ini.ReadString要是Integer类型的就用ReadInteger...
//写入用ini.WriteString等
ini.Free;
end;
维
维生素c
Unregistered / Unconfirmed
GUEST, unregistred user!
OK.....
ini在一个单元里啊。
我看到一个blockread()函数
怎么看不懂他的用法呢？
ini在一个单元里啊。
我看到一个blockread()函数
怎么看不懂他的用法呢？
维
维生素c
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。