full-disclosure - [ElectronicSouls]

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [day] [month] [year] [list]

Message-ID: <200211291849.gATInKLQ067243@mailserver3.hushmail.com>
From: es at hush.com (es@...h.com)
Subject: [ElectronicSouls] - Secure Webserver

-----BEGIN PGP SIGNED MESSAGE-----

Dear List,

We have created a secure webserver for your every webserving need.

Enjoy.

# cat  eswebserv.pl
#!/usr/bin/perl
# [ElectronicSouls]
# Web server v1
# Coded by BuRn-X
# My lame web server creation, should run ok... set limit of connection in $allowed
# and web port in $webport, pretty simple huh ?
# i'll add encryption or something in the next version ;-)
# Greetz: Myself ;p, Brain, rob, etc... to lazy to write this

use IO::Socket;

$startdir = "/my/es/website"; # you root directory
$webport = 31337; # your website port use in browser ex. http://my.gaylesbianporn.com:31337/
$allowed = 10; # how many people will be able to connect at the same time

$server = IO::Socket::INET->new(Proto=>"tcp", LocalPort=>$webport, Listen=>$allowed, Reuse=>1)
 or die "SHIT! FUCKED UP: $! \n";

print "Starting Server: using ---> $startdir\n";

binmode(STDOUT);

while ($client = $server->accept) {

 $client->autoflush(1);

 @header = split(' ', <$client>);
 $myass = $header[1];
 $httpver = $header[2];

 if ($header[0] eq "GET" && ($httpver eq "HTTP/1.0" || $httpver eq "HTTP/1.1")) {

  if (rindex($myass, "/") == length($myass)-length("\n")) { $myass.= "es.page" }

  if (open(FILE, $startdir.$myass)) {
   binmode(FILE);

   print $client "$httpver 200 OK\n\n";

   while (<FILE>) { print $client $_ }
   close(FILE);

  } else {

   print $client "[ES] ERROR FILE NOT FOUND! [ES]<br>\n\n";
   print $client "<bold>Please check your link</bold>\n";

  }
 }

 close $client;
}

#

Thanks to pr0ix for his help.

The Electronic Souls Crew
[ElectronicSouls] (c) 2002

"0xcafebabe is a JAVA thing."

-----BEGIN PGP SIGNATURE-----
Version: Hush 2.2 (Java)
Note: This signature can be verified at https://www.hushtools.com/verify

wlIEARECABMFAj3ntsIMHGVzQGh1c2guY29tAAoJEN5nGqhGcjltmMIAn31IdEpN1m9O
luR2rga6xwtPqwaoAJEBdYkrE51GY4D1//TctkpnwddN
=tPUD
-----END PGP SIGNATURE-----

Concerned about your privacy? Follow this link to get
FREE encrypted email: https://www.hushmail.com/?l=2 

Big $$$ to be made with the HushMail Affiliate Program: 
https://www.hushmail.com/about.php?subloc=affiliate&l=427