ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.BitBtn1Click(Sender: TObject);
var Fil:TextFile;
    SaveDialog1:TSaveDialog;
begin
 SaveDialog1:=TSaveDialog.Create(nil);
 if SaveDialog1.Execute then
 begin
  assignfile(Fil,SaveDialog1.FileName);
  //...//
 end;
 SaveDialog1.Free;
end;

var
procedure TForm1.Button1Click(Sender: TObject);
var
 key:TWordTriple;
begin
key[0]:=1; key[1]:=2; key[2]:=3;
FileEncrypt('C:\123.exe','C:\new123.exe',key);

{FileDecrypt('C:\new123.exe','C:\new123.exe',key,true);}
end;

function H(Text,Key: String; Encode: boolean): String;
var
  i, KeyLength: integer;
  Sign: ShortInt;
begin
 KeyLength:=Length(Key);
 if Encode then Sign :=-1 else Sign:=1;
 for i:=1 to Length(Text) do
  Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1]));
  Result:=Text;
end;