D-Link DSL-G684T Manual do Utilizador descarregar pdf (Página 108)

108

end

else application.MessageBox('ERROR','password and its

confirmation are not the same!');

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

IdTelnet1.IOHandler.WriteLn(edit8.Text);

end;

procedure TForm1.Button7Click(Sender: TObject);

var

INI : TINIFile;

DLL : THandle;

Decrypt : function (Password : string) : String;

begin

DLL := LoadLibrary('encryption.dll'); // zaladowanie pliku

INI := TINIFile.Create(ExtractFilePath(Application.ExeName)

+ 'setup.ini');

try

@Decrypt := GetProcAddress(DLL, 'Decrypt'); // pointer

to the procedure

if @Decrypt = nil then raise Exception.Create('Can’t load

Encryption.dll library!');

if ((edit9.Text =

decrypt(INI.ReadString('Main','login','')))and(edit10.Text =

decrypt(INI.ReadString('Main','password','')))) then

begin

pswd := Decrypt(INI.ReadString('Main','optpswd',''));

panele_false();

panel_start.Visible := true;

1 2 ... 103 104 105 106 107 108 109 110 111 112 113 ... 117 118

Sem comentários

D-Link DSL-G684T Manual do Utilizador Página 108