, kryptering /dekryptere kode, bidragyder: anatoly podgoretsky, enhed crypt32;,,, ************************************************************************* {,,, * navn: crypt32. pas *, * beskrivelse: 32 bit encode /decode modul *, * 2 ^ 96 varianter er det meget højt at forsøge at hacke *, * formål: god til kryptering passwors og tekst *, * sikkerhed: undgå anvendelse startkey mindre end 256 * *, hvis det anvendes kun til internt brug, kan du bruge misligholdelse *, * nøgle, men ændrer enhed før udarbejdelsen af *, * ringe: krypteret: = kryptering (instring, startkey, multkey, addkey) * *, afkodet: = dekryptere (instring, startkey) *, * parametre: instring = lang snor (max. 2 gb), der har brug for at kryptere *, * at afkode*, * multkey = multkey centrale *, * addkey = andet centrale *, * startkey = tredje nøgle *, * (muligt bruge misligholdelse fra grænseflade) *, * tilbage: outstring = resultat snor *, * redaktør: bedste set med tab stopper = 2, courier new *, * begyndte: grønbog *, * revision: 22. 05. 1997 - ver.2.01 konverteret fra delphi - 1 *, * og alle nøgler som parametre, før først centrale *, * platform: delphi 2, 0, 0 *, * arbejde i delphi, 1, 0, 2 ^ 48 varianter, 0..255 strenge *, * forfatter: anatoly podgoretsky *, * base alghoritm fra borland *, * adresse: vahe 4-31, johvi, estland, ee2045, tlf. 61-142 *, * kvk @ estpak. ee *, * status: freeware, men en sponsor hjælp vil blive værdsat her* *, er nødt til at købe bøger, shareware produkter, værktøj etc. *, *************************************************************************, *: støtter delphi 1 & 2, 0 *, * overløb kontrol fjernet *, *: martin djern æ s *, * e - mail: [email protected] *, * web: af einstein.. dk /~ djernaes *, *************************************************************************,,,,,, denne grænseflade,,, startkey = 981; (start misligholdelse centrale), multkey = 12674. (mult misligholdelse centrale), addkey = 35891; (tilføje default centrale},,, funktion kryptering (denne instring: string. startkey, multkey, addkey: heltal): string;,, funktion dekryptere (denne instring: string. startkey, multkey, addkey: heltal): string;,,, gennemførelse,,, ($r -} {q - dollars.} {*******************************************************,,,, * standard krypteringsalgoritme - kopieret fra borland *, *******************************************************}, fungerer kryptering (denne instring: string. startkey, multkey, addkey: heltal): string;,, var, jeg: byte;,, begynder, resultat: = ",,, jeg: = 1 - længde (instring), begynder, resultat: = resultat + char (byte (instring [i]) xor (startkey shr. 8);,, startkey: = (byte (resultat [i]) + startkey) * multkey + addkey,,,,,, (*************************,,,******************************, * - standard enkryption algoritmen - kopieret fra borland *, *******************************************************}, fungerer dekryptere (denne instring: string. startkey, multkey, addkey: heltal): string;,, var, jeg: byte;,, begynder, resultat: = '«, for jeg: = 1 længde (instring), begynder, resultat: = resultat + char (byte (instring [i]) xor (startkey shr. 8);,, startkey: = (byte (instring [i]) + startkey) * multkey + addkey,,,,,,,,, {$r +), ($q +},,,.,,