Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Шифрование, как расшифровать 
:(
    Опции темы
MacTep
  Дата 1.11.2004, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4
Всем привет! Парни, подскажите. Вот есть такой код зашифровки какого-либо текста (в данном коде я шифрую только один символ):
Код
uses crt;
var ch:char;
   pass:string;
   tmp,k:integer;

begin
 clrscr;
 pass:='abc';
 tmp:=0;
 for k:=1 to length(pass) do
   tmp:=tmp+ord(pass[k]);
 randseed:=tmp;
 ch:='m';
 ch:=chr(ord(ch) xor random(256));
 writeln(ch);
 readkey;
end.

Как теперь расшифровать этот символ (а впоследствии я сделаю и весь текст), т.е. снова получить латинский символ 'm'. Не знаю, подскажите, пожалуйста! :)


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Girder
Дата 1.11.2004, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: нет
Всего: 155
В твоем случаи ни как... :) (если ты конечно не запоминаеш Random(256))

А вообще...
xx:=123;
ch:=v xor XX; //шифруеш... :)
v:=ch xor XX; //расшифровываеш... :)

Удачи.



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
MacTep
Дата 1.11.2004, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4
Просто мне надо сделать такую штуку: вход в программу защитить паролем. А пароль я хочу хранить в ini-файле. Потом его просто расшифровывать при помощи той строки, типа, 'abc', как в примере написал. А вот как расшифровать после такой кодировки, сам не знаю. Может кто-то поскажет какую-нибудь альтернативную идею по этому поводу?


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Pakshin A. S.
Дата 1.11.2004, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
убери ты этот Random, а вместо него любое число подставь (константу)!!!

Код

function CodeDeCodeString(const s:string):string;
var
Code_const = 2005; // Скоро новый год...
var
   c:char;
   i:itneger;
begin
  Result:='';
  for i:=1 to Length(s) do
   begin
    c:=s[i];
    Result:=Result + chr(ord(c) xor Code_const)
   end
end;
PM   Вверх
MacTep
Дата 1.11.2004, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4
И тогда я буду расшифровывать, как посоветовал Girder?


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Pakshin A. S.
Дата 1.11.2004, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Эта функция и шифрует и расшифрует!!! Просто пользуйся!
PM   Вверх
MacTep
Дата 2.11.2004, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4
Я все понял! Спасибо! Уже решил эту проблему! Все окейно! :)


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0468 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.