Sorry i've been away. I ment to say server not client. Anyway here it goes: No i'm not evil. Let me explain: I run a linux box and I have my fake telnet daemon running to give people a fake start. The see it says Zinc, The /best/ Unix. So they try root/root or gues/guest and i want them to think they are really getting somewhere. Anyway I also run FakeBo so they think it's a windows computer. THen i open 3103 or somethign like that the Macintosh FileSharing port. ( i think). I don't even go to college, i'm in high school. And at my school all the kids use telnet for is MUDs it's all novell/windows stuff (ikk). And as for stealing passwords like that why not just run a key logger. Trust me I'm not an evil hax0r. Theres some batch script called FakeTelnetd or some thing which is simalar but also shows the pass when typing it. Do you think it's for hacking passwords? Heres my full code, don't use it for bad, i never even thought of it:
#!/usr/bin/perl
use IO::Socket;
#use Net::hostent;
$port = 9539;
$0 = "Telmet \*Running\*";
$serv = IO::Socket::INET->new (
Proto => 'tcp',
LocalPort => $port,
Listen => 10,
Reuse => 1)
|| die "Can't create server: $!";

while ($client = $serv->accept()) {
eval {
$client->autoflush(1); # Always remember to flush!
$who = $client->peerhost;
print STDERR "Telmet2: Connection from $who\n";
print $client " Zincix 12.76\n";
print $client "The /ONLY/ Secure *Nix \n";
print $client "\n\n";
print $client "Nixel Login: ";
$usr = <$client>;
chomp $usr;
$usr =~ s/\W//g;
print STDERR "Telmet2: $who: User $usr\n";
die unless (length $usr < 20 && length $usr > 1);
print $client "Passwd: ";
$pass = <$client>;
chomp $pass;
die unless (length $pass < 20 && length $pass > 1);
print STDERR "Telmet2: $who: Pass $pass\n";
print $client "Incorrect Username or passwd!\n";
print $client "Remember it's case sensitive!\n";
};
close $client;
}
I'm about security not about stealing user passwords.

GoRN.8m.com, GoRN'z Cue Cat Reader & Decoder

Dunt Dunt Duh...
GoRN To The Rescue,
Yet Again...
zGoRNz@Yahoo.com
- GoRN Out -
^D
EOF
Check out GBNBot, /the/ Battle.Net Bot for *nix.

In reply to Re: Echo off in IO::Sockets by GoRN
in thread Echo off in IO::Sockets by GoRN

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.