Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.007 c