duvida encode

[bosnia]

tenho este codigo em deplhi para encriptar uma palavra passe

var
i:Integer;
begin
{encode}
S := edit1.text;
For i:=1 to ord(s[0]) do
c[i] := 23 Xor c[i];
Label1.Caption := s;
end;

preciso de passar isto para java alguem sabe?

Edited July 16, 2015 at 09:25 AM by pessantiago

[bosnia]

RESOLVIDO

http://lifeofpentester.blogspot.pt/2014/03/xor-encryption-decryption-java-source.html