لفك وتشفير صفحة html بالجافا سكربيت

program sHTML;
{$APPTYPE CONSOLE}
uses
sysutils;

var
Bt: Byte;
Pff: String;
Huh: TextFile;
F: File of Byte;

begin
WriteLn;
WriteLn('sHTML - simple HTML encoder.');
WriteLn;
if paramcount=0 then Begin
WriteLn('sHTML FILE.HTML');
WriteLn('Or Drag & Drop an HTML file on me!');
Writeln(#10#13'Press ENTER');
Readln;
Halt(1);
End;

Pff := 'index.htm';
if paramcount<>0 then Pff:=Paramstr(1);

Write('Opening :'+Pff);

AssignFile(F, Pff);
Reset(F);
WriteLn(' OK.');

AssignFile(Huh, Pff+'.HTM');
ReWrite(Huh);

WriteLn(Huh,'');
Write(Huh,'document.write(unescape("');

Write('eNcoding: ');

Repeat
Read(f,bt);
Write(Huh,'\x'+inttoHex(bt,2));

Until Eof(F);
WriteLn(' OK.');

WriteLn(Huh, '"));');
CloseFile(Huh);
CloseFile(F);

WriteLn(#10#13+'Press ENTER');
Readln;
end.

لفك وتشفير صفحة html بالجافا سكربيت 279

من طرف **PANDOL** الثلاثاء فبراير 11, 2014 12:18 pm

لفك وتشفير صفحة html بالجافا سكربيت

لفك وتشفير صفحة html بالجافا سكربيت

رد: لفك وتشفير صفحة html بالجافا سكربيت