Diese Verschlüsselungsmethode ist in drei Teile unterteilt:
1. Ermitteln Sie den Inhalt des Einstellungsdialogs basierend auf den Suchergebnissen für die Registrierung.
2. Wenn Sie es zum ersten Mal verwenden, legen Sie ein neues Passwort fest.
3. Ein Applet für Passwort -Transformation (viel komplizierter als der ursprüngliche). Wenn Sie die Kennwortfunktion ändern müssen, ändern Sie natürlich einfach den Kennworteinstellungsteil.
1. Wenn das Programm startet, durchsuchen Sie die Registrierung, um festzustellen, ob ein Kennwort vorhanden ist, um den Inhalt des Fensters anzuzeigen. Die folgende Erklärung sollte jedoch vor der Verwendung getroffen werden:
Fügen Sie dem Benutzer Tregistry hinzu und fügen Sie der VAR -Deklaration die folgenden Formularvariablen hinzu:
Damit: Tregistry;
Keyname, Valuestr, Tempstr: String;
Prozedur tfrmpass.formShow (Absender: Tobject);
Beginnen
Damit: = Tregistry.create;
Versuchen Sie dadurch
Keyname: = 'Software/MyPassword';
// Wenn dieser Schlüssel verfügbar ist, wird er geöffnet.
Wenn dadurch (Keyname, wahr), beginnen Sie
tempstr: = extractFileName (application.exename);
VURLEITE: = Dadurch.
// Wenn das Passwort nicht leer ist, ändern Sie das Formular, um das Passwort zu überprüfen
Wenn Valuester <> '' 'beginnen
edit2.vissible: = false;
edit1.setfocus;
// Wenn das Passwort leer ist, ändern Sie das Formular zum festgelegten Kennwortdialogfeld
sonst beginnen
showMessage ('Bitte zum ersten Mal das Passwort festlegen!');
edit2.vissible: = true;
edit1.setfocus;
Ende;
Endlich enden;
2. Der Antwortcode der Schaltfläche: Enthält das neue Passwort und das Überprüfungskennwort.
Prozedur tfrmpass.okclick (Absender: Tobject);
Beginnen
// Beurteilen Sie das vorhandene Passwort anhand des angezeigten oder nicht angezeigten Kennworts und überprüfen Sie, ob Edit2 angezeigt wird oder nicht.
Wenn edit2.vissible = false dann beginnen
Wenn Pass (edit1.text) = valuestal starten, starten Sie dann
ShowMessage ("Das Passwort ist korrekt!"
sonst beginnen
ShowMessage ('Das Passwort ist falsch! Keine Erlaubnis zum Betrieb!');
Halt;
sonst beginnen
Wenn edit1.text = edit2.text dann beginnen
Damit: = Tregistry.create;
Dadurch
Keyname: = 'Software/MyPassword';
Wenn dadurch (Keyname, wahr) dann
Dadurch wird (tempstr, pass (edit1.text));
Dadurch
sonst beginnen
showMessage ('das wiedergegebene Passwort ist inkonsistent, bitte treten Sie wieder ein!');
edit1.text: = '';
edit1.setfocus;
Ende;
3.. Kennwortkonvertierungsprogramm: Achten Sie darauf, vordefiniert zu werden.
Meiner Meinung nach ist dieses Transformations -Mini -Programm nicht sehr kompliziert. Leser können auch andere mathematische Funktionen verwenden, um komplexere Transformationen auszuführen.
Funktionspass (PSTR: String): String;
var str, str1: String;
Ich, J: Ganzzahl;
Beginnen
str: = pstr;
für i: = 1 zu länge (str) beginnen beginnen
// bitte die erste Änderung
J: = (i ＊ i ＊ i mod (i ＋ 20))+(i ＊ i mod (i ＋ 10))+i ＊ 2 ＋ 1;
STR1: = STR1+CHR (ord (str [i])+j);
J: = (i ＊ i ＊ i mod (i ＋ 10))+(i ＊ i mod (i ＋ 20))+i ＊ 2 ＋ 1;
STR1: = STR1+CHR (ord (str [i])+j);
Pass: = str1;
Ende;