 |
|
Модераторы: korob2001, ginnie |
 
|
|
Шифрование в Perl, Срочно... хелп 
| tigor |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
Хай народ!!!
Есть прога на делфе, которая шифрует пароль функцией XOR. Такая задачка...Расшифровывать этот пароль нужно в Perl... а следовательно нужна функция, работающая по томуже принципу что и XOR в Делфе. Люди, срочно надо!!! |
|||
|
||||
Загрузка ...
| Nab |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 582 Регистрация: 25.3.2006 Где: Kiev Репутация: 26 Всего: 37 |
^ -------------------- Чтобы правильно задать вопрос нужно знать больше половины ответа... Perl Community FREESCO in Ukraine |
|||
|
||||
| tigor |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
^ - это аналог логической операции XOR!!!
А мне нужна функция на перле, аналог делфовской xor (шифрование и дешифрование). |
|||
|
||||
| Nab |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 582 Регистрация: 25.3.2006 Где: Kiev Репутация: 26 Всего: 37 |
Мдаааа.... -------------------- Чтобы правильно задать вопрос нужно знать больше половины ответа... Perl Community FREESCO in Ukraine |
|||
|
||||
| tigor |
|
||||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
Что мдаа... если действительно ^ то приведите плиз пример, как юзается... |
||||
|
|||||
| stan777 |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 145 Регистрация: 29.1.2007 Репутация: нет Всего: нет |
А как вообще расшифровывается строка зашифрованная xor'ом, и как шифруется(алгоритм) ? видимо такой должен быть вопрос, так как на перле или нет это не важно.
|
|||
|
||||
| Nab |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 582 Регистрация: 25.3.2006 Где: Kiev Репутация: 26 Всего: 37 |
Вот именно, исходники в делфи что, закрытые?
-------------------- Чтобы правильно задать вопрос нужно знать больше половины ответа... Perl Community FREESCO in Ukraine |
|||
|
||||
| shamber |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 1422 Регистрация: 5.9.2006 Где: Россия Репутация: 17 Всего: 18 |
Nab, ТАк на то оно и Делфи, чтоб в исходниках не ковыряться
 одним словом  |
|||
|
||||
| Nab |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 582 Регистрация: 25.3.2006 Где: Kiev Репутация: 26 Всего: 37 |
 ну тады стоит погадать на кофейной гуще, чего такого интересного шифрует замечательная функция xor в делфи  PS: хотя я помниться когда писал свой класс для работы с mysql напрямую без BDE, излазил исходники свой Делфи3 вдоль и поперек -------------------- Чтобы правильно задать вопрос нужно знать больше половины ответа... Perl Community FREESCO in Ukraine |
|||
|
||||
| tishaishii |
|
|||
 Создатель Профиль Группа: Завсегдатай Сообщений: 1262 Регистрация: 14.2.2006 Где: Москва Репутация: 4 Всего: 8 |
Ну ты знаешь из какой кодировки зашифровано?
Думаю, если windows, то cp1251. Вот, значит, в русском языке буква "а" встречается чаще всего. Попробуй найти в строке наиболее часто повторяющийся символ и сравни с ASCII-кодом русской буквы "а". Затем, вспомни как работает xor и произведи с самым популярным символом обратные действия, в соответствии с полученным опытом при сравнении с буквой "а". Если не удастся раскрыть, не помню, какая следующая по-популярности буква, попробуй найти. Если что, пость файло и укажи кодировку из которой зашифровано. |
|||
|
||||
| arto |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
'в русском языке буква "а" встречается чаще всего' -- это откуда?
|
|||
|
||||
| nitr |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 37 Всего: 84 |
вот это метод... конечно можно оптимизировать... но! Nab всё верно сказал, а в Делфи нет никаких функций xor-шифрования, или у вас что-то иное ))) ?Добавлено @ 22:03 Math::XOR ) |
|||
|
||||
| tigor |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
Прошу прощения за опоздание с ответом...
Короче, мне нужно переписать делфовский код на перл, вот юнит: Это сообщение отредактировал(а) tigor - 26.3.2007, 15:41 |
|||
|
||||
| tigor |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
Вопрос, что значат строки:
# cx:= $015a; # bx:= $4e35; Как я понимаю это в шестнадцатеричном формате... чем их нужно заменить в Perl'е??? |
|||
|
||||
| tigor |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 16.3.2007 Репутация: нет Всего: нет |
Все, господа "умные" программисты, все сделал, всем "спасибо"!!!
|
|||
|
||||
|
|
| Правила форума "Perl" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0523 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |