| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

menart ©   (2002-12-19 21:35:00) 

Мастера подскажите как шифровать!
В С это делается так:
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);
}
}

---

Дмитрий К.К.   (2002-12-20 10:07:00) [1]

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

---

sniknik   (2002-12-20 08:31:00) [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;

---

sniknik   (2002-12-19 21:52:00) [3]

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

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

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

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

---

Наверх