encryptie - module voor het genereren van wachtwoorden, tijdelijke.,, de deelnemers aan het systeem voor informatie:,,, (*******************************************************************, aisquickpassword - via de achterdeur, wachtwoord die onderdelen van Delphi, opgericht in: op 25 september 1996, door: Dennis blz. Butler,,,,, het doel van dit deel is toegestaan: de programmeur van wachtwoorden, veiligheid van een project, maar niet door zal met programma 's om,, het wachtwoord vergeten.De vergadering kan de programmeur, om z 'n project gegenereerde voorlopig wachtwoord, het project van de gebruikers.,,,,, dat wachtwoord een permanent probleem is, de gebruiker vaak vergeten hun wachtwoorden, veroorzaakt veel problemen van beheer.Deze vraag is bijzonder ernstig is, als een aanvraag is het gebruik van de tabel en loopt de laptop, waar een beheerder misschien niet gemakkelijk te kunnen helpen, als ze de gebruikers niet in dezelfde positie.Deze vergadering in het kader van de gebruiker de beheerder toestaan, die voorlopig wachtwoord.Deze code kan in de rest van de dag, of voor een bepaalde tijd, in de procedure worden gebruikt.Dit onderdeel, zodat het wachtwoord is, in een andere tijdzone van de gebruikers gegenereerde.,, bijvoorbeeld, als een gebruiker in een andere tijdzone dan de beheerder, bel de achterdeur voor de eigen code, met name als per uur, en de opties worden gekozen, dan uur, migratie, timezonehours gebied kan bevatten dit leidt tot Een correcte wachtwoord voor de gebruiker van de machine,,,,,, het gebruik van onderdelen: het gebruik van de onderdelen ervan zijn er ten minste twee soorten mensen, wie zal het gebruik van het systeem, de gewone gebruikers en beheerders.Alleen de beheerder moet om de gebruikers van de achterdeur wachtwoord vermogen in een typische toepassing.,,, hebben een toegangscode in het systeem, het gebruik van aisquickpassword., onderdelen, van toepassing zullen invullen, informatie, op basis van de registratie, de gebruikersnaam eigenschap, en sortmethod, lengthpassword eigendom.De programmeur omvat, log in op het scherm van de telefoon validatepassword input, de code, als een parameter.Als je de code die is voorlopig wachtwoord, dan kan de procedure kunnen ze in het systeem, of het nemen van maatregelen, en de juiste toepassing.In de vorm van administrateur, ze zullen bezoeken, maar ze kan bellen, createmethod,.,,,,, de belangrijkste eigenschap: gebruikersnaam (...) - dit is. De criteria voor de gebruikers van de unieke.Het kan, naam, gebruikers - id, enzovoort, maar in het algemeen dezelfde moeten zijn,, touw, gebruikt om in te loggen in het systeem, de string, zal voor de gebruikers en beheerders van de machine is hetzelfde.,, sortmethod (stdateonly, stdatehour) - definitie van het wachtwoord is ontstaan, is geldig Voor een periode van één dag, of de huidige uur lengthpassword (.).,, - tot een van de wachtwoorden van timezonehours (.).,, een paar uur weg van de beheerders, de standaard op nul.Omdat de tijdzone eerder, dan, administrateur, negatieve * * * * * * * * * * * * * *.,,, dat de eerste drie eigenschappen moeten dezelfde zijn, aan de gebruikers en de administratieve procedures, de * * * * * * * * * * * * * *,,,,, createpassword: methode op basis van de gebruikersnaam, sortmethod & passwordlength, een uniek wachtwoord, wachtwoord, validatepassword terug, op basis van de overdracht. Voor de functie, een boolean, echt of nep, zal het wachtwoord is juist terug,, voor de gebruikersnaam, sortmethod & passwordlength.,,, geen opmerkingen over de opmerkingen, enz.In antwoord op de vragen van dbutler @ apogeeis. COM,,, 1996, punt auteursrecht, informatie,,,,, *********************************************************************) eenheid quickpw;,,,,,, de interface en het gebruik van SysUtils, wintypes, winprocs, nieuws, klasse, grafieken, controles, de dialoog, de vorm, de;,,, -,, stdateonly - code is de tot nu toe enige goede dag, stdatehour wachtwoord is door de huidige datum & uur uur alleen},,,,, tsorttype = (stdateonly, stdatehour);,,, taisquickpw = (tcomponent), particuliere, fusername: touw; fsortmethod:tsorttype;,,,,,, flengthpassword: gehele getal; ftimezonehours: gehele getal;,, returnpw (creatingpassword: Bull. Functie:,,);In de isvalidselections: Bull.,, - bescherming van particuliere} {}, verklaringen, bescherming,,,,, fabrikant (aowner:tcomponent); voor;,,,,, de vernietiging van die verschrikkelijke;; createpassword functie: touw;,, validatepassword (pword functie: touw): Bull.,, (mededeling), de publicatie van een gebruikersnaam,,, - dezelfde moeten zijn, gebruikers en beheerders van einde;}, touw, gebruikersnaam: lezen en schrijven eigenschappen fusername fusername;,, onroerend goed sortmethod: lezen, schrijven en tsorttype fsortmethod fsortmethod;,, lengthpassword {generaal prestaties, de veiligheid van de code, eigendom lengthpassword}, lezen en schrijven flengthpassword F:.Lengthpassword;,, (uren, + of - gebruiker tijdzone.0 is de standaard}, timezonehours: getallen, onroerend goed lezen en schrijven ftimezonehours ftimezonehours {};,,, en de verklaring van afsluiting van de procedure,,,,,,,,,, de registratie, de uitvoering van de fabrikant, taisquickpw, het creëren van een (aowner:tcomponent);,,,, erven creëren (aowner); aan het einde van,,,,,, de verschrikkelijke taisquickpw. Schade aan het begin en einde van,,,,,,, die vernietiging;,,,,,, te beginnen met de procedure register; en registercomponents ('apogee, [taisquickpw]);,,,,, aan het einde van deze functie wordt {; het wachtwoord.}, taisquickpw, functie. Returnpw (creatingpassword: booleaanse):...;,, var, het wachtwoord: touw;,,,, namemultiplier passbasis: huisvesting;,,,,, dayadjustment CurrentHour,:.;,,,, die: TDateTime; totaal, de vermenigvuldigingsfactor = 0.092292080396; dit om ervoor te zorgen Dat de willekeurige vermenigvuldigingsfactor - {de score zal beginnen, dayadjustment:=},,,,, - 0; die datum: =;,, CurrentHour:= strtoint (formatdatetime (H));,,, als de lengte (fusername) > 3 en namemultiplier:= ord (fusername [1]) + ord (fusername [2]) + ord (fusername [3]), en andere, namemultiplier:=, 13; - als gebruikersnaam is minder dan drie cijfers, het gebruik van tijdelijke nummer},,, als creatingpassword dan alleen een aanpassing van de tijd (op basis van het tijdsverschil als,,Het creëren van een code.Het wachtwoord, validifying, op de gebruiker, waar de verschillende tijdzones, op basis van de beheerder, uiteindelijk te creëren.In deze omstandigheden, geen tijd voor aanpassingen noodzakelijk zijn.},,,, als (CurrentHour + timezonehours) > 23, en dan begon, CurrentHour:= CurrentHour - 24;,, dayadjustment:= 1;,,,,, als andere (CurrentHour + timezonehours) < 0, en dan begon, CurrentHour:= 24 + CurrentHour;,,,, dayadjustment:= 1; aan Het einde van de,,,, dayadjustment: = +;,,,,, als aan het einde van fsortmethod = stdatehour; en, namemultiplier:= namemultiplier + CurrentHour;,,, (met de naam afhankelijk is van de hoeveelheid in verband met de datum van de nummer een unieke waarde van elk jaar, elke dag van Elke gebruiker.Vermenigvuldig dat met een willekeurige vermenigvuldigingsfactor (CONST)), om ervoor te zorgen dat de resultaten van een fractie, altijd.De flengthpassword cijfers scoort, de laatste van de code.Aandacht, als deel van de cijfers achter de komma werken met minder dan een wachtwoord, flengthpassword, niet zal leiden tot een flengthpassword dan.Het programma zal het creëren van /of het wachtwoord nog steeds, meestal.Passbasis:= namemultiplier *},,,, strtoint (formatdatetime ('yyyy,), (strtoint (formatdatetime (gaat, die strtoint)) * (formatdatetime (ja))) *, -;,, wachtwoord: = replicatie (floattostr (passbasis - trunc (passbasis)), 3. Flengthpassword);,, resultaten: = code;,,,,, aan het einde van de functie: Bull. Taisquickpw.isvalidselections;,,,,,, de resultaten: = vals; als ((fusername < > "),,, (fsortmethod = stdatehour) of (fsortmethod = stdateonly)), en (flengthpassword > 0)) en resultaten: = echt,,,,,,,, aan het einde van de functie van taisquickpw.createpassword;: touw;,, var, newpw: touw;,,,, de resultaten: ="; {standaard als het fout is, als de isvalidselections}N, te beginnen newpw:= returnpw,,,,, de resultaten van (echt);: = newpw;,,,,,,, aan het einde van het einde van de functie;; taisquickpw. Validatepassword (pword: string): Bull.,,,, de resultaten: = vals;} {standaard Als het fout is, dan, als isvalidselections,, als returnpw (pseudo) = pword en resultaten: = echt anders, resultaten:,,,,,,, = false;,,, einde.