Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Кто знает как использовать DCPCrypt библиотеку?   Найти похожие ветки 

 
Разведка   (2012-11-26 20:17) [0]

У меня не получается DES алгоритм. нужно получить NThash
У меня не получается DES шифрование.
По условию, что бы его получить нужно
строку перевести в юникод -> Получить -> MD4 hash -> потом получить хеш DES

Попробовал сделать так:
А на выходе бредятена какаято H0ionQ4HenqRjw==

var
 des: TDCP_des;
 NTKey: string; // "4B47532140232425"; Key для DES алгоритма NThash
begin

 NTKey := "4B47532140232425";
 des:=TDCP_des.Create(self);
 des.InitStr(StrHexToStr(NTKey),TDCP_md4);
 Memo2.Lines.Add(des.EncryptString(StrToUnicode(Edit1.Text)));


 
stas ©   (2012-11-26 22:14) [1]

А чего решил что бредятина, попробуй дешифровать, если дешифруется значит все правильно.


 
QAZ9   (2012-11-26 22:15) [2]

Удалено модератором


 
DVM ©   (2012-11-26 22:48) [3]


>  Memo2.Lines.Add(des.EncryptString(StrToUnicode(Edit1.Text)));

оптимистично это очень, ожидать, что после шифрования получится текст.


 
Rouse_ ©   (2012-11-26 22:52) [4]

Все верно, EncryptString = зашифровать.
Для дешифровки обратное...


 
Разведка   (2012-11-27 00:45) [5]


> DVM ©   (26.11.12 22:48) [3]
> >  Memo2.Lines.Add(des.EncryptString(StrToUnicode(Edit1.
> Text)));оптимистично это очень, ожидать, что после шифрования
> получится текст.


Ну так хеш то и не получается. Я вообще ни как не пойму как при и использование DES можно получить хеш? Или все же должен получится шифр а не хеш?


 
RWolf ©   (2012-11-27 01:05) [6]

разумеется, это же шифр, а не хэш-функция
впрочем, результат вполне сойдёт и за хэш.


 
Студент   (2012-11-27 03:18) [7]

Разведка   (27.11.12 00:45) [5]
Ты когда шифруешь получаешь последовательность цифр, выводить ее как есть в Memo1 бессмысленно, получишь что то типа "@". Если хочешь посмотреть что получается введи переменную и посмотри значение после шифрование на точке останова.


 
stas ©   (2012-11-28 19:22) [8]

Разведка   (27.11.12 00:45) [5]
Шифр. Это означает что его можно расшифровать.


 
картман ©   (2012-11-28 19:33) [9]

автор хочет такой шифр, чтобы зашифровал, скажем, Войну и мир, а на выходе - Война миров)))


 
Разведка   (2012-11-29 11:22) [10]


> stas ©   (28.11.12 19:22) [8]
> Разведка   (27.11.12 00:45) [5]Шифр. Это означает что его
> можно расшифровать.


> картман ©   (28.11.12 19:33) [9]
> автор хочет такой шифр, чтобы зашифровал, скажем, Войну
> и мир, а на выходе - Война миров)


Спасибо, научили, я то думаю что это я "Войну и мир" ранее прочитать не мог, так над ней уже поработали :-)


 
Inovet ©   (2012-11-29 11:50) [11]

> [9] картман ©   (28.11.12 19:33)
> автор хочет такой шифр, чтобы зашифровал, скажем, Войну
> и мир, а на выходе - Война миров)))

Так это ещё и компрессор. Или там краткое изложение после расшифровки получается?


 
Разведка   (2012-11-29 13:04) [12]


> Inovet ©   (29.11.12 11:50) [11]

"Б" упала "И" пропала, что осталось на трубе?


 
Empleado ©   (2012-11-29 13:13) [13]


> stas ©   (28.11.12 19:22) [8]
> Шифр. Это означает что его можно расшифровать.

не факт ;)


 
Разведка   (2012-11-29 13:30) [14]


> stas ©   (28.11.12 19:22) [8]
> Разведка   (27.11.12 00:45) [5]Шифр. Это означает что его
> можно расшифровать.


А если нелзя его расшифровать, тогда что будет?


 
Inovet ©   (2012-11-29 14:21) [15]

> [12] Разведка   (29.11.12 13:04)
> "Б" упала "И" пропала, что осталось на трубе?

Ваша "А".



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.061 c
15-1350304912
8903765 0706
2012-10-15 16:41
2013.03.22
Внимание! Ищут машину, которая сбила 15.09 ребенка на стоянке


15-1338481548
М
2012-05-31 20:25
2013.03.22
Поиск файла в подкаталогах.


15-1352493094
Дмитрий С
2012-11-10 00:31
2013.03.22
Вопрос по схемотехнике.


3-1281338050
Patrick
2010-08-09 11:14
2013.03.22
Проблема с Collation


15-1344156481
wl
2012-08-05 12:48
2013.03.22
машинка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский