- 20 Şub 2012
- 535
- 0
Kod:
Kod (Delphi):
[B]function[/B] VeriSifrele(St: [B]string[/B]): [B]string[/B];
[B]var[/B]
i: [B]integer[/B];
a: [B]byte[/B];
[B]begin[/B]
Result := '';
[B]for[/B] i := length(St) [B]downto[/B] 1 [B]do[/B] [B]begin[/B]
A := ord(St[I]);
result := result + [B]char[/B](a-1);
[B]end[/B];
[B]end[/B];
[B]function[/B] SifreyiCoz(St: [B]string[/B]): [B]string[/B];
[B]var[/B]
i: [B]integer[/B];
a: [B]byte[/B];
[B]begin[/B]
Result := '';
[B]for[/B] i := length(St) [B]downto[/B] 1 [B]do[/B] [B]begin[/B]
A := ord(St[I]);
result := result + [B]char[/B](a+1);
[B]end[/B];[/I][/I]