ってことで、ソース公開するね
むしろ通信する系のプログラムは、裏を介せば悪用されかねない
最近、Googleの審査を通過したアプリが使っている広告ネットワークが突然ウィルスを配布しだしたのと同じ
#uselib "hspsock.dll" #func sockopen "_sockopen@16" int, str, int, int #func sockclose "_sockclose@16" int, int, int, int #func sockget "_sockget@16" var, int, int, int #func sockput "_sockput@16" bmscr, str, int, int #func sockcheck "_sockcheck@16" int, int, int, int #uselib "hspinet.dll" #func b64encode "_b64encode@16" pexinfo, nullptr, nullptr, nullptr #uselib "hspext.dll" #func clipset "_clipset@16" bmscr, str, int, int #uselib "shell32.dll" #func DragAcceptFiles "DragAcceptFiles" int, int #func DragQueryFileA "DragQueryFileA" int, int, int, int #func DragFinish "DragFinish" int title "月見アップローダー" oncmd gosub *label_1, 513 newcom var_0, "WbemScripting.SWbemLocator" comres var_1 mcall comres var_2 var_1->"ExecQuery" "Select * From Win32_NetworkAdapterConfiguration" var_3 = var_2("Count") comres var_4 repeat var_3 var_1->"Get" "Win32_NetworkAdapter.DeviceId=\"" + (cnt + 1) + "\"" var_5 = var_4(".NetConnectionId") if ( var_5("vartype") == 8 ) { var_6 = var_5("value") var_7 = var_4("Description") var_8 = var_4(".MACAddress") if ( var_8("vartype") == 8 ) { var_9 = var_8("value") } mes "#" + (cnt + 1) + ": " + var_7 + " \n" + var_6 + " = " + var_9 var_10 = var_9 var_7 = "" var_6 = "" var_9 = "" } loop sdim var_11, 50000 oncmd gosub *label_0, 563 screen 0, 392, 118, 0 exist "logo.jpg" var_12 = strsize if ( var_12 == (-1) ) { dialog "ロゴファイルが存在しません", 1 end } picload "logo.jpg" DragAcceptFiles hwnd, 1 if ( stat == 0 ) { dialog "設定に失敗しました。", 1, "エラー" end } font "MS Pゴシック", 17, 1 pos 150, 90 mes " ファイルをドロップして下さい。" stop *label_0 title "アップロード開始・・・" var_13 = wparam var_14 = 1 DragQueryFileA var_13, -1, 0, 0 var_15 = stat if ( var_15 > 10 ) { dialog "数が多すぎます。\n 数回に分けてください。" end } sdim var_16, 260 repeat var_15 DragQueryFileA var_13, cnt, varptr(var_16), 260 title "" + var_14 + "個目をアップロード作業中・・・" var_14++ exist var_16 var_17 = strsize if ( var_17 <= 541344 ) { if ( var_17 == (-1) ) { dialog "ファイルが存在しません" end } sdim var_18, var_17 bload var_16, var_18 b64encode var_19, var_18, var_17 sdim var_20, 32000 sdim var_21, 32000 var_22 = "xgetter.info" var_21 = "test=" + var_19 + "&filename=" + var_16 + "&macid=" + var_10 var_23 = strlen(var_21) var_20 += "POST /image/index.php HTTP/1.1\n" var_20 += "Connection: close\n" var_20 += "Referer: \n" var_20 += "Host: " + var_22 + "\n" var_20 += "User-Agent: PICUP\n" var_20 += "Content-Length: " + var_23 + "\n" var_20 += "Content-type: application/x-www-form-urlencoded\n\n" var_20 += var_21 sockopen 0, "xgetter.info", 80 if ( stat != 0 ) { dialog "エラー" end } sockput var_20, 0 repeat sockcheck 0 if ( stat == 0 ) { break } wait 1 loop wait 50 sockget var_20, 32000, 0 var_24 = instr(var_20, , "HSP:") var_25 = instr(var_20, , ":ENDHSP") var_26 = strmid(var_20, var_24 + 4, var_25 - var_24 - 4) if ( var_26 != "" ) { var_26 = "http://xgetter.info/image/" + var_26 + ".jpg" var_11 += var_26 + "\n" notesel var_27 noteload "log.txt", -1 noteadd var_26, 0 notesave "log.txt" } } loop sockclose 0 if ( var_11 != "" ) { clipset var_11 dialog "アップロード完了!!\nクリップボードにコピーしました。" var_11 = "" } title "アップロード終了 月見アップローダー" DragFinish var_13 return 0 *label_1 exist var_10 var_28 = strsize b64encode var_29, var_10, var_28 clipset "http://xgetter.info/image/mypage.php?me=" + var_29 dialog "貴方のアップロードした画像一覧のURLをコピーしました。" stop