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
You can’t perform that action at this time.