library Getkey;

uses
  Forms, SysUtils,
  Input in 'INPUT.PAS' {Form1};

{$R *.RES}

function Encrypt(eptr: PChar; EncryptKey: Integer): PChar; export;
var
 x: Integer;
 l: Word;
 estr: String;
 ch: Char;
begin
 { Zamiana acucha PChar na String }
 estr := StrPas(eptr);
 { Pobieramy dugo tekstu }
 l := StrLen(eptr);
 { Ptla szyfrujca }
 for x := 1 to l do
 begin
  ch := estr[x];
  ch := Chr(Ord(ch) xor EncryptKey);
  estr[x] := ch;
 end;
 { Konwersja ze String na PChar}
 StrPCopy(eptr, estr);
 { Zwracamy zaszyfrowany acuch }
 Encrypt := eptr;
end;

Exports
 Get_Key,
 Encrypt;

begin
end.