J
jxgxy
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
求相关加密函数源代码。
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;
求相关加密函数源代码。