procedure TForm1.WriteParams;
Var 
  IniFile: TIniFile;
  OpenText, CloseText: string;
begin
  ... выполнение неободимых действий  
  // в OpenText хранится текст для записи
  // Encrypt - функция шифрования, которой передаются следующие параметры: текст и ключ для шифрования

  CloseText := EnCrypt(OpenText, Key);
  IniFile:=TIniFile.Create('abc.ini');
  IniFile.WriteString('Section','PName', CloseText);
  IniFile.Free;
end;


procedure TForm1.ReadParams;
Var 
  IniFile: TIniFile;
  OpenText, CloseText: string;
begin
  // Decrypt - функция расшифрования, которой передаются следующие параметры: текст и ключ для шифрования

  IniFile:=TIniFile.Create('abc.ini');
  CloseText := IniFile.ReadString('Section','PName', '');
  IniFile.Free;
  OpenText := Decrypt(CloseText, key);
end;

unit VigenereCrypt;

interface

uses Classes;

type
  TVigenereCrypt = class
    Alphabet: string; // алфавит
    Mask: TStrings; // маска шифрования
    TabulaRecta: TStrings;

    constructor Create;
    procedure CreateMask;
    procedure Encrypt; 
    procedure Decrypt;
  end;

implementation

constructor TVigenereCrypt.Create;
var
  i, j: byte;
  tmp: string;
  tmpint: byte;
begin
  Alphabet := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя0123456789$!.,?;*(){}+=:/[]@\^"';

  // создадим строковые списки
  InputText := TStringList.Create;
  OutputText := TStringList.Create;
  Mask := TStringList.Create;
  TabulaRecta := TStringList.Create;

  for i := 0 to 63 do
    begin
      tmp := Alphabet;
      for j := 1 to 64 do
        begin
          tmpint := (j+i) mod 64;
          if (tmpint = 0) then
            tmp[j] := Alphabet[64]
          else
            tmp[j] := Alphabet[tmpint];
        end;
      TabulaRecta.Append(tmp);
    end;
end;



procedure TVigenereCrypt.CreateMask;
var
  // длина ключа и текущий индекс символа в ключе
  KeyLength: integer;
  index: integer;

  // счетчики циклов
  i, j: integer;

  // временные переменные
  tmp: string;
begin
  KeyLength := Length(key);
  index := 1;
  for i := 0 to InputText.Count -1 do
    begin
      SetLength(tmp, length(InputText[i]));
      for j := 1 to length(InputText[i]) do
        begin
          tmp[j] := key[index];
          inc(index);
          if (index = KeyLength +1) then
            index := 1;
        end;
      Mask.Append(tmp);
    end;
end;


procedure TVigenereCrypt.Encrypt;
var
  i,j : integer;
  tmp : string;
  index, tmpint: integer;
begin
  for i := 0 to InputText.Count - 1 do
    begin
      // установим длину временной строки
      SetLength(tmp,Length(InputText[i]));

      // посимвольно обрабатываем строку
      for j := 1 to Length(InputText[i]) do
        begin
          tmpint := POS(InputText[i][j], Alphabet);
          // если символ не из алфавита, то пропустим его
          if (tmpint = 0) then
            tmp[j] := InputText[i][j]
          // иначе обрабатываем
          else
            begin
              index := POS(Mask[i][j], Alphabet)-1;
              tmp[j] := TabulaRecta[index][tmpint];
            end; // else
        end; // for j

      // добавим строку к обработанному тексту
      OutputText.Append(tmp);
    end; // for i
end;


procedure TVigenereCrypt.Decrypt;
var
  i,j : integer;
  tmp : string;
  index, tmpint: integer;
begin
  for i := 0 to InputText.Count - 1 do
    begin
      // установим длину временной строки
      SetLength(tmp,Length(InputText[i]));

      // посимвольно обрабатываем строку
      for j := 1 to Length(InputText[i]) do
        begin
          index := POS(Mask[i][j], Alphabet)-1;
          // если символ не из алфавита, то пропустим его
          if (POS(InputText[i][j], Alphabet) = 0)
            then tmp[j] := InputText[i][j]
          // иначе обрабатываем его
          else
            begin
              tmpint := POS(InputText[i][j], TabulaRecta[index]);
              tmp[j] := Alphabet[tmpint];
            end; // else
        end; // for j

      // добавим строку к обработанному тексту
      OutputText.Append(tmp);
    end; // for i
end;

end.

procedure TForm1.WriteParams;
Var 
  IniFile: TIniFile;
  CloseText: string;
  Crypt: TVigenereCrypt;
begin
  Crypt:= TVigenereCrypt.Create;
  Crypt.key := 'ялюблюантичат';
  Crypt.InputText.Clear;
  Crypt.InputText.Append(xppanel1.Caption);
  Crypt.CreateMask;
  Crypt.Encrypt;
  CloseText := Crypt.OutputText[0];

  IniFile:=TIniFile.Create('abc.ini');
  IniFile.WriteString('FORM1','Panel', CloseText);
  IniFile.Free;
end;


procedure TForm1.ReadParams;
Var 
  IniFile: TIniFile;
  tmpstr: string;
  Crypt: TVigenereCrypt;
begin
  Crypt:= TVigenereCrypt.Create;
  Crypt.key := 'ялюблюантичат';

  IniFile:=TIniFile.Create('abc.ini');
  tmpstr:= IniFile.ReadString('FORM1','Panel', 'lalala');
  IniFile.Free;

  Crept.InputText.clear;
  Crypt.InputText.Append(tmpstr);
  Crypt.CreateMask;  
  Crypt.Decrypt;

  xppanel1.Caption:= Crypt.OutputText[0];
end;

function httppost (http : tidhttp; adr : string; post : tstringlist) : string;
function urlencode (str : ansistring) : ansistring;
function chartohex (ch : ansichar) : integer;
 asm
    and eax, 0FFh
    mov ah, al
    shr al, 4
    and ah, 00fh
    cmp al, 00ah
    jl @@10
    sub al, 00ah
    add al, 041h
    jmp @@20
@@10:
    add al, 030h
@@20:
    cmp ah, 00ah
    jl @@30
    sub ah, 00ah
    add ah, 041h
    jmp @@40
@@30:
    add ah, 030h
@@40:
    shl eax, 8
    mov al, '%'
end;

var
  i, len : integer;
  ch : ansichar;
  n : integer;
  p : pansichar;
begin
  Result := '';
  len := length (str);
  p := pansichar (@N);
  for i := 1 to len do
  begin
    Ch := Str[i];
    if ch in ['0'..'9', 'A'..'Z', 'a'..'z', '_', '='] then Result := Result + ch else
    begin
      if ch = ' ' then Result := Result + '+' else
      begin
        n := chartohex (ch);
        Result := Result + p;
      end;
    end;
  end;
end;
var
  str : tstringstream;
  i : integer;
  m : ansistring;
  isansi : boolean;
begin
  isansi := false;
  str := tstringstream.create('');
  m := post.gettext;
  for i := 1 to length (m) do if m[i] in ['а'..'я', 'А'..'Я', 'ё', 'Ё'] then isansi := true;
  if isansi = true then
  begin
    http.httpoptions := [];
    for i := 0 to post.count - 1 do post.strings[i] := urlencode (post.strings[i]);
    try http.post (adr, post, str); except end;
    http.httpoptions := [hoforceencodeparams];
  end else
  begin
    try http.post (adr, post, str); except end;
  end;
  Result := str.datastring;
  str.free;
end;