#!/usr/bin/perl
#
# Randomize stuff
#

@ips = ('12.102.67.52','12.103.210.62', '12.221.147.122', '12.254.134.120', '128.121.20.27', '142.177.48.2', '144.136.39.185', '164.106.86.99', '172.131.163.237', '192.100.100.91', '192.168.0.200', '192.168.0.201', '193.192.227.3', '194.27.97.22', '195.139.118.4', '195.141.0.33', '195.141.0.36');

@vulns = ('CAN-2004-0424', 'CAN-2004-0426', 'CAN-2004-0427', 'CAN-2004-0495', 'CAN-2004-0504', 'CAN-2004-0505', 'CAN-2004-0506', 'CAN-2004-0507', 'CAN-2004-0519', 'CAN-2004-0520', 'CAN-2004-0521', 'CAN-2004-0523', 'CAN-2004-0541', 'CAN-2004-0554', 'CAN-2004-0938', 'CVE-2002-1363', 'CVE-2003-0020', 'CVE-2003-0073', 'CVE-2003-0081', 'CVE-2003-0924', 'CVE-2003-0985', 'CVE-2003-0988', 'CVE-2004-0001', 'CVE-2004-0075', 'CVE-2004-0077', 'CVE-2004-0078', 'CVE-2004-0082', 'CVE-2004-0111', 'CVE-2004-0113', 'CVE-2004-0189', 'CVE-2004-0191');

srand();	
for ($i=0; $i<100; $i++) {
	$ip=$ips[int(rand()*$#ips)];
	$vuln=$vulns[int(rand()*$#vulns)];
	$score=int(rand()*5)+3;
	print "$ip,$vuln,$score\n";
}