Как зашифровать текст и поместить его в файл

← →
AndreySoft (2003-08-28 13:06) [0]

Допустим так: я ввожу в Edit какое-нибудь слово и нажимаю кнопку Button1, в результате прога должна поместить это слово в текстовый файл, но только в зашифрованном виде, а ещё как бы это же слово считать из файла и поместь на форму, только не в зашифрованном виде, а уже в расшифрованном.
Кто-нибудь знает, как это делается?

← →
Е-Моё имя (2003-08-28 13:09) [1]

>>как это делается?
прогу надо написать, она это будет делать
а именно:
>>поместить это слово в текстовый файл, но только в зашифрованном виде, а ещё как бы это же слово считать из файла и поместь на форму, только не в зашифрованном виде, а уже в расшифрованном

← →
AndreySoft (2003-08-28 13:17) [2]

Я понимаю что прогу надо написать!
Ну а сама процедура шифрования, дешифрования тебе известна?

← →
Skier (2003-08-28 13:17) [3]

var
Key : Char;
begin

Key := "A";
//"кодируем" символ (Ord(Edit.Text[n]) + Ord(Key)) mod 256
//"декодируем" символ (Ord(Edit.Text[n]) - Ord(Key)) mod 256

end;

← →
Camus (2003-08-28 13:19) [4]

Если не нужна сверхсекретность, то, например, так.

const
CodeShift = 31;

procedure EncodeString(var S: string)
var
i: integer;
begin
for i := 1 to Length(S) do
S[i] := Char(Byte(S[i]) - CodeShift);
end;

procedure DecodeString(var S: string);
var
i: integer;
begin
for i := 1 to Length(S) do
S[i] := Char(Byte(S[i]) + CodeShift);
end;

← →
AndreySoft (2003-08-28 13:21) [5]

А если целиком слово, а не одну букву, то как?
Дай пример пожалуйста.

← →
Skier (2003-08-28 13:22) [6]

> А если целиком слово, а не одну букву, то как?

Белены объелся что ли ?!

← →
Е-Моё имя (2003-08-28 13:23) [7]

>>Белены объелся что ли ?!
ну дык разве не заметно? ;)))))))))))))))))

← →
AndreySoft (2003-08-28 13:23) [8]

Да, сам ты калич! Ты толком объясни - как.

← →
Е-Моё имя (2003-08-28 13:26) [9]

опечатка
толком->танкам
а танкам объяснить ничо нельзя
почему?
потому что они танки

← →
VAleksey (2003-08-28 13:27) [10]

> AndreySoft ©

Надо думаю сначала книги почитать. По програмированию.
While, там For, Repeat .. Until ... И что такое строка. Прочти обязательно.

PS
Вот так всю строку. От начала и до конца... А потом наоборот. И так каждый раз :-(
PPS
;-),:-)

← →
AndreySoft (2003-08-28 13:29) [11]

>> Е-Моё имя © (28.08.03 13:26) [9]
>опечатка
>толком->танкам
>а танкам объяснить ничо нельзя
>почему?
>потому что они танки

Да ты я гляжу приколист местный!

← →
AndreySoft (2003-08-28 13:32) [12]

>>VAleksey © (28.08.03 13:27) [10]

Я типа книги читаю. И думаю не меньше тебя.
И мне не нужно, чтобы ты тут сидел и рассказывал мне что такое строка, я знаю что такое строка. Так что не надо умничать.

← →
HolACost! (2003-08-28 14:04) [13]

http://delphibase.endimus.com/ - For very clever men! (For super programmers, not for as - mortal people)
Что-то мне надо таких господ каждый день на одно их заднее местоь ставить клеймо - нагл,. но думает он не тем, хотя заблуждаясь, полагает что тем!

← →
Е-Моё имя (2003-08-28 14:07) [14]

>>приколист местный!
не местный, но федеральный
аз есмь
аки паки

HolACost! © (28.08.03 14:04)
во-во, адресок как раз для таких, как он )))))))

← →
Skier (2003-08-28 14:14) [15]

not for us

← →
AndreySoft (2003-08-28 14:17) [16]

>>Skier © (28.08.03 14:14) [15]
>not for us

Что не для Вас?

← →
HolACost! (2003-08-28 14:17) [17]

Очипятался! Это заметил!

← →
Reindeer Moss Eater (2003-08-28 14:18) [18]

Почему не для Штатов?

← →
VAleksey (2003-08-28 14:22) [19]

> AndreySoft ©

