PDA

View Full Version : آموزش: یک تکه کد ساده برای کد کردن و دیکد کردن فایلها!



BORHAN TEC
جمعه 11 دی 1388, 22:40 عصر
اگر کد زیر را یک بار روی یک فایل اعمال کنیم فایل کد می شود واگر یکبار دیگر بر روی همان فایل اعمال کنیم فایل دیکد میشود. باید تاکید کنم که این کد بسیار ساده است و فقط برای آموزش مفهوم کد و دیکد است والا در عمل بهتر است از الگرویتمهای امن تر استفاده شود.


var
F : File;
I: Integer;
S: Char;
tmp : Char;
begin
AssignFile(F,'D:\1.exe');
if FileExists('D:\1.exe') then
reset(F,Sizeof(S))
else
Exit;
if FileSize(F)<=255 then
for I := 0 to FileSize(F)-1 do
Begin
BlockRead(F,S,1);
S := Char(ord(S) XOR 123); // Key is 123
Seek(F,I);
BlockWrite(F,S,1);
End
else
for I := 0 to 256 do
Begin
BlockRead(F,S,1);
S := Char(ord(S) XOR 123); // Key is 123
Seek(F,I);
BlockWrite(F,S,1);
End;
CloseFile(F);
end;