Главная страница
    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.064 c
15-1346743469
Dimka Maslov
2012-09-04 11:24
2013.03.22
Бубен не помогает.


2-1342616239
Люда
2012-07-18 16:57
2013.03.22
Tab в onKeyDown, onKeyPress


2-1339918135
Pcrepair
2012-06-17 11:28
2013.03.22
Структура кода при обработке текстов


4-1258536064
mambo
2009-11-18 12:21
2013.03.22
Градиентный прогрес в отдельном потоке


15-1348161804
ClawClaw
2012-09-20 21:23
2013.03.22
Глюк в Сапёре? (Windows 7)





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