<? PHP
// +.---- And all
$ OD = ' IPD ' ;
$ Newwidth = 80 ;
$ Newheight = 80 ;
$ Bmiparea =
$ Files = Array ();
If ( $ Handle = Opendir ( " $ OD " )){
While ( False ! = ( $ File = Readdir ( $ Handle ))){
If ( $ File ! = " . " && $ File ! = " .. " ){
If ( Substr ( $ File ,- 3 ) = ' PNG ' )
$ Files [ Count ( $ Files )] = $ File ;
}
}
}
Closedir ( $ Handle );
$ Random = Rand ( 0 , Count ( $ Files ) - 1 );
$ Im = Imagecreate ( 155 , 138 );
// Imagefilledrectangle ($ im, 0, 0,255,255, 0 );
$ Source = Imagecreatefrompng ( ' IPD/ ' . $ Files [ $ Random ]);
List ( $ Oldwidth , $ Oldheight ) = Getimagesize ( ' IPD/ ' . $ Files [ $ Random ]);
$ BG = Imagecolorallocate ( $ Im , 255 , 255 , 255 );
$ Textcolor = Imagecolorallocate ( $ Im , 0 , 0 , 0 );
Imagecopyresized ( $ Im , $ Source , 30 , 35 , 0 , 0 , $ Newwidth , $ Newheight , $ Oldwidth , $ Oldheight );
// Imagerectangle ($ im, 30,20, 120,98, $ file );
$ Nm = ' Dosnake@Gmail.com ' ;
$ = ' Your IP region: ' ;
$ IP = $ _ Server [ ' Remote_addr ' ];
Imagestring ( $ Im , 5 , 0.2 , 0 , " $ Nm " , $ Textcolor );
Imagestring ( $ Im , 4 , 13 , 15 , " $ " , $ Textcolor );
Imagestring ( $ Im , 4 , 5 , 123 , " IP: $ IP " , $ Textcolor );
Header ( " Content-Type: image/PNG " );
Imagepng ( $ Im );
Imagedestroy ( $ Im );
?>
// 0x001 a frame displaying images by IP address
// 0x002 Program is easy, I have not encountered any problems
// 0x003, but I have never mastered the coverage sequence.
// 0x004 continues to improve... Archive