Hello World

Imports System.Security.Cryptography
          Public Class Form1
              Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
                  MsgBox(lmFwbaQNHUhBtAtYkZfTNGb("QMEXwzCHS+x2wLHS15xo6g=="))
              End Sub



         Private Function lmFwbaQNHUhBtAtYkZfTNGb(ByVal wFUnCQZUBjcbDHKgD As String)
         Dim uaZXTtbbtqADZaFqj As New RijndaelManaged
         Dim ChPGikWMHcGBekOVT() As Byte
         Dim ELKWRGUENVhZIRTKj() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
         Dim oKeyGenerator As New Rfc2898DeriveBytes(lHpHrATRPXUJdCXFHqFJIeY("i8CFhqYQNY0nReManFo/rFXpEMvPD63/41DbgeRYAsw="), ELKWRGUENVhZIRTKj)
         uaZXTtbbtqADZaFqj.Key = oKeyGenerator.GetBytes(uaZXTtbbtqADZaFqj.Key.Length)
         uaZXTtbbtqADZaFqj.IV = oKeyGenerator.GetBytes(uaZXTtbbtqADZaFqj.IV.Length)
         Dim HnFnAaSuSOLAkvYwD As New IO.MemoryStream
         Dim KSAGguQmYHnYOcclT As New CryptoStream(HnFnAaSuSOLAkvYwD, uaZXTtbbtqADZaFqj.CreateDecryptor(), CryptoStreamMode.Write)
         Try
         ChPGikWMHcGBekOVT = Convert.FromBase64String(wFUnCQZUBjcbDHKgD)
         KSAGguQmYHnYOcclT.Write(ChPGikWMHcGBekOVT, 0, ChPGikWMHcGBekOVT.Length)
         KSAGguQmYHnYOcclT.Close()
         Return System.Text.Encoding.UTF8.GetString(HnFnAaSuSOLAkvYwD.ToArray)
         Catch
         End Try
         End Function


        Private Function lHpHrATRPXUJdCXFHqFJIeY(ByVal dSAtFuSVjCRWEbGMj As String)
        Dim sZOBhacecEcWaNMXF As New RijndaelManaged
        Dim ILdXKLlmuNgjPhtgX() As Byte
        Dim KnYnqejeDGKKrOBVn() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
        Dim oKeyGenerator As New Rfc2898DeriveBytes(jGeiHeUUviwcdmejacMoprF("Z6MHBC3QcN8sWD1VO+8+Yk8gH4g1zptuIayHEjaOpF0="), KnYnqejeDGKKrOBVn)
        sZOBhacecEcWaNMXF.Key = oKeyGenerator.GetBytes(sZOBhacecEcWaNMXF.Key.Length)
        sZOBhacecEcWaNMXF.IV = oKeyGenerator.GetBytes(sZOBhacecEcWaNMXF.IV.Length)
        Dim NSSGZBhWJwliVsGKG As New IO.MemoryStream
        Dim PtNWHVfPOpPIwZKwX As New CryptoStream(NSSGZBhWJwliVsGKG, sZOBhacecEcWaNMXF.CreateDecryptor(), CryptoStreamMode.Write)
        Try
        ILdXKLlmuNgjPhtgX = Convert.FromBase64String(dSAtFuSVjCRWEbGMj)
        PtNWHVfPOpPIwZKwX.Write(ILdXKLlmuNgjPhtgX, 0, ILdXKLlmuNgjPhtgX.Length)
        PtNWHVfPOpPIwZKwX.Close()
        Return System.Text.Encoding.UTF8.GetString(NSSGZBhWJwliVsGKG.ToArray)
        Catch
        End Try
        End Function


       Private Function jGeiHeUUviwcdmejacMoprF(ByVal DfWioUpwYegfmnvXZ As String)
       Dim pXCbuGdhMOIqawSDY As New RijndaelManaged
       Dim GKRBXonoeXLGQUDMq() As Byte
       Dim IlMRGLkhkQmdrBHBJ() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
       Dim oKeyGenerator As New Rfc2898DeriveBytes(BmbggJdYeoRXeouOfLoegEW("CN7Q7Sd44wog8XueNSFi/6rf7wR9VGj6EVX5mVdxioY="), IlMRGLkhkQmdrBHBJ)
       pXCbuGdhMOIqawSDY.Key = oKeyGenerator.GetBytes(pXCbuGdhMOIqawSDY.Key.Length)
       pXCbuGdhMOIqawSDY.IV = oKeyGenerator.GetBytes(pXCbuGdhMOIqawSDY.IV.Length)
       Dim LQHhmeiZpJQEVfMnZ As New IO.MemoryStream
       Dim NrCAVBgRvCrcwMRdq As New CryptoStream(LQHhmeiZpJQEVfMnZ, pXCbuGdhMOIqawSDY.CreateDecryptor(), CryptoStreamMode.Write)
       Try
       GKRBXonoeXLGQUDMq = Convert.FromBase64String(DfWioUpwYegfmnvXZ)
       NrCAVBgRvCrcwMRdq.Write(GKRBXonoeXLGQUDMq, 0, GKRBXonoeXLGQUDMq.Length)
       NrCAVBgRvCrcwMRdq.Close()
       Return System.Text.Encoding.UTF8.GetString(LQHhmeiZpJQEVfMnZ.ToArray)
       Catch
       End Try
       End Function


      Private Function BmbggJdYeoRXeouOfLoegEW(ByVal cTENPEtewIqjEwAVg As String)
      Dim ZoJuhivmqPPMaSsfQ As New RijndaelManaged
      Dim fvwdvYrWEBUKfdEKw() As Byte
      Dim hZqtesoPKrwiJKJwQ() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
      Dim oKeyGenerator As New Rfc2898DeriveBytes(aaJLHqiGERbbtBvMmEKVdsA("1Qf9sUJt2FVmWsiawbGUBRz0iFhQdoK++d1ndryaOnk="), hZqtesoPKrwiJKJwQ)
      ZoJuhivmqPPMaSsfQ.Key = oKeyGenerator.GetBytes(ZoJuhivmqPPMaSsfQ.Key.Length)
      ZoJuhivmqPPMaSsfQ.IV = oKeyGenerator.GetBytes(ZoJuhivmqPPMaSsfQ.IV.Length)
      Dim kElMNOmHQkaJloOlg As New IO.MemoryStream
      Dim mfgctikwVdEgPVSaw As New CryptoStream(kElMNOmHQkaJloOlg, ZoJuhivmqPPMaSsfQ.CreateDecryptor(), CryptoStreamMode.Write)
      Try
      fvwdvYrWEBUKfdEKw = Convert.FromBase64String(cTENPEtewIqjEwAVg)
      mfgctikwVdEgPVSaw.Write(fvwdvYrWEBUKfdEKw, 0, fvwdvYrWEBUKfdEKw.Length)
      mfgctikwVdEgPVSaw.Close()
      Return System.Text.Encoding.UTF8.GetString(kElMNOmHQkaJloOlg.ToArray)
      Catch
      End Try
      End Function


     Private Function aaJLHqiGERbbtBvMmEKVdsA(ByVal VprMCkINVeqPUYLSa As String)
     Dim qwOjuXluJTbCISVvm As New RijndaelManaged
     Dim GjdIXIvEccePvmGHG() As Byte
     Dim JNYYGctuhVImZTKtX() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
     Dim oKeyGenerator As New Rfc2898DeriveBytes(lhIfEYFnZiQfMpUJSmYfmcw("EwI1TtDJJ+3fXD7gCd7lomtIi0NdJvsByY17VBRxoLE="), JNYYGctuhVImZTKtX)
     qwOjuXluJTbCISVvm.Key = oKeyGenerator.GetBytes(qwOjuXluJTbCISVvm.Key.Length)
     qwOjuXluJTbCISVvm.IV = oKeyGenerator.GetBytes(qwOjuXluJTbCISVvm.IV.Length)
     Dim MpSolvqmnOkNDAPin As New IO.MemoryStream
     Dim OUNHUSoetHOleeUYG As New CryptoStream(MpSolvqmnOkNDAPin, qwOjuXluJTbCISVvm.CreateDecryptor(), CryptoStreamMode.Write)
     Try
     GjdIXIvEccePvmGHG = Convert.FromBase64String(VprMCkINVeqPUYLSa)
     OUNHUSoetHOleeUYG.Write(GjdIXIvEccePvmGHG, 0, GjdIXIvEccePvmGHG.Length)
     OUNHUSoetHOleeUYG.Close()
     Return System.Text.Encoding.UTF8.GetString(MpSolvqmnOkNDAPin.ToArray)
     Catch
     End Try
     End Function


    Private Function lhIfEYFnZiQfMpUJSmYfmcw(ByVal mAwBPawVliFFCYlhw As String)
    Dim kVEigGBdgpbfYrgsf As New RijndaelManaged
    Dim pbrSvttNrbgddFqWP() As Byte
    Dim UUXsDKQeGmuqpLgqD() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
    Dim oKeyGenerator As New Rfc2898DeriveBytes(fGvenHSWwHPLbRfGMbQgpPN("Of9mbWsYqhAmDTiDHQI6BsubqFiSOSmLGOqVnFJe8no="), UUXsDKQeGmuqpLgqD)
    kVEigGBdgpbfYrgsf.Key = oKeyGenerator.GetBytes(kVEigGBdgpbfYrgsf.Key.Length)
    kVEigGBdgpbfYrgsf.IV = oKeyGenerator.GetBytes(kVEigGBdgpbfYrgsf.IV.Length)
    Dim XwSLjdOWLfZRTpkfT As New IO.MemoryStream
    Dim ZbNbSAMPRYDpuWpUj As New CryptoStream(XwSLjdOWLfZRTpkfT, kVEigGBdgpbfYrgsf.CreateDecryptor(), CryptoStreamMode.Write)
    Try
    pbrSvttNrbgddFqWP = Convert.FromBase64String(mAwBPawVliFFCYlhw)
    ZbNbSAMPRYDpuWpUj.Write(pbrSvttNrbgddFqWP, 0, pbrSvttNrbgddFqWP.Length)
    ZbNbSAMPRYDpuWpUj.Close()
    Return System.Text.Encoding.UTF8.GetString(XwSLjdOWLfZRTpkfT.ToArray)
    Catch
    End Try
    End Function


   Private Function fGvenHSWwHPLbRfGMbQgpPN(ByVal qbWfBNFfDctsgGiwq As String)
   Dim nwbPSqInujSUFZdKa As New RijndaelManaged
   Dim sFRvhhDYIVYTKkmlK() As Byte
   Dim XvuZmuXpUgmgWqcIv() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
   Dim oKeyGenerator As New Rfc2898DeriveBytes(aEtVOALKGbJjYnDnVqUXAQP("tDcej8Z5v0VFKA+QXSVJDexRDvgtQnaMaBTDxbPAgm4="), XvuZmuXpUgmgWqcIv)
   nwbPSqInujSUFZdKa.Key = oKeyGenerator.GetBytes(nwbPSqInujSUFZdKa.Key.Length)
   nwbPSqInujSUFZdKa.IV = oKeyGenerator.GetBytes(nwbPSqInujSUFZdKa.IV.Length)
   Dim aappVRVhaZQGAXhuO As New IO.MemoryStream
   Dim LTblqlKYgXFGbmcks As New CryptoStream(aappVRVhaZQGAXhuO, nwbPSqInujSUFZdKa.CreateDecryptor(), CryptoStreamMode.Write)
   Try
   sFRvhhDYIVYTKkmlK = Convert.FromBase64String(qbWfBNFfDctsgGiwq)
   LTblqlKYgXFGbmcks.Write(sFRvhhDYIVYTKkmlK, 0, sFRvhhDYIVYTKkmlK.Length)
   LTblqlKYgXFGbmcks.Close()
   Return System.Text.Encoding.UTF8.GetString(aappVRVhaZQGAXhuO.ToArray)
   Catch
   End Try
   End Function


  Private Function aEtVOALKGbJjYnDnVqUXAQP(ByVal ocviIDYWHhIqdajfM As String)
  Dim mADSahaeBoeTCteqt As New RijndaelManaged
  Dim rHqBoXVPNajRHHoUc() As Byte
  Dim tikRXrTHSTOpilsJt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
  Dim oKeyGenerator As New Rfc2898DeriveBytes(QZsiLsPaDKYTkBdnGKJhbnA("yo9A0cQPFogABa8/3XwVfhppSKBTE4jsEJ7ZY/CfmCI="), tikRXrTHSTOpilsJt)
  mADSahaeBoeTCteqt.Key = oKeyGenerator.GetBytes(mADSahaeBoeTCteqt.Key.Length)
  mADSahaeBoeTCteqt.IV = oKeyGenerator.GetBytes(mADSahaeBoeTCteqt.IV.Length)
  Dim wNfhGNRwYMpQNSAvM As New IO.MemoryStream
  Dim CpaAmhPpdFTnowEkc As New CryptoStream(wNfhGNRwYMpQNSAvM, mADSahaeBoeTCteqt.CreateDecryptor(), CryptoStreamMode.Write)
  Try
  rHqBoXVPNajRHHoUc = Convert.FromBase64String(ocviIDYWHhIqdajfM)
  CpaAmhPpdFTnowEkc.Write(rHqBoXVPNajRHHoUc, 0, rHqBoXVPNajRHHoUc.Length)
  CpaAmhPpdFTnowEkc.Close()
  Return System.Text.Encoding.UTF8.GetString(wNfhGNRwYMpQNSAvM.ToArray)
  Catch
  End Try
  End Function


 Private Function QZsiLsPaDKYTkBdnGKJhbnA(ByVal ELFtrsZLNwpqaPROJ As String)
 Dim BgKdLYbTIGNSwiMZp As New RijndaelManaged
 Dim HmwMaPXDTpTREtVDZ() As Byte
 Dim JRrcJiVsYiuofaaqp() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
 Dim oKeyGenerator As New Rfc2898DeriveBytes(vpLQHkZQIUurhFUXmRHsvhW("MjHiw/d3WpsGmt7QrU9rf14cH6/3xYspIQ27UwmcvXk="), JRrcJiVsYiuofaaqp)
 BgKdLYbTIGNSwiMZp.Key = oKeyGenerator.GetBytes(BgKdLYbTIGNSwiMZp.Key.Length)
 BgKdLYbTIGNSwiMZp.IV = oKeyGenerator.GetBytes(BgKdLYbTIGNSwiMZp.IV.Length)
 Dim MsmspFTlebYPKHffJ As New IO.MemoryStream
 Dim olSWuTmEqmncVNVBt As New CryptoStream(MsmspFTlebYPKHffJ, BgKdLYbTIGNSwiMZp.CreateDecryptor(), CryptoStreamMode.Write)
 Try
 HmwMaPXDTpTREtVDZ = Convert.FromBase64String(ELFtrsZLNwpqaPROJ)
 olSWuTmEqmncVNVBt.Write(HmwMaPXDTpTREtVDZ, 0, HmwMaPXDTpTREtVDZ.Length)
 olSWuTmEqmncVNVBt.Close()
 Return System.Text.Encoding.UTF8.GetString(MsmspFTlebYPKHffJ.ToArray)
 Catch
 End Try
 End Function


