Шифрование для delphi

← →
_Илья (2008-01-29 23:57) [0]

Подскажите, где можно найти исходники для шифрования различными алгоритмами.

Ну например:
Blowfish
Cast 128
Cast 256
DES, 3DES
Ice, Thin Ice, Ice2
IDEA
Mars
Misty1
RC2, RC4, RC5, RC6
Rijndael (the new AES)
Serpent
Tea
Twofish

Я знаю про DCPCrypt, но мне нужны исходники с наименьшими включениями сложных массивных классов из delphi, т.е. мне не хочется что бы из-за включения класса/функций шифрования, возрастал размер dll-библиотеки до 100—300К.

Спасибо!

← →
korneley © (2008-01-30 00:04) [1]

Опять пытаемся незаметного шифрующегося трояна написать? А размер, чтоб не попалили?

← →
antonn © (2008-01-30 00:16) [2]

как показала практика - чем больше размер, тем больше клиентов %)

← →
Eraser © (2008-01-30 00:29) [3]

http://sourceforge.net/projects/tplockbox/

← →
Eraser © (2008-01-30 00:30) [4]

а можно вообще не заморачиваться, а использовать CryptoAPI.

unit TeaCrypt; interface uses Classes, SysUtils; type TKey = array[0..3] of LongWord; //128-ми битный ключ TBlock = array[0..1] of LongWord; //64-х битный блок TTea = class(TObject) private FKey: TKey; FAutoClearKey: boolean; procedure SetKey(const Value: TKey); procedure EnCryptBlock(var Block: TBlock); //шифрование блока procedure DeCryptBlock(var Block: TBlock); //дешифрование блока function XORBlocks(var Block1, Block2: TBlock): TBlock; //xor двух блоков function ConcatBlocks(var Block1, Block2: TBlock): TKey; //сцепление двух блоков procedure SetAutoClearKey(const Value: boolean); public constructor Create; property Key: TKey read FKey write SetKey; //ключ //автоматическая очистка ключа после шифрования информации property AutoClearKey: boolean read FAutoClearKey write SetAutoClearKey; procedure ClearKey; //принудительная очистка ключа procedure HashPassword(Password: string); //преобразование пароля в ключ procedure EnCryptStream(Stream: TStream); //шифрование потока procedure DeCryptStream(Stream: TStream); //дешифрование потока procedure EnCryptFile(FileName: string); //шифрование файла procedure DeCryptFile(FileName: string); //дешифрование файла procedure EnCryptString(var Buffer: string); //шифрование строки procedure DeCryptString(var Buffer: string); //дешифрование строки destructor Destroy; override; end; implementation

Домашнее задание, написать implementation самостоятельно:)

http://www.cityinthesky.co.uk/cryptography.html
http://www.google.com/Top/Computers/Programming/Languages/Delphi/Cryptography/

Шифрование для delphi Найти похожие ветки