Мдяя... А я тебе еще и помогал. :-(. Жаль.
Может тогда просвятишь нас, что такое строка?

← →
AndreySoft (2003-08-28 14:25) [20]

Строка имеет тип String или AnsiString

← →
Е-Моё имя (2003-08-28 14:25) [21]

в натуре знает
пацаны, не трожьте ево, он риальный чувак оказываеца!
))))))))))))))))))))))))))))

← →
VAleksey (2003-08-28 14:27) [22]

> AndreySoft ©

А что внутри строки находится? Из каких элементов она состоит? Каким типом можно рассматривать строку?

> Е-Моё имя ©

:-) Ты поднимаешь мне настроение. Только бы до меня не добрался ;-).

← →
Jeer (2003-08-28 14:30) [23]

Ну поглумились, будет Вам, будет.
Может это будущий Митник, Гейтс, etc.

>AndreySoft ©
Вам же, Надежда Нации, ответили конкретно и по теме.
Демонстрировать дальше Ваше невежество и растопырку Вам же в убыток.
Перейдите на другой тон и результат будет другой.

← →
Е-Моё имя (2003-08-28 14:30) [24]

VAleksey © (28.08.03 14:27)
;-ь

← →
HolACost! (2003-08-28 14:30) [25]

Чё правда? Он знает - не верю (Станиславский)!!!!
Наверное перевёл "строка" на англицки и пробил справку на ето слово - хотя для него это наверное сложновато!
PS: Are you saw link or not?

← →
Skier (2003-08-28 14:32) [26]

>HolACost! © (28.08.03 14:30)
Да что же такое-то, а ?! :))

Did you see the link or not?

← →
HolACost! (2003-08-28 14:32) [27]

Таки е Люди Митнико-подобным не станут!!! как говорится - хакер - это не тот кто ломает, а тот кто переваривает и находит тучу информации!

← →
HolACost! (2003-08-28 14:33) [28]

Это я цитирую! Я сам это не пишу - у меня глюки с раскладкой!

← →
Е-Моё имя (2003-08-28 14:34) [29]

>> тот кто переваривает и находит тучу
а кто не переваривает, тот выдает тучу
диарея типа называецца по-научному

← →
AndreySoft (2003-08-28 14:35) [30]

>>VAleksey © (28.08.03 14:27) [22]
Внутри строки находятся символы,
а строку можно рассматривать ещё таким типом как Variant.

>> Jeer © (28.08.03 14:30) [23]
А я и не проявляю невежество, просто чуваки держат меня за идиота и сами первые наезжают.

← →
Delirium (2003-08-28 14:36) [31]

← →
Skier (2003-08-28 14:38) [32]

И ещё пусть расскажет про {$H+/-} :)

← →
HolACost! (2003-08-28 14:39) [33]

Значит неправильно держат? Ну сомниваюсь - ты нас переубеди!
Всё что тут тебя просят пояснить и рассказать - полный развод, а ты ведёшься!
Глупости нести не надо! Variant - это вообще нечно! Строку в любом виде можно представить! - принципиально совсем не тип её, а ей смысл - на Ц вообще строки отсутствуют как тип - что по вашему нет там строк значит и работать с ними нельзя?!!! Бред - клиника!

← →
AndreySoft (2003-08-28 14:39) [34]

>> Delirium © (28.08.03 14:36) [31]

Тем что АнсиСтринг более расширенный вариант типа Стринг, и включает в себя дополнительные символы, которые не понимает Стринг.

← →
Skier (2003-08-28 14:41) [35]

>AndreySoft © (28.08.03 14:39)
Great !
Андрей Васильевич, а как Вам это :
In the default {$H+} state, the compiler interprets string (when it appears without a bracketed number after it) as AnsiString.

← →
HolACost! (2003-08-28 14:41) [36]

А лучше про конструкцию
Браин := ТБраин.Криате(...<я думаю догадались>); Браин.Енабле := Труе;

← →
Reindeer Moss Eater (2003-08-28 14:42) [37]

А какие именно символы "не понимает" string?

← →
VAleksey (2003-08-28 14:43) [38]

← →
Е-Моё имя (2003-08-28 14:45) [39]

← →
AndreySoft (2003-08-28 14:45) [40]

>>Skier © (28.08.03 14:41) [35]
>In the default {$H+} state, the compiler interprets string (when it appears without a bracketed number after it) as AnsiString.

Well also what you to me new have told?

Как зашифровать текст и поместить его в файл Найти похожие ветки