Сообщений в теме: 24

[Xaos|CuHTe3]

Кто какие знает методы шифрования (желательно с ссылками и\или исходниками на Pascal\Delphi)

[Jus]

Ну вот , например. Как и просили, с исходниками
А вообще, как обычно, поиск рулит..

[Dima_13]

Самый стандартный способ
http://www.pgpi.org/

[dzid]

ls /usr/src/linux/crypto/*.c

Гы

[Baron D' Krot]

function Decode(const S: AnsiString): AnsiString;  
const  
  Map: array[Char] of Byte = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 0, 63, 52, 53,  
	54, 55, 56, 57, 58, 59, 60, 61, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2,  
	3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,  
	20, 21, 22, 23, 24, 25, 0, 0, 0, 0, 0, 0, 26, 27, 28, 29, 30,  
	31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,  
	46, 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  
	0);  
var  
  I: LongInt;  
begin  
  case Length(S) of  
	2:   
	  begin  
		I := Map[S[1]] + (Map[S[2]] shl 6);  
		SetLength(Result, 1);  
		Move(I, Result[1], Length(Result))  
	  end;  
	3:   
	  begin  
		I := Map[S[1]] + (Map[S[2]] shl 6) + (Map[S[3]] shl 12);  
		SetLength(Result, 2);  
		Move(I, Result[1], Length(Result))  
	  end;  
	4:   
	  begin  
		I := Map[S[1]] + (Map[S[2]] shl 6) + (Map[S[3]] shl 12) +  
		  (Map[S[4]] shl 18);  
		SetLength(Result, 3);  
		Move(I, Result[1], Length(Result))  
	  end  
  end  
end;  

function Encode(const S: AnsiString): AnsiString;  
const  
  Map: array[0..63] of Char = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +  
	'abcdefghijklmnopqrstuvwxyz0123456789+/';  
var  
  I: LongInt;  
begin  
  I := 0;  
  Move(S[1], I, Length(S));  
  case Length(S) of  
	1:  
	  Result := Map[I mod 64] + Map[(I shr 6) mod 64];  
	2:  
	  Result := Map[I mod 64] + Map[(I shr 6) mod 64] +  
		Map[(I shr 12) mod 64];  
	3:  
	  Result := Map[I mod 64] + Map[(I shr 6) mod 64] +  
		Map[(I shr 12) mod 64] + Map[(I shr 18) mod 64]  
  end  
end;  

Base64 кодирование

[Baron D' Krot]

Если надо есть алгаритм md5

[Xaos|CuHTe3]

Если надо есть алгаритм md5

Можешь кинуть на мыло? mailto:armantu@mail.kz

[Xaos|CuHTe3]

Thanks a lot, Baron D' Krot . Но!
Как можно по хэшу восстановить текст? Кроме брут-форса.
Как я понял, md5 подходит только для хранения паролей (или чего-то подобного), а расшифровке (по ключу или еще чему) не поддается.

Сообщение отредактировал Xaos|CuHTe3: 30.01.2006, 17:57:01

[Jus]

Thanks a lot, Baron D' Krot . Но!
Как можно по хэшу восстановить текст? Кроме брут-форса.
Как я понял, md5 подходит только для хранения паролей (или чего-то подобного), а расшифровке (по ключу или еще чему) не поддается.

Совершенно в дырдочку!
Именно для того хэш и придуман - чтоб исходный текст можно было только брутфорсом восстановить.
А ежели надо ещё и расшифровывать - то другой алгоритм надо.

[Baron D' Krot]

А ежели надо ещё и расшифровывать - то другой алгоритм надо.

MD5 не расшифровывается...

[Xaos|CuHTe3]

Млин, а есть нормальный алгоритм шифрования по ключу?(XOR слишком легко, RSA слишком долго)

[Vadziku]

Млин, а есть нормальный алгоритм шифрования по ключу?(XOR слишком легко, RSA слишком долго)

Ну если ключ одноразовый, и длина равна длине сообщения, то простой XOR превращается в шифр с абсолютной криптостойкостью.

Шутка конечно, я понимаю что вам нужно другое

Сообщение отредактировал Vadziku: 31.01.2006, 14:57:00

[Baron D' Krot]

Что ты вобще шифровать хочешь

[Dima_13]

В интернете есть много реализаций различных алгоритмов шифрования. Например можно посмотреть на
http://www.schneier.com/blowfish.html

[tooshiba]

www.sources.ru

[Jao]

- Стандарт симметричного шифрования - DES (2Des, 3Des).
- Стандарт несимметричного шифрования - RSA.
Бесплатный сорсов и компонентов по обоим алгоритмам на паскале в инете тьма. DES раз в 40 быстрее RSA (по опыту)

Что касается MD5, ГОСТ, SHA, ADLER, HAVAL, RIPEMD - то это скорее не алгоритмы шифрования, а алгоритмы хеширования (применяются в процедуре генерации цифровой подписи или для безопасного хранения пароля).

[Вини]

А ежели надо ещё и расшифровывать - то другой алгоритм надо.

MD5 не расшифровывается...

Что-то новенькое...
А зачем тогда был сделан md5inside
Согласен, на расшифровку md5 хешей уходит много времени но это реально
Или брут не расшифровка?

[Xaos|CuHTe3]

Что ты вобще шифровать хочешь

Пишу программу-шифратор на Дельфи. Пытаюсь придумать эффективный комбинированный алгоритм. Т.е использовать несколько алгоритмов шифрования одновременно.

Или брут не расшифровка?

ИМХО брут не расшифровка

[Vadziku]

Пишу программу-шифратор на Дельфи. Пытаюсь придумать эффективный комбинированный алгоритм. Т.е использовать несколько алгоритмов шифрования одновременно.

А чем стандартные-то алгоритмы не устраивают, в смысле чем неэффективны? Им на самом деле несть числа.

[Gloomy]

использовать несколько алгоритмов шифрования одновременно.

Оно того не стоит - один проход с ключем 64bit все равно лучше двух по 32bit ...
Нынче длины ключей поболее, но математика от этого ну ни как не меняется