Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- sprintf reverse localtime time if not eof and srand printf formline eval int ord
- lcfirst ucfirst length glob gmtime exp defined caller sin binmode log oct abs uc
- lc sqrt study rand scalar time or warn tell unpack hex rewinddir dump kill chdir
- require prototype readdir eof open pack die return undef and unlink write chroot
- telldir bless sort open split chown join close rmdir fileno getc sleep redo exec
- mkdir ref stat system do getpwnam next and gethostent and getpgrp and umask exit
- ;open(R,$0),local$/=undef;print"\b";@_=split($",<R>);for(qw y 58 26 8 3 111 7 71
- 55 31 36 11 1 111 9 6 37 23 111 36 74 59 39 65 66 y){_($")if/^1{3}$/;print map/(
- .)/x,$_[$_]}_(chr($]+$]));sub _{print pop};##############By Trizen##############
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement