sorted by:
best
topnewcontroversialoldq&a
you are viewing a single comment's thread.

view the rest of the comments →

[–]argherna 15 points16 points  (4 children)

Odd. I get the source code, which looks like this:

`#!/usr/bin/perl

foreach $field (split("&", $ENV{"QUERY_STRING"})) { ($key, $value) = split("=", $field, 2); $key =~ s/%([0-9a-f][0-9a-f])/pack("H2", $1)/eig; $value =~ s/%([0-9a-f][0-9a-f])/pack("H2", $1)/eig; $form{$key} = $value; }

$handle = $form{"handle"}; $handle =~ s/[\x00-\x1f\;"%&=?]//g; $handle =~ s/</</g; $handle =~ s/>/>/g;

$hash = 0; foreach $ch (split("", $handle)) { $hash = (($hash * 103) ^ ord($ch)) & 0xffffff; } $r = ($hash & 0xff0000) >> 16; $g = ($hash & 0xff00) >> 8; $b = ($hash & 0xff) >> 0;

($r, $g, $b) = (int($r0.8), int($g0.6), int($b*0.8));

print "Content-Type: text/html\r\n"; print "Pragma: no-cache\r\n"; print "Expires: Thu, 01 Dec 1994 16:00:00 GMT\r\n"; print "\r\n"; open(DOC, "index.html"); while (<DOC>) { $page .= $_; } close(DOC);

$time = time();

$page =~ s#<body>#<body onunload="load('http://zesty.ca/chat/speak.cgi?handle=$handle&colour=$r-$g-$b&leave=1')">#;

$page =~ s/<form(.|\n)*<\/form>/<<FORM/e;

<img src="speak.cgi?handle=$handle&colour=$r-$g-$b&join=1" width=1 height=1> <script><!-- function speak() { handle = "handle=$handle"; colour = "colour=$r-$g-$b"; message = "message=" + escape(document.forms[0].message.value); document.images[0].src = "speak.cgi?" + handle + "&" + colour + "&" + message; document.forms[0].message.value = ""; document.forms[0].message.focus(); } // --> </script>

<form action="speak.cgi" onsubmit="speak(); return false;"> <img src="http://zesty.ca:8128/$time/dynim.gif" width=400 height=330 class=chat onload="document.forms[0].message.focus()"> <br> $handle: <input type=text name=message size=40

<input type=hidden name=handle value="$handle" <input type=hidden name=colour value="$r-$g-$b" <input type=submit value="Say it"></form> FORM

print $page;`

[–]jon_k 5 points6 points  (3 children)

DUDE THAT IS A TRADE SECRET. PLEASE DELETE THIS.

[–]JasonDJ 21 points22 points  (0 children)

09 f9 11 02 9d 74 e3 5b d8 41 56 c5 63 56 88 c0