Текущий архив: 2002.05.06;
Скачать: CL | DM;
Вниз
SysUtils Найти похожие ветки
← →
HDD (2002-04-22 16:53) [0]Люди добрые как можно с помощью SysUtils зашифровать и расшифровать текст!
Заранее благодарен
← →
Cobalt (2002-04-22 17:43) [1]А почему именно > с помощью SysUtils ?
Насколько я знаю, там нет функций шифрования.
Ищите документацию по алгоритмам шифрования (скорее всего понадобится изучать ассемблер), и пишите собственные функции...
"Удачи в темных делах" ;))
← →
kull (2002-04-22 17:45) [2]
> (скорее всего понадобится изучать ассемблер),
???????????????
← →
eSKey (2002-04-22 17:48) [3]
> Cobalt
Насколько я знаю, там нет функций шифрования.
Да не ты не понял =) все можно, и даже без SysUtils
ответ HDD - с помощью xor"а :) Шифрование правда будет еще то, зато дешево и сердито ;)
← →
Леха_ (2002-04-22 17:51) [4]Поищи в инете там функций и компонент для шифрования вагон и маленькая тележка
Почитай теорию и напиши свои
А в Sysutils по моему таких функций нет
← →
EAlexander (2002-04-22 18:12) [5]torry.net
там простой и надежный метод есть - с копирайтом и не только Самого Подгорецкого :):)
← →
HDD (2002-04-23 06:41) [6]Да EsKey прав! Мож чё подскажите!
← →
perov (2002-04-23 08:21) [7]http://crypto-central.com/
← →
eSKey (2002-04-23 11:16) [8]Простейший пример, без гарантий работоспособности, не застрахован от ошибок :)
//Cryptkey - лонгинт ключ генерации
//sourcestr - исходная строка
//cryptstr - зашифрованная строка
randseed:=-abs(Cryptkey); // нужно отрицательное значение (не уверен ;))
for i:=1 to length (sourcestr) do
cryptstr[i]:=char(byte(sourcestr[i]) xor random(256));
← →
Timon (2002-04-23 11:23) [9]eSKey, что-то я не понял, а расшифровывать твое художесвто как?
← →
VictorT (2002-04-23 11:36) [10]
> Timon © (23.04.02 11:23)
Ещё раз зашифровать зашифрованный текст по тому же ключу.
Страницы: 1 вся ветка
Текущий архив: 2002.05.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.005 c
