Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: Pascal: CryptUnit

Wukkopi [22.08.2005 10:38:59]

#

Unit joka sisältää merkkijonon encryptauksen ja sen decryptauksen...

Eli luot uuden projektin ja sisällytät tämän unitin samaan kansioon ja lisäät uses kohtaan CryptUnit.
Sitten vain testaamaan...

ps: Pkey:n täytyy olla molemmissa sama...

Hyvin yksinkertaisella periaattella toimii...

unit CryptUnit

interface

function EnCrypt(PKey: integer; PString): String;
function DeCrypt(Pkey: integer; PString): String;

implementation

function Encrypt(Pkey: integer; PString): String;
var
 i: integer;
 buffer: string;
begin
 for i := 0 to length(Pstring) do
  Buffer := buffer + chr(ord(Pstring[i]) + (Pkey * i));
Result := Buffer;
end;


function DeCrypt(PKey: Integer; PString): String;
var
 i: integer;
 buffer: string;
begin
 for i := 0 to length(PString) do
  Buffer := buffer + chr(ord(Pstring[i]) - (Pkey * i));
Result := Buffer;
end;

end.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta