Главная страница
    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.06 c
15-1349680247
Scott Storch
2012-10-08 11:10
2013.03.22
uml


15-1350918593
Artem
2012-10-22 19:09
2013.03.22
Как защититься? Не очень разбираюсь.


2-1340949433
Виктор
2012-06-29 09:57
2013.03.22
Delphi - Excel, автоматическое создание гиперссылки


2-1335294638
Jonis_84
2012-04-24 23:10
2013.03.22
После запуска вылетает


15-1352269270
Chorus
2012-11-07 10:21
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский