Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

спрятать password 


Masterok   (2002-03-27 23:40) [0]

Задача: в текстовом файле нужно спрятать пароль состоящий из букв и цифр.
Пароль просто не должны узнать через блокнот. Без доп. компонет.
Можно сделать так:
разбить строку на символы, записать в фаил коды символов, а потом читать (CHR) и складывать назад в строку.

Только как это сделать? Что-то у меня не получается писать.
Может есть какая-то стандартная функция типа смещения...
Помогите пожалуйста



Anatoly Podgoretsky   (2002-03-28 00:09) [1]

Существует такой метод в криптографии, пишет нужный текст разбитый на буквы, затем из букв создаются слова, это могут быть первые буквы, но в сложно случае первое слово первая буква, второе слово - вторая и так делее по модулю.
Твоя задача составить из букв слова и связное предложение.



SuperIgor   (2002-03-28 00:14) [2]

Я когда-то писал программу шифрования файлов с использованием этого метода(CHR). Если хочешь дай мыло я тебе скину программу
Или кусок с использованием CHR. Я щас не дома я не помню точно поэтому не буду писать код.



Masterok   (2002-03-28 00:19) [3]

Мне не нужно наворотов.
главное, чтобы просто посмотрев на строчку человек не понял, что там на самом деле написано.
Интересует любой простой вариант.
Я могу и на ASM вставку сделать и тп. Но нужно что-то очень простое.



Anatoly Podgoretsky   (2002-03-28 00:40) [4]

Masterok (28.03.02 00:19)
Ну так я тебе ответил, это будет выглядеть как оычный текс, желательно его сделать достаточно большим и абстрактным, а позиции символов пароля храни в программе, но вообще то жто странное желание.



anod   (2002-03-28 00:43) [5]

Очень просто - сдвиг на n символов по ASCII



Masterok   (2002-03-28 00:44) [6]

Согласен, странное, но такова задача.
Нельзя делать наворотов.
У меня установлена сейчас какая-то компонета для криптографии, но юзать её я не хочу...



SuperIgor   (2002-03-28 00:46) [7]

Советую записывать в файл не коды символов а сам символ только с кодом на n большим чем настоящий.
Можно сделать с помощью процедур Ord & Chr.
Если что я прийду доиой завтра и сюда кину кусок кода если.
Так что завтра сюда зайди сюда и напиши что думаешь ...



Masterok   (2002-03-28 01:39) [8]

Я так пытался следать, но что-то у меня не получилось.
А ошибку искать просто некогда было



SuperIgor   (2002-03-28 02:05) [9]

Masterok>
Завтра пришлю сюда код
Раскажи что именно нужно
Записать в файл некоторую строку в закодированов виде Правильно???



Chepel   (2002-03-28 02:49) [10]

Ну если очень просто - то сделай XOR с каким-нить числом по всем буквам. Для расшифровки - повтори операцию. =)

function EncodeDecode(const st:string): string;
var
i, cnt: Integer;
begin
Result := "";
cnt := Length(st);
for i:=1 to cnt do
Result := Result + Char(Byte(st[i]) xor 12{<-whatever});
end;



Alx2   (2002-03-28 09:15) [11]

С ходу можно предложить такое хранение пароля в текстовом файле:
Пусть слова в тексте разделены пробелами. Тогда паролем можно считать бинарную запись, n-й бит которой равен "0" если n-я серия пробелов состоит из двух пробелов, разделенная, например, семью символами и 1 - если из одного пробела, в окрестностях которого более семи "непробелов".

Сам текст можно шифровать не используя пробелов, которым отводится служебная роль. :)



NS   (2002-03-29 01:26) [12]

А лучще всего - solt!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.045 c
1-32817           Alibaba               2002-04-01 12:36  2002.04.11  
масив


3-32644           ppp                   2002-03-18 11:06  2002.04.11  
Кодировка таблицы


1-32877           XAU                   2002-03-28 18:01  2002.04.11  
тип Variant


1-32828           LiNkS                 2002-03-28 18:39  2002.04.11  
GIF в Delphi


1-32902           PlaZZma               2002-03-29 22:00  2002.04.11  
Может это что-то глючит?