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

Шифрование данных   Найти похожие ветки 

← →
menart ©   (2002-12-19 21:35) [0]

Мастера подскажите как шифровать!
В С это делается так:
using System;
class Enicode {
public static void main () {
string msg="Secret Text";
string encmsg= "";
string decmsg= "";
int key=88;

//Шифрование

for (int i=0; i < msg.lenght; i++)
encmsg=encmsg+(char)(msg[i]^key);

//Расшифровка
for (int i=0; i < msg.lenght; i++)
decmsg=decgmsg+(char)(encmsg[i]^key);
}
}

---

← →
sniknik ©   (2002-12-19 21:52) [1]

случаем форум не перепутал?

все то же самое, только структура ресорд (их хелпа)

TFigure = record
case TShapeList of
Rectangle: (Height, Width: Real);
Triangle: (Side1, Side2, Angle: Real);
Circle: (Radius: Real);
Ellipse, Other: ();
end;

тут усложнение переменных по две, но смысл тот же начало расположения с одного адреса.

---

← →
sniknik ©   (2002-12-20 08:31) [2]

Чегото я напутал, не с переводом рекорда у тебя проблемы скорее всего, да и тип не тот. Конечно можно и в дельфи классом сделать со свойствами читать шифрованное/нет. но я бы сделал просто функцию. или вот пример самого "шифрования"

const msg: string = "Secret Text";
key: byte = 88;
var
p: ^byte;
i: integer;
begin
Label1.Caption:= msg;
p:= @msg[1];
for i:= 1 to Length(msg) do begin
p^:= p^ xor key;
inc(p);
end;
Label2.Caption:= msg;
p:= @msg[1];
for i:= 1 to Length(msg) do begin
p^:= p^ xor key;
inc(p);
end;
Label3.Caption:= msg;
end;

---

← →
Дмитрий К.К. ©   (2002-12-20 10:07) [3]

Шифрование данных... базы данных... все ето хде-то рядом... наверное...

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.01 c