function StringDecrypt(mStr: string; mKey: string='password'): string; var I, J: Integer; begin J := 1; Result := ''; // mStr := DisplayToString(mStr); for I := 1 to Length(mStr) do begin Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J])); if J + 1 <= Length(mKey) then Inc(J) else J := 1; end; end; { StringDecrypt }
比如y=ax+b,x为原密码,y为加密的密码,不过你要记住这个方程,要不就写个解密软件
还原:chr
对字符操作
就不需要那么复杂的MD5或者DES等加密算法了
你就直接写个简单点的
每位取ASCII
然后加一个常数密码存如数据库的时候就加密后再存你也不用写解密算法
当它登录的时候把输入的密码同样的算法加密
和数据库里信息注册时候加密的是否一致就可以了
pwdcompare解密
var
I, J: Integer;
begin
J := 1;
Result := '';
// mStr := DisplayToString(mStr);
for I := 1 to Length(mStr) do
begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else
J := 1;
end;
end; { StringDecrypt }