Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Grandoreiro VBS file - Portugal May 2020
' Decryptor Grandoreiro VBS 1st stage - Portugal May 2020
' @sirpedrotavares -
' Sample: 8491a619dc6e182437bd4482d6e97e3a
Module VBModule
Sub Main()
Dim result, cipher, i, tmp, output
For i = 1 To Len(cipher)
tmp = Mid(cipher, i, 1)
tmp = Chr(Asc(tmp)+ 6)
result = result + tmp
output = result
End Sub
End Module
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment