Шифрование данных

← →
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]

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

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