Главная страница
    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.084 c
2-1346166751
avil
2012-08-28 19:12
2013.03.22
tcombobox со своими правилами


15-1340346931
AV
2012-06-22 10:35
2013.03.22
Похоже что-то с машинкой.. Все так медленно с утра


9-1193310589
fars
2007-10-25 15:09
2013.03.22
Программирование логических игр


3-1286948670
Ciberrus
2010-10-13 09:44
2013.03.22
ошибка property already defined by lookup field


15-1342182880
DevilDevil
2012-07-13 16:34
2013.03.22
OpenMP vs Multithread





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский