Z
zzutrain
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟最近看到网上高手提供的字符串加密原程序, 不清楚算法的原理(或者这种算法的名称)
所以不能论证所有的字符串都可以正确的加解密. 不知道有没有高手能给些指点.
给出此加密算法的出处, 关于该算法的文献
const
C1 =23456;
C2 =45678;
EN_KEY=56789;
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:='';
for I := 1 to Length(S) do begin
Result :=Result+ Chr(Ord(S) xor (Key shr 8));
Key := (Ord(Result) + Key) * C1 + C2;
end;
end;
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:= '';
for I := 1 to Length(S) do begin
Result :=Result+ Chr(Ord(S) xor (Key shr 8));
Key := (ord(S) + Key) * C1 + C2;
end;
end;
所以不能论证所有的字符串都可以正确的加解密. 不知道有没有高手能给些指点.
给出此加密算法的出处, 关于该算法的文献
const
C1 =23456;
C2 =45678;
EN_KEY=56789;
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:='';
for I := 1 to Length(S) do begin
Result :=Result+ Chr(Ord(S) xor (Key shr 8));
Key := (Ord(Result) + Key) * C1 + C2;
end;
end;
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:= '';
for I := 1 to Length(S) do begin
Result :=Result+ Chr(Ord(S) xor (Key shr 8));
Key := (ord(S) + Key) * C1 + C2;
end;
end;