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));

eSKey, что-то я не понял, а расшифровывать твое художесвто как?

SysUtils Найти похожие ветки