<code> #!/usr/bin/perl $#=($=/$=).($=/$=);$#=~/(\d)/;$_=$#-$+;++$|;undef $:;$:.=#-/ chr(($=/($#-$|)+$+)*($#-$|)+$|+$++$++$|);--$\;$:.=chr$+.$|.( $=/$_)+$|;$.++;$:.=chr$#.$=/$_-$+;$:.=chr$#.$=/$_;++$.;$:.=# chr$.+$+.$.;$%=$.+$+;$:.=chr$=/$_.$=/$_-$+;++$\;$:.=chr$#.$\ ;$:.=chr$+x$%;$:.=chr$#.$=/$_;$:.=chr$+.$\.$%+$+;$.-=$.;$:.= chr$+.$..$+;$:.=chr$#.++$%;$:.=chr--$%.$%-$+;$:.=chr$=+$=/$% ;$:.=chr$+.$\.$+;$:.=chr$#.++$%;$:.=chr$+.$\.($=/$_)+$%-$+-# $+;$.=$%;--$.;$:.=chr$..$.-$+;$,=$%+$%+$+;$:.=chr$=+$_+$.-$+ ;$:.=chr$,.$,-$+-$+;$:.=chr$,x($.-$+);$:.=chr$+.$\.($,-$++$+ )-$+-$+;$:.=chr$+.$\.$+;$:.=chr$#.$%;$:.=chr$++$+-$,/$%*$$*# +$#;$_=$:;print(substr$:,$.-$.,length($_)-$+);

Replies are listed 'Best First'.
RE: No digits
by Anonymous Monk on Jul 30, 2000 at 00:17 UTC
    Oops..missed the closing code tag. This should work: 
    #!/usr/bin/perl

$#=($=/$=).($=/$=);$#=~/(\d)/;$_=$#-$+;++$|;undef $:;$:.=#-/
chr(($=/($#-$|)+$+)*($#-$|)+$|+$++$++$|);--$\;$:.=chr$+.$|.(
$=/$_)+$|;$.++;$:.=chr$#.$=/$_-$+;$:.=chr$#.$=/$_;++$.;$:.=#
chr$.+$+.$.;$%=$.+$+;$:.=chr$=/$_.$=/$_-$+;++$\;$:.=chr$#.$\
;$:.=chr$+x$%;$:.=chr$#.$=/$_;$:.=chr$+.$\.$%+$+;$.-=$.;$:.=
chr$+.$..$+;$:.=chr$#.++$%;$:.=chr--$%.$%-$+;$:.=chr$=+$=/$%
;$:.=chr$+.$\.$+;$:.=chr$#.++$%;$:.=chr$+.$\.($=/$_)+$%-$+-#
$+;$.=$%;--$.;$:.=chr$..$.-$+;$,=$%+$%+$+;$:.=chr$=+$_+$.-$+
;$:.=chr$,.$,-$+-$+;$:.=chr$,x($.-$+);$:.=chr$+.$\.($,-$++$+
)-$+-$+;$:.=chr$+.$\.$+;$:.=chr$#.$%;$:.=chr$++$+-$,/$%*$$*#
+$#;$_=$:;print(substr$:,$.-$.,length($_)-$+);

    [download]
[reply]
[d/l]

Back to Obfuscated Code