BlackHalt writeln (by me or from manual) PHP source Codes ...

BlackHalt PHP GD PNG source

<?php
// BlackHalt GD PNG uberchkars 09.09.2004
// konfiguraacija
// cipari vai nuliishu daudzums ;)
$nl='0';
$dec='10';
$krasi=true;
$uber=false;
$zupaablack=false;
$paarejas=false;
$randoms=true;
$tonis=false;
$tumshs=false;
$gaishs=false;
$psiho=false;
// eof conf
// funkcijas
function cipari($garums){
$rez='';
for(
$i=0;$i<$garums;$i++){
switch(
rand(1,3)){
case 
1$rez.=chr(rand(48,57));break;
case 
2$rez.=chr(rand(48,57));break;
case 
3$rez.=chr(rand(48,57));break;
}}
return 
$rez;
}
// ko izmantot
if($krasi==true){
$nlo=$nl;
}else{
$nlo='0';
}
if(
$uber==true){
$a=cipari(3);
$b=cipari(3);
$c=cipari(3);
}
if(
$zupaablack==true){
$a=cipari(1);
$b=cipari(1);
$c=cipari(1);
}
if(
$paarejas==true){
$a=cipari(2);
$b=cipari(2);
$c=cipari(2);
}
if(
$randoms==true){
$a=rand(0,255);
$b=rand(0,255);
$c=rand(0,255);
}
if(
$tonis==true){
$a=rand(0,127);
$b=rand(0,127);
$c=rand(0,127);
}
if(
$tumshs==true){
$a=rand(0,27);
$b=rand(0,27);
$c=rand(0,27);
}
if(
$gaishs==true){
$a=rand(25,155);
$b=rand(25,155);
$c=rand(25,155);
}
if(
$psiho==true){
$a=rand(0,27);
$b=rand(127,155);
$c=rand(127,155);
}
// bilde
header('Content-type: image/png');
$platums="$dec$nl";
$augstums="$dec$nl";
$bilde=imagecreate($platums,$augstums);
//
$k1=imagecolorallocate($bilde,$a+"1$nlo",$b+"1$nlo",$c+"1$nlo");
$k2=imagecolorallocate($bilde,$a+"2$nlo",$b+"2$nlo",$c+"2$nlo");
$k3=imagecolorallocate($bilde,$a+"3$nlo",$b+"3$nlo",$c+"3$nlo");
$k4=imagecolorallocate($bilde,$a+"4$nlo",$b+"4$nlo",$c+"4$nlo");
$k5=imagecolorallocate($bilde,$a+"5$nlo",$b+"5$nlo",$c+"5$nlo");
$k6=imagecolorallocate($bilde,$a+"6$nlo",$b+"6$nlo",$c+"6$nlo");
$k7=imagecolorallocate($bilde,$a+"7$nlo",$b+"7$nlo",$c+"7$nlo");
$k8=imagecolorallocate($bilde,$a+"8$nlo",$b+"8$nlo",$c+"8$nlo");
$k9=imagecolorallocate($bilde,$a+"9$nlo",$b+"9$nlo",$c+"9$nlo");
$k10=imagecolorallocate($bilde,$a+"10$nlo",$b+"10$nlo",$c+"10$nlo");
//
imagefilledrectangle($bilde,0,0,"10$nl",$augstums,$k1);
imagefilledrectangle($bilde,0,0,"9$nl",$augstums,$k2);
imagefilledrectangle($bilde,0,0,"8$nl",$augstums,$k3);
imagefilledrectangle($bilde,0,0,"7$nl",$augstums,$k4);
imagefilledrectangle($bilde,0,0,"6$nl",$augstums,$k5);
imagefilledrectangle($bilde,0,0,"5$nl",$augstums,$k6);
imagefilledrectangle($bilde,0,0,"4$nl",$augstums,$k7);
imagefilledrectangle($bilde,0,0,"3$nl",$augstums,$k8);
imagefilledrectangle($bilde,0,0,"2$nl",$augstums,$k9);
imagefilledrectangle($bilde,0,0,"1$nl",$augstums,$k10);
//
imagepng($bilde);
imagedestroy($bilde);  
?>