Deutsch   English  


Relaunch will start within the near future. Stay tuned!


Please Login

Username
Password
Security Check
(Repeat the Number!)
 
#!/usr/bin/perl use strict; use CGI::Carp qw(fatalsToBrowser); use GD; $| = 1; require "lib/globalCGIParseInput.pl"; require "lib/globalSQLConnect.pl"; my $dbh = SQLConnect(); my $im = new GD::Image(140,20); my %input = CGIParseInput(); my $white = $im->colorAllocate(64,64,255); my $black = $im->colorAllocate(0,0,0); my $links = 10+int(rand(50)); my $top = 2+int(rand(3)); my @chars = (0 .. 9); my $query; my $ref; my $sth; my $key_system = ""; my $key_user = ""; #print "Content-type: text/html\n\n"; if ($input{key_system} ne "") { $key_system = $input{key_system}; $im->fill(0,0,$black); $query = "SELECT key_user " . "FROM login " . "WHERE key_system=" . $dbh->quote($key_system); $sth = $dbh->prepare($query); $sth->execute; if ($ref = $sth->fetchrow_arrayref) { $im->string(gdGiantFont,$links,$top,"- $$ref[0] -",$white); } else { $im->string(gdGiantFont,10,3,"ERROR",$white); } GD::Image->trueColor(0); # print "Status: 200 OK\n"; # print "Pragma: no-cache\n"; # print "Expires: 0\n"; # print "Cache-Control: no-cache, no-store, must-revalidate\n"; print "Content-type: image/jpeg\n\n"; print $im->jpeg; } else { # print "Status: 200 OK\n"; # print "Pragma: no-cache\n"; # print "Expires: 0\n"; # print "Cache-Control: no-cache, no-store, must-revalidate\n"; print "Content-type: text/html\n\n"; $key_system = join("", @chars[ map { rand @chars } ( 1 .. 200 ) ]); $key_user = join("", @chars[ map { rand @chars } ( 1 .. 4 ) ]); $sth = $dbh->prepare("INSERT INTO login SET key_system=?,key_user=?,xtime=NOW()"); $sth->execute($key_system,$key_user); print qq(
); print qq(); print qq(); }





You need to signup? click here
Login problem? click here

Copyright 2010 HerrOtto IT Services Ltd.. All Rights reserved.