Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Grandoreiro VBS file - Portugal May 2020
' 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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment