шифрование отдельного куска кода

[beegl]

Человек_Борща, пока в реестре ничего нет, алгоритм DES выдает ошибку
P.S. в реестре пароль Edit1

[Человек_Борща]

алгоритм DES выдает ошибку

Показывайте код и как использовали.

[beegl]

Человек_Борща, см. 1-й пост ссылка

uses
  CnDES;

procedure TForm1.btnDesCryptClick(Sender: TObject);
begin
  edtCode.Text := DESEncryptStrToHex(edt1.Text, edtKey.Text);
end;

procedure TForm1.btnDesDecryptClick(Sender: TObject);
begin
  edtOrigin.Text := DESDecryptStrFromHex(edtCode.Text, edtKey.Text);
end;

unit FxBase64;

interface

const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';

function Encode64(S: widestring): widestring;
function Decode64(S: widestring): widestring;

implementation

//==========================================================
function Encode64(S: widestring): widestring;
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Ord(s[i]);
    b := b * 256 + x;
    a := a + 8;
    while a >= 6 do
    begin
      a := a - 6;
      x := b div (1 shl a);
      b := b mod (1 shl a);
      Result := Result + Codes64[x + 1];
    end;
  end;
  if a > 0 then
  begin
    x := b shl (6 - a);
    Result := Result + Codes64[x + 1];
  end;
end;

//==========================================================
function Decode64(S: widestring): widestring;
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Pos(s[i], codes64) - 1;
    if x >= 0 then
    begin
      b := b * 64 + x;
      a := a + 6;
      if a >= 8 then
      begin
        a := a - 8;
        x := b shr a;
        b := b mod (1 shl a);
        x := x mod 256;
        Result := Result + chr(x);
      end;
    end
    else
      Exit;
  end;
end;

end.

[Человек_Борща]

Проверяте наличие пустой строки.
Причем тут base64 к DES?

[beegl]

Сообщение от Человек_Борща

Проверяте наличие пустой строки.
Причем тут base64 к DES?

примерно так проверять?? :

procedure TIntertelecomForm.IntertelecomLoad;
var
   RegIniFile:TRegIniFile;
   s:String;
begin
 RegIniFile:=TRegIniFile.Create('Software');
 RegIniFile.OpenKey('Intertelecom Tools',true);
 RegIniFile.OpenKey('Intertelecom Tools-Open',true);
 begin
 CheckBox1.Checked := RegIniFile.ReadBool('Intertelecom','AutoBalans', False);
 AutorunIntertelecom.Checked := RegIniFile.ReadBool('Intertelecom','AutorunIntertelecomFx', False);
 HintCheckBox.Checked := RegIniFile.ReadBool('Intertelecom','HintCheckBox', True);
 OnTopCheckBoxFx.Checked := RegIniFile.ReadBool('Intertelecom','OnTopCheckBoxFx-RegSave', False);
 EditUsername.Text := RegIniFile.ReadString('Intertelecom','EditUsernameFx',EditUsername.Text);
 cbbConnections.ItemIndex := RegIniFile.ReadInteger('Intertelecom','ConnectionsItemIndex',cbbConnections.ItemIndex);
 if EditPassword.Text <> '' then
 begin
 EditPassword.Text := RegIniFile.ReadString('Intertelecom','EditPasswordFx',EditPassword.Text);
 end;
 RegIniFile.Free;
end;
end;

[Человек_Борща]

Нет, проверять то, что читается из реестра.

[beegl]

Сообщение от Человек_Борща

Нет, проверять то, что читается из реестра.

а как оформить, чтоб с каждым запуском и закрытии по новому не шифровался пароль, а то получается с каждым запуском/закрытием новый пароль)?

[Человек_Борща]

хранить где-то ключ.