Çàéäÿ ãîäà 3 íàçàä íà êàêîé-òî ôîðóì â èíåòå, ÿ áûë â øîêå.
Ïîä îäíèì èç ñîîáùåíèé êàêîãî-òî ïîëüçîâàòåëÿ ÿ óâèäåë ïîäïèñü â âèäå êàðòèíêè, íà êîòîðîé áûë .. ìîé IP àäðåñ.
Ïîòðàòèâ 2 äíÿ íà ïåðåïèñêó ñ þçåðîì, ÿ óçíàë, ÷òî:
1. ß ëàìåð.
2. Ìàçäàé - ñàêñ.
3. Ó÷è àëáàíñêèé.
4. Ó÷è php.
Òåïåðü âñå ýòî êàæåòñÿ ñìåøíûì, èáî php-ïðîéäåííûé ýòàï, perl - òîæå. Íî êàðòèíêè, äàæå ñïóñòÿ ãîäû, â øîê íåïîñâÿùåííîãî þçåðà ïîâåðãàþò. Òàì ìîæåò áûòü è ðàçðåøåíèå âàøåãî ýêðàíà, è âåðñèÿ âèíäîâñ(!), è ñòðàíèöà, îòêóäà âû ïîæàëîâàëè...
Äåëàåòñÿ ïðîñòî.
Ñåðâåðíûå ÿçûêè â ñîñòîÿíèè ãåíåðèðîâàòü ãðàôèêó. À óæ ïîëó÷èòü àäðåñ âûïîëíèâøåãî ñêðèïò...
Ðíð ÿ íå ëþáëþ, ìíå áîëüøå íðàâèòñÿ ìîçãîëîìíûé perl.
PHP:
#!/usr/bin/perl
use GD;
use CGI qw(:standard);
$filepath="../picture.jpeg"; # ïóòü ê ôàéëó
unlink $filepath;
# Ñîçäàåì íîâîå èçîáðàæåíèå
$im = new GD::Image(200, 30);
# Îïðåäåëÿåì öâåòà
$text_color = $im->colorAllocate(0,0,0); # òåêñò
$fon= $im->colorAllocate(255,255,0); # ôîí
$line_color=$im->colorAllocate(180,180,180); # ëèíèè
$ramka= $im->colorAllocate(0,0,0); # ðàìêà
$im->transparent($white);
$im->interlaced('true');
# Ðèñóåì ðàìêó
$im->rectangle(0,0,199,29,$ramka);
$s=0;
# çàëèâàåì öâåòîì êàðòèíêó
$im->fill(20,20,$fon);
open(PICTURE, ">$filepath") or die("Cannot open file for writing");
# ïèøåì. ØÊÈÔÒ, Õ, Ó, ÒÅÊÑÒ, ÖÂÅÒ
$im->string(gdLargeFont, 10, 5, "Your IP - ".$ENV{'REMOTE_ADDR'}, $text_color);
binmode PICTURE;
$ss = 1;
undef $ss;
print "Content-type: image/jpeg\n\n";
print $im->jpeg(100);
close PICTURE;
font>
Âîò, êñòàòè, ñàìà êàðòèíêà, âûëîæèë íà ñâîåì ëþáèìîì fatal.ru.
À íà íåé - ÂÀØ ip.
Íå áóäó øîêèðîâàòü è äîáàâëÿòü òóäà ïðî÷èå ïðèìî÷êè, êîòîðûìè èíîãäà ïîëüçóþñü.
Ññûëêà íà íåå - http://shpion.fatal.ru/userbar.cgi Åñëè çàõîòèòå êîãî-òî ïîðàäîâàòü íà ôîðóìå èëè íà ëèðó. :-)
×óòü íå çàáûë. À âîò ñîäåðæàíèå âàøåãî ñèñòåìíîãî äèñêà: file://C:\ Îôîðìèòå ññûëêîé )