#!/usr/bin/perl
%COLOR = (
'n_1'=> "<FONT COLOR=\"#FF0000\">",## kleur-code nr.1 voor namen en teksten
'n_2'=> "<FONT COLOR=\"yellow\">",## kleur-code nr.2 voor namen en teksten
'<>'=> "<FONT COLOR=\"#00FFFF\">",
'-'=> "<FONT COLOR=\"#FFFFFF\">",
);
%CHARS = (
a=> "--C2*C1--|C1-C2*C1-C2*C1-|C2*C1---C2*C1",
b=> "C2*C1---|C2***C1-|C2***C1-",
c=> "-C2**C1|C2*C1--|-C2**C1",
d=> "C2***C1-|C2*C1--C2*C1|C2***C1-",
e=> "C2***C1|C2**C1-|C2***C1",
f=> "C2****C1|C2**C1--|C2*C1---",
g=> "C2****C1|C2*C1--C2*C1|--C2**C1",
h=> "C2*C1-C2*C1|C2***C1|C2*C1-C2*C1",
i=> "*|C2*C1|C2*C1",
j=> "C2**C1|-C2*C1|C2*C1-",
k=> "C2*C1-C2**C1|C2***C1-|C2*C1-C2**C1",
l=> "C2*C1--|C2*C1--|C2***C1",
m=> "C2*****C1|C2*C1-C2*C1-C2*C1|C2*C1-C2*C1-C2*C1",
n=> "C2***C1|C2*C1-C2*C1|C2*C1-C2*C1",
o=> "-C2**C1-|C2*C1--C2*C1|-C2**C1-",
p=> "C2***C1|C2***C1|C2*C1--",
q=> "C2***C1|C2***C1|--C2*C1",
r=> "C2***C1-|C2*C1-C2*C1-|C2*C1-C2**C1",
s=> "C2***C1|C2*C1--|C2***C1",
t=> "C2***C1|-C2*C1-|-C2*C1-",
u=> "C2*C1-C2*C1|C2*C1-C2*C1|C2***C1",
v=> "C2*C1---C2*C1|-C2*C1-C2*C1-|--C2*C1--",
w=> "C2*C1-C2*C1-C2*C1|C2*C1-C2*C1-C2*C1|C2*****C1",
x=> "C2*C1-C2*C1|-C2*C1-|C2*C1-C2*C1",
y=> "C2*C1-C2*C1|-C2*C1-|C2*C1--",
z=> "C2***C1|--C2*C1|C2***C1",
" "=> "---|---|---",
"!"=> "C2*C1|C2*C1|*",
"."=> "-|-|C2*C1",
);
%CODE = (
'<>'=> "<FONT COLOR=\"#00FFFF\">",
'-'=> "<FONT COLOR=\"#FFFFFF\">",
1=> "<FONT COLOR=\"#FF0000\">",
2=> "<FONT COLOR=\"yellow\">",
);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print " <HEAD>\n";
print " <TITLE>1337 language :D</TITLE>\n";
print " <STYLE>\n";
print " body{ background-color: #000000; color: #FFFFFF; }\n";
print " hr{ color: darkblue;}\n";
print " </STYLE>\n";
print " </HEAD>\n";
print " <BODY>\n";
print " <CENTER><H1 STYLE='color:red'>" . make_colored("1337 language") . "</H1>\n";
print " <FONT COLOR='#FFFF00' SIZE=4>By </FONT><FONT COLOR='red'>//</FONT><FONT COLOR='blue'>perler</FONT></CENTER>\n";
print " <HR><CENTER>Make A Bind!\n";
print " <FORM ACTION='cool.cgi'>Tekst: <INPUT TYPE='text' NAME='bind' SIZE=10><BUTTON TYPE='submit'>MAAK!</BUTTON></FORM><BR><BR>\n";
if($ENV{QUERY_STRING} =~ /^bind=(.+)$/i) {
$tekst = $1; $tekst =~ tr/+/ /; $tekst =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $tekst =~ tr/[A-Z]/[a-z]/;
print "<FONT SIZE=5>" . make_colored($tekst, 1) . "</FONT></CENTER><BR><FONT COLOR='white' SIZE=3>\n";
@bnd; $now = 0; $zooi = $CODE{"<>"} . "<" . $CODE{"-"} . "-";
push(@bnd, $zooi, $zooi, $zooi);
foreach $a (split(//,$tekst)) {
print "<B>Teken '$a' Staat niet in de database!</B><BR>" if !$CHARS{$a};
($l1, $l2, $l3) = split(/\|/,$CHARS{$a}); $code_nu = $CODE{1} if !$now; $code_nu = $CODE{2} if $now;
$l1 =~ s/C1/$CODE{"-"}/g; $l1 =~ s/C2/$code_nu/g;
$l2 =~ s/C1/$CODE{"-"}/g; $l2 =~ s/C2/$code_nu/g;
$l3 =~ s/C1/$CODE{"-"}/g; $l3 =~ s/C2/$code_nu/g;
@bnd[0] .= $l1 . "-";
@bnd[1] .= $l2 . "-";
@bnd[2] .= $l3 . "-";
if(!$now) { $now = 1; } else { $now = 0; }
}
@bnd[0] .= "-" . $CODE{"<>"} . "> ";
@bnd[1] .= "----" . $CODE{"<>"} . "> " . make_colored($tekst, 1);
@bnd[2] .= "-" . $CODE{"<>"} . "> ";
print "<PRE>1. $bnd[0]\n2. $bnd[1]\n3. $bnd[2]</PRE>";
}
print " <HR><CENTER>\n";
print " <FONT COLOR='red'>M<FONT COLOR='yellow'>a<FONT COLOR='red'>d<FONT COLOR='yellow'>e <FONT COLOR='red'>B<FONT COLOR='yellow'>y </FONT><FONT COLOR='red'>//</FONT><FONT COLOR='blue'>perler</FONT></CENTER>\n";
print " </CENTER>\n";
print "\n";
print " </BODY>\n";
print "</HTML>\n";
sub make_colored {
my($now) = 1; my($name) = "";
foreach $AAAA (split(//, $_[0])) {
if($AAAA eq " ") {
$name .= " ";
}
else {
$AAAA =~ tr/[a-z]/[A-Z]/ if $_[1] && $now == 1;
$name .= $COLOR{"n_$now"} . "$AAAA";
$now++;
$now = 1 if !$COLOR{"n_$now"};
}
}
return $name;
}