Grandoreiro VBS file - Portugal May 2020

grandoreiro_vbs_decryptor_portugal_2020.vbs

' Decryptor Grandoreiro VBS 1st stage - Portugal May 2020
' @sirpedrotavares - seguranca-informatica.pt
' Sample: 8491a619dc6e182437bd4482d6e97e3a

Module VBModule
    Sub Main()
      Dim result, cipher, i, tmp, output 
      cipher="bnnj4))+3,(,-0(+.1(+**4+3/*)Cho`nolcifm(cmi"
        	
      For i = 1 To Len(cipher)
          tmp = Mid(cipher, i, 1)
          tmp = Chr(Asc(tmp)+ 6)
          result = result + tmp
       Next

	   output = result
    
      Console.WriteLine(output)
    End Sub
End Module