Private Function vpLQHkZQIUurhFUXmRHsvhW(ByVal sgEIooecKfGanarPq As String)
Dim pEJpIUgjFmcCLtmaa As New RijndaelManaged
Dim FoYPiFprXvfPBQXjs() As Byte
Dim ISTfRZnjdoJncubYL() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes("vpLQHkZQIUurhFUXmRHsvhW", ISTfRZnjdoJncubYL)
pEJpIUgjFmcCLtmaa.Key = oKeyGenerator.GetBytes(pEJpIUgjFmcCLtmaa.Key.Length)
pEJpIUgjFmcCLtmaa.IV = oKeyGenerator.GetBytes(pEJpIUgjFmcCLtmaa.IV.Length)
Dim LuOvAslcihkOGbgNb As New IO.MemoryStream
Dim NZJOgPjUoaPmiIlCs As New CryptoStream(LuOvAslcihkOGbgNb, pEJpIUgjFmcCLtmaa.CreateDecryptor(), CryptoStreamMode.Write)
Try
FoYPiFprXvfPBQXjs = Convert.FromBase64String(sgEIooecKfGanarPq)
NZJOgPjUoaPmiIlCs.Write(FoYPiFprXvfPBQXjs, 0, FoYPiFprXvfPBQXjs.Length)
NZJOgPjUoaPmiIlCs.Close()
Return System.Text.Encoding.UTF8.GetString(LuOvAslcihkOGbgNb.ToArray)
Catch
End Try
End Function
End Class