|
1337 language!
dis wel een cool scriptje dat ik ooit heb gemaakt...
waarom ik hem hier post weet ik niet... misschien omdat het hier zo leeg is...
naja, zet hem in je cgi-bin en open hem, hij is echt cool :D
nog een probleempje dat ik niet ga oplossen: hij ondersteunt alleen letters (a-z), spatie (" "), uitroepteken ("!"), en een punt (".") maar voor de rest... probeer het!
#!/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;
}
download het script
Reacties van leden
Auteur: saga4live @ 24-05-2006
maar wat is het :? Auteur: rickjj @ 07-04-2007
Ja lol wa tis ut
|
