keypassword.pas

来自「著名的SecureBlackBox控件完整源码」· PAS 代码 · 共 77 行

unit keypassword;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SBSSHKeyStorage;

type
  TfrmPassword = class(TForm)
    edPassword: TEdit;
    lEnterPassword: TLabel;
    btnOK: TButton;
    btnCancel: TButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPassword: TfrmPassword;

implementation

{$R *.dfm}

{ TfrmPassword }

  {if (dlgLoadKey.FileName <> '') then
  begin
    try
      Res := Key.LoadPrivateKey(dlgLoadKey.FileName, edPassword.Text);
      if Res = 0 then
      begin
        CopyFile(PAnsiChar(dlgLoadKey.FileName), '.chat_server_key', true);
        ModalResult := 1
      end
      else
      begin
        case Res of
          SB_ERROR_SSH_KEYS_INVALID_PRIVATE_KEY :
            Msg := 'Invalid private key';
          SB_ERROR_SSH_KEYS_FILE_READ_ERROR :
            Msg := 'File read error';
          SB_ERROR_SSH_KEYS_UNSUPPORTED_ALGORITHM :
            Msg := 'Unsupported algorithm';
          SB_ERROR_SSH_KEYS_INTERNAL_ERROR :
            Msg := 'Internal error';
          SB_ERROR_SSH_KEYS_NO_PRIVATE_KEY :
            Msg := 'No private key found';
          SB_ERROR_SSH_KEYS_INVALID_PASSPHRASE :
            Msg := 'Invalid passphrase';
          SB_ERROR_SSH_KEYS_UNSUPPORTED_PEM_ALGORITHM :
            Msg := 'Unsupported PEM algorithm'
        else
          Msg := 'Unknown error';
        end;

        ShowMessage('Cannot load private key : ' + Msg);
      end;
    except
      on E : Exception do
      begin
        ShowMessage('Cannot load private key : ' + E.Message);
      end;
    end;
  end;}

procedure TfrmPassword.FormShow(Sender: TObject);
begin
  edPassword.Text := '';
end;

end.