求一个解密的算法 (50分)

  • 主题发起人 主题发起人 8541051
  • 开始时间 开始时间
8

8541051

Unregistered / Unconfirmed
GUEST, unregistred user!
我上次我在论坛里问了一个加解问题,得到一个加密的算法。本人基础太差没办法
根据那个算法写出解密过程。求高手帮帮忙!根据下面的加密代码写出解密的函数!
unit crypt;

interface
USES
Classes;
const
C1 = 52845;
C2 = 22719;

function Encrypt( S: String
Key: Word): String;

implementation

function Encrypt( S: String
Key: Word): String;
var
I: Integer;
j: Integer;
begin
Result := S;
for I := 1 to Length(S) do
begin
Result := char(byte(S) xor (Key shr 8));
Key := (byte(Result) + Key) * C1 + C2;
end;
s:=Result;
Result:='';
for i:=1 to length(s) do
begin
j:=Integer(s);
Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26));
end;
end;

end.
 
你先等一下。。。马上回复
 
function Decrypt( S: String
Key: Word): String;
var
I: Integer;
j: Integer;
begin
result:='';
for i:=1 to (length(s) div 2) do
begin
j:=(Integer(s[2*i-1])-65)*26;
j:=j+(Integer(s[2*i])-65);
result:=result + Char(j);
end;
s:=result;
for I := 1 to Length(S) do
begin
Result := char(byte(S) xor (Key shr 8));
Key := (byte(S) + Key) * C1 + C2;
end;
end;
 
如果可行马上给分!谢谢chobits老大
 
接受答案了.
 
后退
顶部