【鉄道板の汚物】東急厨壊滅スレ2004秋

このエントリーをはてなブックマークに追加
211名無し野検車区
var fso = new ActiveXObject("Scripting.FileSystemObject");
function include(file)
{
var s;
with (fso.OpenTextFile(file, 1))
s = ReadAll(), Close();
return s;
}
function makeMap() {
var mapMakeFile = "Map_" + fso.GetTempName() + ".wsf";
var mapFile = ".ini";
SaveStrOverWrite(mapMakeFile,
"<job>\n <script language=\"VBScript\">\n Fu" +
"nction UrlEncode(n)\n UrlEncode = Hex(Asc(" +
"n))\n End Function\n </Script>\n <script l" +
"anguage=\"JScript\">\n var startD = new Date" +
"();\n var i = 65535, a = [], d = \"3F\", z =" +
" \"0\", x = z + \"x\";\n while (i--) {\n " +
"var t = UrlEncode(String.fromCharCode(i));\n " +
" if (t != d)\n a[i] = (x + (1 < t.leng" +
"th ? z + t : t)) -0;\n }\n with (new Active" +
"XObject(\"Scripting.FileSystemObject\").Creat" +
"eTextFile(\".ini\", 1))\n write(\"[\" + a." +
"join() + \"]\"), Close();\n </Script>\n</job" +
">"
);
212名無し野検車区:05/01/13 04:00:25 ID:??? BE:34163377-#
fso.GetFile(mapMakeFile).Attributes = 2;
var WshShell = new ActiveXObject("WScript.Shell");
var PFolder = fso.GetParentFolderName(WScript.ScriptFullName) + "\\";
var ScriptArg = "Wscript //nologo \"" + PFolder + mapMakeFile + "\"";
var ScriptState = WshShell.Exec(ScriptArg);
while (!ScriptState.Status)
WScript.Sleep(16);
var s = eval(include(mapFile));
fso.deleteFile(mapMakeFile);
fso.deleteFile(mapFile);
return s;
}
var mapSjis = makeMap();
function SaveStrOverWrite(Obj,s ,uniflag)
{
var isOverwrite = true;
var isUnicode = uniflag;
with (fso.CreateTextFile(Obj, isOverwrite, isUnicode)) {
write(s);
Close();
}
}
var objXmlHttp;
function UrlEncode(s)
{
213名無し野検車区:05/01/13 04:01:14 ID:??? BE:39043878-#
var i, n = s.length, a = [];
var sPlus = "+", sZero = "0", sPer = "%";
for (i = 0; i < n; i++) {
var c = s.charAt(i);
var t = c.charCodeAt(0);
if (t == 32) { /* SP 0x20 以降が印字可能アスキー文字 */
a.push(sPlus);
continue;
} else if ((48 <= t & t <= 57)| (65 <= t & t <= 90)||
(97 <= t & t <= 122) /* 0-9 A-Z a-z */
) {
a.push(c);
continue;
}
var d = mapSjis[t];
if (d == undefined)
continue;
a.push(sPer);
var h = d.toString(16);
switch (h.length) {
case 4 :
a.push(h.substring(0, 2));
a.push(sPer);
a.push(h.substring(2));
continue;
case 1 :
a.push(sZero);
}
a.push(h);
}
return a.join("");
}
214名無し野検車区:05/01/13 04:02:25 ID:??? BE:16733164-#
function POST(Key, post2Flag)
{
objXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
with (objXmlHttp) {
Open("POST", "http://tmp4.2ch.net/test/bbs.cgi", false);
SetRequestHeader("Content-Type", "application/x-www-form-urlencoded");
SetRequestHeader("Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*");
SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
SetRequestHeader("Referer", "http://tmp4.2ch.net/tubo/");
var setName = "最低人類1号";
var setMail = "sagenullpo";
var setMes = "緊急あぼ";
var PostData = [
"submit=" , UrlEncode("書き込む"), "&",
"FROM=" , UrlEncode(setName), "&",
"mail=" , UrlEncode(setMail), "&",
"MESSAGE=", UrlEncode(setMes), "&",
"bbs=" , "tubo&", "key=", Key, "&",
"time=" , (Math.round(new Date() / 1000) - 300)
].join("");
SetRequestHeader("Content-Length", PostData.length)
Send(PostData);
}
}
main();
function main()
{
POST(1099059524);
}