Programm mit Passwort und Username erstellen

[taktaky]

Hallo,

ich möchte ein Programm mit einem Passwort und Username erstellen

Dafür muss ich einen Passwort-Generator (Keygen) erstellen

Gerne möchte ich, dass das Passwort nur aus Nummern von 0-9 und aus Buchstaben von A bis F
also Hexa so zusagen.

Kann jemand mir einen einfaches Beispiel geben, da ich vorher nie sowas gemacht habe :mrgreen:

Danke im Voraus :kiss:

Gruß

[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.

[scrat1979]

Ich persönlich würde IN DIESEM FALLE dafür die Funktionen ORD() und IntToHex() benutzen. Dann kann man ein Passwort im Klartext eingeben und erhält die Ausgabe als HEX-Werte der einzelnen Buchstaben. Beachte aber, daß es dabei keine Sicherheit bietet. Jeder, der die ASCII-Tablle kann oder nachliest, kann das Passwort natürlich zurückrechnen. Beispiel:

Delphi-Quellcode:

[...]

VAR
HexPasswort : String;
i           : Integer;
Begin
  HexPasswort := '';
  for i := 1 to Length(passwort) Do 
    HexPasswort := HexPaswort + IntToHex(ORD(Edit1.Text[i]),2);
  ShowMessage(HexPasswort);
[...]

... soll nur eine Anregung sein.

SCRaT

[taktaky]

Zitat:

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 :(

[taktaky]

Zitat:

Zitat von scrat1979

Delphi-Quellcode:

[...]

VAR
HexPasswort : String;
i           : Integer;
Begin
  HexPasswort := '';
  for i := 1 to Length(passwort) Do 
    HexPasswort := HexPaswort + IntToHex(ORD(Edit1.Text[i]),2);
  ShowMessage(HexPasswort);
[...]

... soll nur eine Anregung sein.

SCRaT

Hallo scrat1979

kannst Du mir Code komplett schreiben?
Oder muss ich irgendwas in Bereich

Delphi-Quellcode:

 uses ...

schreiben?

so soll etwa Login-Fenster aussehen:
Das Bild von dem LogIn

Gruß

[Svenkan]

Zitat:

Zitat von taktaky

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

Zitat aus der Readme:

Zitat:

TDESCrypt is Freeware, but source is not included.

Zitat:

Zitat von taktaky

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

Welche Delphi-Version benutzt du?

[taktaky]

Zitat:

Welche Delphi-Version benutzt du?

Version 7

gruß

[Svenkan]

Probier mal das angehängte Projekt.

[taktaky]

Zitat:

Zitat von Svenkan

Probier mal das angehängte Projekt.

Hi,

das ist aber etwas anderes

ich möchte eine exe erstellen und wenn das Programm startet, kommt ein Popup Fenster wo man das Passwort und den Username eingeben muss

Ich habe was vorbereit ein Beispiel aber ohne Username und Passwort :mrgreen:

Ich möchte das jemand das jemand das Programm mit Passwort und Usename dazu schutzt (sehe Anhang)

Es soll bei exe-Start das Pop Fenster so angezeigt, wo man das Passwort und User Name eingeben muss:
Sehe das Bild im Anhang
Bild1

Gruß

[SirThornberry]

soll nur ein einziger Username + Passwort funktionieren oder solle es mehrere mögliche Benutzernamen und Passwörter geben?
Und soll das Passwort nur mit dem richtigen Usernamen funktionieren oder soll der Benutzername egal sein und nur das Passwort stimmen?
Und solles für einen Benutzernamen mehrere mögliche Passwörter geben oder soll pro Usernamen nur ein mögliches Passwort existieren?

eine kleine Bitte: Könntest du bitte das Bild anhängen. Ansonsten ist es nicht mehr verfügbar sobald du es von deinem webspace löschst und dann wäre der Beitrag verschandelt weil Informationen fehlen.