Форум: "Прочее";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
ВнизШифрование для 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.
← →
Рамиль © (2008-01-30 09:19) [5]
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 самостоятельно:)
← →
palva © (2008-01-30 09:56) [6]http://www.cityinthesky.co.uk/cryptography.html
http://www.google.com/Top/Computers/Programming/Languages/Delphi/Cryptography/
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.055 c