kryptere /dekryptere codeContributor: Anatoly PODGORETSKYunit Crypt32; {*************************************** *********************************** navn: Crypt32.Pas ** beskrivelse: 32 bits kode /dekode modul ** 2 ^ 96 varianter det er svært høy for å prøve hack ** Formål: God for kryptering passwors og tekst ** Security: unngå bruk StartKey mindre enn 256 ** hvis det brukes bare til internt bruk kan du bruke standard ** nøkkel, men ENDRER enhet før kompilering ** Ring: Kryptert: = Krypter (inst, StartKey, MultKey, ADDKEY) ** dekryptert: = Dekrypter (inst, StartKey) ** Parametere: instring = lang streng (maks 2 GB) som trenger å kryptere ** dekryptere ** MultKey = MultKey nøkkelen ** ADDKEY = andre viktige ** StartKey = tredje nøkkelen ** (posible bruk mislighold fra grensesnitt) ** Retur: OutString = resultat streng ** redaktør: Besr sett med Tab stopper = 2, Courier ny ** Startet: 01.08.1996 ** Endret: 22.05.1997 - ver.2.01 konvertert fra Delphi en ** og gjort alle nøkler som parametere, før bare startnøkkelen ** Plattform: Delphi 2.0, 3.0 ** arbeid i Delphi 1,0, 2 ^ 48 varianter, 0..255 strenger ** Forfatter: Anatoly Podgoretsky ** Base alghoritm fra Borland ** Adresse: Vahe 4-31, Johvi, Estland, EE2045, tlf. 61-142 ** [email protected] ** Status: Freeware, men noen sponsor hjelp vil bli verdsatt her ** trenger å kjøpe bøker, shareware produkter, verktøy osv ************** ************************************************** *********** Forandringer: Støtter Delphi 1,0 & 2,0 ** Flow sjekker fjernet ** Av: Martin Djernæs * * e-post: [email protected] ** web: einstein.ot.dk/~djernaes ************* ************************************************** ***********} interfaceconst StartKey = 981; {Begynn standardnøkkelen} MultKey = 12674; {Mult standardnøkkelen} ADDKEY = 35891; {Legg standardnøkkelen} funksjon Encrypt (konst instring: string; StartKey, MultKey, ADDKEY: Integer): string; funksjon Dekrypter (konst instring: string; StartKey, MultKey, ADDKEY: Integer): string; gjennomføringen {$ R -} { $ Q -} {********************************************* ********** * Standard krypteringsalgoritme - Kopiert fra Borland * ******************************* ************************} funksjon Encrypt (konst instring: string; StartKey, MultKey, ADDKEY: Integer): string; Var jeg: Byte; begynne resultat: = ''; for jeg: = 1 til lengde (inst) gjør begynne Resultat: = Resultat + CHAR (Byte (inst [I]) XOR (StartKey SHR 8)); StartKey: = (Byte (Resultat [I]) + StartKey) * MultKey + ADDKEY; ende; end; {********************************************* ********** * Standard dekryptering algoritmen - Kopiert fra Borland * ******************************* ************************} funksjon Dekrypter (konst instring: string; StartKey, MultKey, ADDKEY: Integer): string; Var jeg: Byte; begynne resultat: = ''; for jeg: = 1 til lengde (inst) gjør begynne Resultat: = Resultat + CHAR (Byte (inst [I]) XOR (StartKey SHR 8)); StartKey: = (Byte (inst [I]) + StartKey) * MultKey + ADDKEY; end, end, {$ R +} {$ Q +} end
.