// Delphi 7
function Decrypt(pr: string): string;
var
i: Integer;
Temp: string;
begin
for i := 1 to Length(pr) do begin
Temp := Temp + Chr(Ord(pr[i]) - 1);
end;
Decrypt := Temp;
end;
Код:
// Java
public String InDecrypt(String pr){
String Temp;
String Chr;
String Ord;
for (int i = 1; i < pr.length(); i++) {
Ord=(new StringBuffer()).append((char)pr[i]).append().toString;
Chr=(char)Ord;
Temp = Temp+Chr;
}
return Temp;
}
function Decrypt(pr: string): string; var i: Integer; Temp: string; begin for i := 1 to Length(pr) do begin Temp := Temp + Chr(Ord(pr[i]) - 1); end; Decrypt := Temp; end;
как то так
Цитата:
public String Decrypt(String pr)
{
int i=1;
String Temp;
for (;i<pr.length();i++)
{
Temp+= 0x+pr[i];
}
return(Temp);
}