Programm mit Passwort und Username erstellen

[taktaky]

Zitat von Svenkan:

Ich habe dazu doe TDESCrypt-Komponente dazu benutzt.
Passwort kann nicht encrypted werden, zur Prüfung muss dann das eingegebene Passwort verschlüsselt und dann mit dem gespeicherten verglichen werden.
Zu finden: hier.

hallo
das ist alles was in Delphi Code ist:

Delphi-Quellcode:

unit umain;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  DESCrypt1: TDESCrypt;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   with DESCrypt1 do
   begin
     Input:=edit1.text;
     Salt:=edit3.text;
     if execute then edit2.text:=Output;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    DESCrypt1 := TDESCrypt.Create (self) ;
end;

end.

Und beim kompilieren bekomme ich diese Meldung :

Code:

[Fatal Error] testcrypt.dpr(6): Unit TypInfo was compiled with a different version of Variants.TCustomVariantType*RightPromotion

2. das ist sowieso nicht free (TDESCrypt is copyright Herzo ...) also die Finger Weg