Passwort-Komponente

Passwort-Komponente

Passwort-Komponente : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Eine Komponente für das temporäre Kennwörter generieren.
Autor: APOGEE Informationssysteme
(*******************************************************************
AISQuickPassword - Backdoor Passwort generieren-Komponente für Delphi
Erstellt am: 25. September 1996
Erstellt von: Dennis P. Butler
Zweck:
Diese Komponente soll einen Programmierer Kennwort zulassen
Sicherheit in einem Projekt, aber nicht eingeschränkt werden, indem er zu kommen mit
eine Regelung, vergessene Passwörter zu behandeln. Diese Komponente ermöglicht die
Programmierer zu seinen Projekten generiert temporäre Kennwörter für die
Benutzer des Projekts.
Beschreibung:
Eine ewige Problem mit Kennwörtern ist, dass Benutzer oft vergessen ihre
Passwort, zu viele Adminsitrative Problemen. Diese Probleme sind
besonders gravierend, wenn eine Anwendung ist mithilfe von lokalen Tabellen und wird
Führen Sie auf einem Laptop, wo kann ein Administrator nicht leicht helfen können
der Benutzer, wenn sie nicht am selben Ort sind. Diese Komponente ermöglicht
der Administrator ein temporäres Passwort, basierend auf der Anmeldung generieren
Kriterien des Benutzers. Dieses Kennwort kann gut für den ganzen Tag oder
die bestimmte Stunde, basiert auf der Verwendung im Programm. Die Komponente auch
ermöglicht Kennwörter für Benutzer in einer anderen Zeitzone generiert werden.
Beispielsweise, wenn ein Benutzer in einer anderen Zeitzone als der administrator
Ruft eine Hintertür Passwort zu wollen, für sich selbst, vor allem, wenn die
stündlich Passwortoption gewählt ist, dann die Stunde Versatz der
TimeZoneHours Feld kann dies aufnehmen und produzieren eine richtige Kennwort
für die Benutzer-Maschine.
Mithilfe der Komponente:
Verwendung dieser Komponente wird angenommen, dass es mindestens zwei Arten von Menschen gibt
Wer wird das System, normale Benutzer und Administratoren verwenden. Nur
Administratoren haben die Möglichkeit, Hintertür Kennwörter für Benutzer zu generieren.
In einer typischen Anwendung ist ein Login-Fenster, in das System eindringen.
Mithilfe der AISQuickPassword-Komponente die Anwendung würde füllen die
Informationen für die UserName-Eigenschaft, die basierend auf der Anmeldung, die Sortmethod
Eigenschaft und die LengthPassword-Eigenschaft. Der Programmierer würde einschließen
in der Login-Bildschirm einen Aufruf von Validatepassword mit dem Kennwort eingegeben
als Parameter. Wenn das eingegebene Kennwort das temporäre Kennwort ist, die
Programm kann es ihnen ermöglichen, geben das System oder nehmen Vorkehrungen ist dann
für die Anwendung geeignet ist. Im Administrator-End müssten
Zugriff auf ein Formular, wo nur sie zum Aufrufen dann würde, der
CreateMethod-Methode.
Haupteigenschaften:
UserName (String) - Dies ist die Zeichenfolge Kriterien für jeden Benutzer eindeutig. Es kann sein
einen Benutzernamen, Benutzer-Id, etc., aber im Allgemeinen sollten die gleichen
Zeichenfolge, die verwendet wird, um anmelden, so dass die Saiten
auf die Benutzer- und Administrator-Maschinen identisch wird sein.
SortMethod (StDateOnly, StDateHour) - legt fest, ob das Kennwort generiert wird
für einen ganzen Tag oder die aktuelle Stunde gültig sein.
LengthPassword (Integer) - Länge des resultierenden Kennworts.
TimeZoneHours (Integer) - Anzahl der Stunden entfernt von der Administrator, denen der Benutzer ist.
Standardwert ist 0 (null). Für Zeitzonen mit einem früheren Zeitpunkt als dem
Administrator, verwenden Sie eine negative Zahl.
** Beachten Sie, dass die ersten drei Eigenschaften identisch sein müssen
auf die Nutzer und administrative Programme **
Methoden:
CreatePassword - auf der Grundlage der UserName, SortMethod & PasswordLength, ein eindeutiges Kennwort
wird zurückgegeben.
ValidatePassword - auf der Grundlage von das Kennwort an die Funktion der boolesche Wert übergeben
True oder False wird zurückgegeben werden, ob das Kennwort korrekt ist
für die Benutzernamen, SortMethod & PasswordLength.
Feedback, Kommentare, etc. sind willkommen. Bitte antworten Sie auf [email protected]
Copyright 1996-Apogee-Informationssysteme
*********************************************************************)
Einheit Quickpw;
Schnittstelle
verwendet
SysUtils, WinTypes, WinProcs, Nachrichten, Klassen, Graphics, Kontrollen,
Formen, Dialoge;
{
StDateOnly - Kennwort besteht aus bisher nur - gut für den ganzen Tag
StDateHour - Kennwort besteht aus Datum / Stunde - gut für aktuelle Stunde nur}
Typ
TSortType = (StDateOnly, StDateHour);
TAISQuickPW = class(TComponent)
Private
FUserName: String;
FSortMethod: TSortType;
FLengthPassword: Integer;
FTimeZoneHours: Integer;
Funktion ReturnPW(CreatingPassword: Boolean): String;
Funktion IsValidSelections: Boolean;
{Private Deklarationen}
geschützt
{Protected Deklarationen}
öffentliche
Konstruktor Create(AOwner:TComponent); außer Kraft setzen;
Destruktor Destroy; außer Kraft setzen;
Funktion CreatePassword: String;
Funktion ValidatePassword(PWord: String): boolean;
{Public Deklarationen}
veröffentlicht
{Username muss auf Benutzer- und Administrator-enden gleich sein}
Eigenschaft UserName: Zeichenfolge gelesen FUserName Write FUserName;
Eigenschaft SortMethod: TSortType lesen FSortMethod schreiben FSortMethod;
{Je längere die LengthPassword-Eigenschaft ist, je mehr die Passwörter sicher}
Eigenschaft LengthPassword: ganzzahlige lesen FLengthPassword schreiben FLengthPassword;
{Die Anzahl der Stunden entfernt, + oder -, der Benutzer Timezone. 0 ist in der Standardeinstellung}
Eigenschaft TimeZoneHours: ganze Zahl gelesen FTimeZoneHours schreiben FTimeZoneHours;
{Veröffentlichten Erklärungen}
Ende;
Register des Verfahrens;
Umsetzung

