Kryptographie

Kryptographie

Kryptographie : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Verschlüsselung / Entschlüsselung code
Autor: ANATOLY PODGORETSKY
Einheit-Crypt32;
{
*************************************************************************
* Name:Crypt32.Pas *
* Beschreibung: 32-Bit Codieren/Decodieren-Modul *
* 2 ^ 96 Varianten ist es sehr hohe Kerbe * versuchen
* Zweck: Gut zum Verschlüsseln der Kennwörter und Text *
* Sicherheit: vermeiden Sie StartKey weniger als 256 *
* Falls es nur für den Dienstgebrauch verwenden, verwenden Sie Standard *
* Lösung, aber ändern Einheit vor dem Kompilieren *
* Rufen: verschlüsselt: = Encrypt(InString,StartKey,MultKey,AddKey) *
* Entschlüsselt: = Decrypt(InString,StartKey) *
* Parameter: InString = lange Zeichenfolge (max. 2 GB), die zum Verschlüsseln müssen *
* Entschlüsseln *
* MultKey = MultKey Schlüssel *
* AddKey = zweite Taste *
* StartKey = dritte Taste *
*(posible Use Defaults from Interface) *
* Return: OutString = Ergebnis Zeichenfolge *
* Editor: Besr mit Tabstopps angezeigt = 2, Courier neu *
* Gestartet: 01.08.1996 *
* Revision: 22.05.1997 - ver.2.01 konvertiert von Delphi 1 *
* und alle Tasten als Parameter gemacht, nur vor dem Starten Taste *
* Plattform: Delphi 2.0, 3.0 *
Arbeit in Delphi 1.0, 2 ^ 48 Varianten, 0..255 Zeichenfolgen *
* Autor: Anatoli Podgoretsky *
* Base Alghoritm von Borland *
* Adresse: Vahe 4-31, Johvi (Estland), EE2045, tel. 61-142 *
* Das [email protected] *
* Status: Freeware, aber jeder Sponsor werden Hilfe schätzen hier *
* brauchen Sie, kaufen, Bücher, sharewareprodukte, Werkzeuge etc.
*************************************************************************
* Geändert: Delphi 1.0 & 2.0 unterstützt *
* Überlauf Überprüfung entfernt *
* Von: Martin Djernæs *

* e-mail: [email protected] *
* web: einstein.ot.dk/'djernaes *
*************************************************************************
}
Schnittstelle
const
StartKey = 981; {Start Standardschlüssel}
MultKey = 12674; {Mult Standardschlüssel}
AddKey = 35891; {Add Standardschlüssel}
Encrypt-Funktion (const InString:string; StartKey, MultKey, AddKey:Integer): string;
Funktion zu entschlüsseln (const InString:string; StartKey, MultKey, AddKey:Integer): string;
Umsetzung
{$R-}
{$Q-}
{*******************************************************
* Standard-Verschlüsselungsalgorithmus - kopiert von Borland *
*******************************************************}
Encrypt-Funktion (const InString:string; StartKey, MultKey, AddKey:Integer): string;
var
Ich: Byte;
beginnen
Ergebnis: = '';
für I: = 1 StringVar do
beginnen
Ergebnis: = Ergebnis + CHAR(Byte(InString[I]) Xor (StartKey Shr 8));
StartKey: = (Byte(Result[I]) + StartKey) * MultKey + AddKey;
Ende;
Ende;
{*******************************************************
* Standard Entschlüsselungsalgorithmus - kopiert von Borland *
*******************************************************}
Funktion zu entschlüsseln (const InString:string; StartKey, MultKey, AddKey:Integer): string;
var
Ich: Byte;
beginnen
Ergebnis: = '';
für I: = 1 StringVar do
beginnen
Ergebnis: = Ergebnis + CHAR(Byte(InString[I]) Xor (StartKey Shr 8));
StartKey: = (Byte(InString[I]) + StartKey) * MultKey + AddKey;
Ende;
Ende;
{$R+}
{$Q+}
Ende.