Quanto sono sicuri i siti dei comuni d'Italia? Scansione con nmap e analisi statistica degli stessi

www.nomedelcomune.provincia.it

nmap -sV -p 80,443 -O --script ssl-heartbleed --script  http-enum --script-args 'http-enum.category="cms"' --script banner -iL Regione -oX Regione.xml

args<-commandArgs(TRUE)
Regione<-read.delim(args[1],sep=",",na.string=c("",NA))
cat(file=paste(args[1],".txt"),"Numero di siti: ", nrow(Regione),sep="\n")
cat("Su ",sum(table(Regione$Ip)),"host ci sono ",length(unique(Regione$Ip))," indirizzi IP unici e il massimo possiede ",max(table(Regione$Ip))," siti \n",file=paste(args[1],"output"), append=TRUE)

png(paste(args[1],"1Hosting.png"), units="in", width=11, height=8.5, res=300)
op <- par(mar = c(0,17,4,2) + 0.1)
barplot(sort(prop.table(table(Regione$Hosting))*100),horiz=TRUE,las=1,space=1,col=rainbow(length(table(Regione$Hosting))),names=paste(names(sort(prop.table(table(Regione$Hosting))*100)),"-",signif(sort(prop.table(table(Regione$Hosting))*100),2),"%"),main=paste("Hosting utilizzato su",sum(table(Regione$Hosting)),"host"),axes=FALSE)

percentlabelsSIS pielabelsSIS png(paste(args[1],"2SistemiOP.png"), width=700, height=700, res=75)
pie(prop.table(table(Regione$Sistema)),main=paste("Sistemi operativi su",sum(table(Regione$Sistema)),"host"),col=rainbow(length(table(Regione$Sistema))),labels=pielabelsSIS)
legend("topright",legend=levels(Regione$Sistema),cex=0.8,fill=rainbow(length(table(Regione$Sistema))))

png(paste(args[1],"3VersioniWindows.png"),width=700, height=500, res=75)
barplot(table(Regione[Regione$Sistema=="windows","Anno"]),col=rainbow(length(table(Regione$Anno))),main=paste("Versioni di Windows su",sum(table(Regione[Regione$Sistema=="windows","Anno"])),"host"),ylab="Numero di host",xlab="Anno")

png(paste(args[1],"4VersioniLinux.png"), width=700, height=500, res=75)
barplot(table(droplevels(sort(Regione[Regione$Sistema=="linux","Versione"]))),main=paste("Versioni di linux su",sum(table(droplevels(Regione[Regione$Sistema=="linux","Versione"]))),"host"),col=rainbow(length(table(Regione$Versione))),xlab="Versione",ylab="Numero di host")

percentlabelsCMS pielabelsCMS png(paste(args[1],"5CMS.png"),width=700, height=700, res=75)
pie(prop.table(table(Regione$Cms)),main=paste("Tipi di Cms di",sum(table(Regione$Cms)),"host"),col=rainbow(length(table(Regione$Cms))),labels=pielabelsCMS)
legend("topright",legend=levels(Regione$Cms),cex=0.8,fill=rainbow(length(table(Regione$Cms))))

percentlabelsSER80 pielabelsSER80 png(paste(args[1],"6TipidiServer80.png"), width=700, height=700, res=75)
pie(prop.table(table(Regione$Server80)),main=paste("Tipologie di Server [porta 80] su",sum(table(Regione$Server80)),"host"),col=rainbow(length(table(Regione$Server80))),labels=pielabelsSER80)
legend("topright",legend=levels(Regione$Server80),cex=0.8,fill=rainbow(length(table(Regione$Server80))))

png(paste(args[1],"7MaxServer80Versioni.png"),width=700, height=500, res=75)
barplot(table(droplevels(Regione[Regione$Server80==Regione[sum(table(Regione$Server80)),"Server80"],"Versione80"])),main=paste("Versioni di",Regione[sum(table(Regione$Server80)),"Server80"],"su",sum(table(droplevels(Regione[Regione$Server80==Regione[sum(table(Regione$Server80)),"Server80"],"Versione80"]))), "host") ,col=rainbow(length(table(Regione$Versione80))),xlab="Versione server",ylab="Numero di host")

percentlabelsSER443 pielabelsSER443 png(paste(args[1],"8TipidiServer443.png"), width=700, height=700, res=75)
pie(prop.table(table(Regione$Server443)),main=paste("Tipologie di Server [porta 443] su",sum(table(Regione$Server443)),"host"),col=rainbow(length(table(Regione$Server443))),labels=pielabelsSER443)
legend("topright",legend=levels(Regione$Server443),cex=0.8,fill=rainbow(length(table(Regione$Server443))))

percentlabelsSSL pielabelsSSL png(paste(args[1],"9SSL.png"), width=700, height=700, res=75)
pie(prop.table(table(Regione$SSL)),main=paste("Presenza di SSL su",sum(table(Regione$SSL)),"host"),col=rainbow(length(table(Regione$SSL))),labels=pielabelsSSL)
legend("topright",legend=levels(Regione$SSL),cex=0.8,fill=rainbow(length(table(Regione$SSL))))

percentlabelsHEA pielabelsHEA png(paste(args[1],"10Heartbleed.png"), width=700, height=500, res=75)
barplot(prop.table(table(Regione[Regione$SSL=="true","Heartbleed"]))*100,main=paste("Presenza vulnerabilità ad Heartbleed su",sum(table(Regione[Regione$SSL=="true","Heartbleed"])),"host"),col=rev(rainbow(length(table(Regione[Regione$SSL=="true","Heartbleed"])))))
legend("topright",legend=paste(pielabelsHEA," ",levels(Regione[Regione$SSL=="true","Heartbleed"])),cex=0.8,fill=rev(rainbow(length(table(Regione[Regione$SSL=="true","Heartbleed"])))))