' Decrypter
' SI-LAB - www.seguranca-informatica.pt
' Sample: 3350e74a4cfa020f9b256194eae25c12
' @sirpedrotavares

Module VBModule
    Sub Main()
       Dim Ciphertext
       Dim i 
       Dim oldAsc
       Ciphertext = "&aQ^>jhjqfFi`0o%B%~\tkLYya'jL^\[{m[e1hYb~Z!$miU)e$5k3i]#*[OWHi(jc#-(F$bWHcVW\pWe;deW3m$i_$TY%emc^%s&M$Tp^_OfxK" 
       Dim Decrypt 
       Const offset = 10
       Const minAsc = 33
       Const maxAsc = 126


    Dim Plaintext
    Ciphertext = Mid(Ciphertext,3,Len(Ciphertext)-4)

    For i=2 To Len(Ciphertext) Step 2
        oldAsc = Asc(Mid(Ciphertext,i,1)) + offset
        If oldAsc > maxAsc Then
            oldAsc = oldAsc - maxAsc + minAsc - 1
        End If

        Plaintext = Plaintext & Chr(oldAsc)
    Next

    Decrypt = Plaintext
        
     Console.WriteLine(Decrypt)    
    End Sub
End Module