1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| #!C:\perl\bin\perl.exe -w
print "\x43\x6f\x6e\x74\x65\x6e\x74\x2d\x74\x79\x70\x65\x3a\x20\
x74\x65\x78\x74\x2f\x68\x74\x6d\x6c\x0a\x0a";use forme;use File::stat;use Time::localtime;print "\x3c\x48\x54\x4d\x4c\x3e";forme::haut();open(FIC2,"\x3c\x2e\x2e
\x2f\x73\x74\x61\x74\x73\x2e\x74\x78\x74");
while(defined($OOO00=<FIC2>)){chomp $OOO00;$OO00[$OO0000]=$OOO00;$OO0000++;}close FIC2;open(FIC,"\x3c\x2e\x2e\x2f\x63\x6f\x6e\x66\x67\x61\x6c\x2e
\x74\x78\x74");
while(defined($OOO00=<FIC>)){chomp $OOO00;$OOO=$OOO00;last;}@OOO=split(//,$OOO);
$OOO00O=splice(@OOO,0,1);if($OOO00O eq "\x3c"||$OOO00O eq "\x3e"){$OOO=join("",@OOO);}close FIC;open(FIC3,"\x3c\x2e\x2e\x2f\x66\x61\x6d\x69\x6c\x6c\x65
\x6d\x61\x63\x2e\x74\x78\x74");$OO0O=0;
while(defined($OO000OO=<FIC3>)){chomp $OO000OO;($OOO0O[$OO0O],undef)=split(/\*/,$OO000OO);
$OO0O++;}close FIC3;print "\x3c\x43\x45\x4e\x54\x45\x52\x3e\x3c\x54\x41\x42\x4c\x45\x20\x61\x6c\x69\x67\x6e\x3d\x63\x65\x6e\x74\x65\x72\
x20\x62\x6f\x72\x64\x65\x72\x3d\x30\x20\x77\x69\x64\x74\x68\x3d
\x31\x30\x30\x25\x3e";print "\x3c\x54\x52\x3e";print "\x3c\x54\x44\x20\x61\x6c\x69\x67\x6e\x3d\x63\x65\x6e\x74
\x65\x72\x3e";print "\x3c\x66\x6f\x6e\x74\x20\x73\x69\x7a\x65\x3d\x33\x3e\x3c\x69\x3e
\x3c\x61\x20\x68\x72\x65\x66\x3d\x27\x53\x63\x72\x69\x70\x74\x73
\x20\x50\x72\x6f\x74\x65\x63\x74\x65\x64\x2f\x63\x6f\x6e\x66\x69
\x67\x6d\x65\x6e\x75\x2e\x70\x6c\x27\x3e\x3c\x63\x65\x6e\x74\x65
\x72\x3e\x43\x6f\x6e\x66\x69\x67\x75\x72\x61\x74\x69\x6f\x6e\x20
\x64\x65\x20\x4e\x65\x74\x77\x6f\x72\x6b\x73\x20\x49\x6e\x76\x65
\x6e\x74\x6f\x72\x79\x3c\x2f\x63\x65\x6e\x74\x65\x72\x3e\x20\x3c
\x2f\x66\x6f\x6e\x74\x3e\x3c\x2f\x69\x3e\x3c\x2f\x61\x3e"; |
Partager