Konstruktor TAISQuickPW.Create(AOwner:TComponent);
beginnen
Geerbte Create(AOwner);
Ende;
Destruktor TAISQuickPW.Destroy;
beginnen
Geerbte zerstören;
Ende;
Register des Verfahrens;
beginnen
RegisterComponents ('Höhepunkt', [TAISQuickPW]);
Ende;
{Diese Funktion generiert das Passwort}.
Funktion TAISQuickPW.ReturnPW(CreatingPassword: Boolean): String;
var
Passwort: String;
PassBasis: Real;
NameMultiplier,
CurrentHour,
DayAdjustment: Integer;
ThisDate: TDateTime;
const
Multiplikator = 0.092292080396; {Random Multiplikator - sichergestellt, dass ein Bruchteil führt}
beginnen
DayAdjustment: = 0;
ThisDate: = Datum;
CurrentHour: = StrToInt(FormatDateTime('h',ThisDate));
Wenn Length(FUserName) > 3 dann
NameMultiplier: = Ord(FUserName[1]) + Ord(FUserName[2]) + Ord(FUserName[3])
sonst
NameMultiplier: = 13; {Verwenden Sie UserName weniger als drei Ziffern temporäre Zahl}
Wenn CreatingPassword dann {nur Zeit einstellen auf der Grundlage von Zeitzone Unterschied, wenn
Passwort erzeugen. Validifying Passwörter erfolgt
am Ende der Benutzer, wo Zeitzone Unterschied Grundlage ist
für die Erstellung des Kennworts für Administrator-Ende. In
diesem Fall ist keine Anpassung erforderlich ist. }
beginnen
Wenn (CurrentHour + TimeZoneHours) > 23 dann
beginnen
CurrentHour: = CurrentHour - 24;
DayAdjustment: = 1;
Ende
sonst
Wenn (CurrentHour + TimeZoneHours) < 0 dann
beginnen
CurrentHour: = 24 + CurrentHour;
DayAdjustment: =-1;
Ende;
ThisDate: = ThisDate + DayAdjustment;
Ende;
Wenn FSortMethod = StDateHour then
NameMultiplier: = NameMultiplier + CurrentHour;
{Multiplizieren Sie Name abhängige Zahl durch abhängige bekommen einen eindeutigen Wert für Datum
jeden Tag des Jahres für jeden Benutzer. Multiplizieren Sie diese mit einem zufälligen Multiplikator (const-Wert)
um sicherzustellen, dass immer einen Bruchteil ergibt. Nehmen Sie FLengthPassword Ziffern der Bruch als
das letzte Kennwort. Hinweis: Wenn der gebrochene Teil zu weniger Ziffern als klappt
FLengthPassword, führt ein Kennwort mit weniger Stellen als FLengthPassword. Programm
wird weiterhin erstellen/Passwörter normalerweise überprüfen. }
PassBasis: = NameMultiplier *
StrToInt(FormatDateTime('yyyy',ThisDate)) /
(StrToInt(FormatDateTime('d',ThisDate)) * StrToInt(FormatDateTime('m',ThisDate))) *
Multiplikator;
Kennwort: = Kopieren (FloatToStr (PassBasis - Trunc(PassBasis)),3,FLengthPassword);
Ergebnis: = Passwort;
Ende;
Funktion TAISQuickPW.IsValidSelections: Boolean;
beginnen
Ergebnis: = False;
Wenn ((FUserName <> '') und
((FSortMethod = stDateHour) oder (FSortMethod = StDateOnly)) und
(FLengthPassword > 0)) dann
Ergebnis: = True;
Ende;
Funktion TAISQuickPW.CreatePassword: String;
var
NewPW: String;
beginnen
Ergebnis: = ''; {Standard, wenn Fehler}
Wenn IsValidSelections dann
beginnen
NewPW: = ReturnPW(True);
Ergebnis: = NewPW;
Ende;
Ende;
Funktion TAISQuickPW.ValidatePassword(PWord: String): boolean;
beginnen
Ergebnis: = False; {Standard, wenn Fehler}
Wenn IsValidSelections dann
Wenn ReturnPW(False) = Benutzer dann
Ergebnis: = True
sonst
Ergebnis: = False;
Ende;
Ende.