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