已知解密函数源代码，求加密函数源代码。 ( 积分: 100 )

J

jxgxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-25

• #1

function JieMi(Nr: string): string;
var
Text: PChar;
i: Integer;
begin
Text := Pchar(Nr);
for i := 0 to length(Nr) - 1 do
begin
Text := Chr(Ord(Text) - (i + 1));
end;
Result := Text;
end;

求相关加密函数源代码。

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-25

• #2

恒等式变形

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-25

• #3

function JiaMi(Nr: string): string;
var
Text: PChar;
i: Integer;
begin
Text := Pchar(Nr);
for i := 0 to length(Nr) - 1 do
begin
Text := Chr(Ord(Text) + (i + 1)); //+
end;
Result := Text;
end;

 

J

jxgxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-20

• #4

接受答案了.