Added lot of junk laying around on harvie.cz
[mirrors/Programs.git] / php / skripty / http_server.php
diff --git a/php/skripty/http_server.php b/php/skripty/http_server.php
new file mode 100644 (file)
index 0000000..6c4c559
--- /dev/null
@@ -0,0 +1,163 @@
+#!usr/bin/php\r
+<?php\r
+//Harvie's HTTPd 0.7\r
+/*\r
+  Allows you to binary safe download any file from remote pc\r
+    http://server:port/file\r
+    http://server:port//etc/passwd\r
+    http://server:port/C:\dir\file\r
+    http://server:port/C:/dir/file\r
+  Since version 0.6 there is filelisting\r
+    http://server:port/dir\r
+    http://server:port//etc\r
+    http://server:port/C:/dir\r
+    http://server:port/C:/dir/\r
+  You can also play multimedia like streams (using XMMS, Winamp, etc...)\r
+  But this can serve only one file a time\r
+    (if you are streaming or downloading, you can download/browse anything other,\r
+    but you can use download manager to download file by file...)\r
+  You can change port or interface by passing arguments\r
+  Usage: (httpd.php [port] [interface_IP])\r
+  This is very nice utility to use in your zombie.\r
+*/\r
+\r
+//////////////////////////////////////////////////////////////////////////////////\r
+$interface = "127.0.0.1";\r
+//$interface = "192.168.2.130";\r
+$port = 80;\r
+\r
+//////////////////////////////////////////////////////////////////////////////////\r
+$okheader = //Header 200 FILE\r
+  "HTTP/1.0 200 OK\n".\r
+  "Server: Harvie's HTTPd\n".\r
+  "Connection: close\n\n";\r
+\r
+$dirheader = //Header 301 DIR\r
+  "HTTP/1.0 301 Moved Permanently\n".\r
+  "Server: Harvie's HTTPd\n".\r
+  "Location: %DIR%\n".\r
+  "Connection: close\n\n";\r
+\r
+$badheader = //Header 404\r
+  "HTTP/1.0 404 File not found!\n".\r
+  "Server: Harvie's HTTPd\n".\r
+  "Connection: close\n\n";\r
+\r
+$err404 = "ERR 404 - NOT FOUND!"; //Error 404\r
+\r
+//////////////////////////////////////////////////////////////////////////////////\r
+if(isset($argc)) {\r
+  if($argc > 1) $port = trim($argv[1]);\r
+  if($argc > 2) $interface = trim($argv[2]);\r
+}\r
+\r
+///FUNCTIONS//////////////////////////////////////////////////////////////////////\r
+function send_dir_listing($fp, $directory) {\r
+       $num = "0"; \r
+  //Header\r
+  @fwrite($fp, "<html>\n<head><title>Index of $directory</title></head>\n<body><tt>\n");\r
+  @fwrite($fp, "<b>Available volumes:</b><br />\n");\r
+  \r
+  //Special folders\r
+  @fwrite($fp, "[<a href=\"/\">/</a>]\n"); //Server root\r
+  @fwrite($fp, "[<a href=\"//\">//</a>]\n"); //Unix root (if running unix)\r
+  \r
+  //Available volumes\r
+  $dsks = "cdefghijklmnopqrstuvwxyz"; //Show this volumes (if available)\r
+  for($i=0;$i<strlen($dsks);$i++) {\r
+    if(is_dir($dsks[$i].":")) {\r
+      $vol = $dsks[$i];\r
+      @fwrite($fp, "[<a href=\"/$vol:/\">$vol:</a>]\n");\r
+    }\r
+    //echo($dsks[$i].":");\r
+  }\r
+  @fwrite($fp, "<br />\n\n");\r
+  \r
+  //Directory listing\r
+  @fwrite($fp, "<b>Directory listing of $directory :</b><br /><br />\n\n");\r
+  @fwrite($fp, "[DIR] <a href=\"./../\">Parent Directory (../)</a><br />\n");\r
+       $files=opendir ($directory); \r
+               while (false!==($file = readdir($files))) \r
+               { \r
+                               if ($file != "." && $file != "..") \r
+                               { \r
+            $num++;\r
+            if(is_dir("$directory/$file")) {\r
+              fwrite($fp, "$num - [DIR] <a href=\"./$file\">$file</a><br />\n");\r
+            } else {\r
+              fwrite($fp, "$num - <a href=\"./$file\">$file</a><br />\n");\r
+            }\r
+                               } \r
+               }\r
+    \r
+    //Footer\r
+               fwrite($fp, "<br />\n<b>Total: $num</b>\n</tt></body>\n</html>");\r
+}\r
+\r
+///CODE///////////////////////////////////////////////////////////////////////////\r
+echo("\n\tStarting Harvie's HTTPd at:\n\ttcp://$interface:$port\n\n");\r
+//system("title Harvie's HTTPd at tcp://$interface:$port"); //Microsoft Windows only\r
+set_time_limit(0);\r
+$sss = stream_socket_server("tcp://$interface:$port");\r
+\r
+while(1) {\r
+  @$sfp = stream_socket_accept($sss);\r
+  if(!$sfp) continue;\r
+\r
+  $loop = 1;\r
+  while($sfp && !@feof($sfp) && $loop) {\r
+    $line = fgets($sfp);\r
+    //echo($line);\r
+    if(eregi("(GET|POST)", $line)) {\r
+      $line = trim($line);\r
+      //echo($line);\r
+      $line = explode(" ", $line);\r
+      \r
+      $line[1] = trim(urldecode($line[1]));\r
+      \r
+      \r
+      if($line[1] == "/") {\r
+        $line[1] = "./";\r
+      } else {\r
+        $line[1] = substr($line[1], 1);\r
+      }\r
+      \r
+      \r
+      if(is_file($line[1])) { //200 OK FILE\r
+        fwrite($sfp, $okheader);\r
+        echo("200 ".$line[1]);\r
+        $fp = fopen($line[1], "rb");\r
+        while( fwrite($sfp, fgets($fp)) );\r
+        @fclose($sfp);\r
+        echo(" SENT!\n");\r
+      }\r
+      \r
+      elseif(is_dir($line[1])) { //200 OK DIR\r
+        if(substr($line[1], strlen($line[1])-1) != "/") { //301 MOV DIR\r
+          $header = ("/".$line[1]."/");\r
+          echo("301 ".$line[1]." -> $header\n");\r
+          $header = str_replace("%DIR%", $header, $dirheader);\r
+          //$header = str_replace("./", "./", $dirheader);\r
+          //echo($header);\r
+          fwrite($sfp, $header);\r
+          @fclose($sfp);\r
+          break;\r
+        }\r
+        echo("200 [DIR] ".$line[1]."\n");\r
+        send_dir_listing($sfp, $line[1]);\r
+      }\r
+      \r
+      else { //404 NOT FOUND\r
+        echo("404 ".$line[1]."\n");\r
+        fwrite($sfp, $badheader);\r
+        fwrite($sfp, $err404);\r
+        @fclose($sfp);\r
+      }\r
+      \r
+      $loop = 0;\r
+    }\r
+  }\r
+  @fclose($sfp);\r
+}\r
+\r
+?>\r
This page took 0.133512 seconds and 4 git commands to generate.