Pensavo fosse scontata la traduzione di quelle righe ... comunque

codice:
    Dim accsec As SecureString

    Sub cripto(ss As SecureString)
        ss.AppendChar("P")
        ss.AppendChar("A")
        ss.AppendChar("S")
        ss.AppendChar("S")
        ss.AppendChar("W")
        ss.AppendChar("O")
        ss.AppendChar("R")
        ss.AppendChar("D")
    End Sub

    Function decripto(ss As SecureString) As String
        Dim bstr As IntPtr = Marshal.SecureStringToBSTR(accsec)
        Dim s As String
        Try
            s = Marshal.PtrToStringBSTR(bstr)
        Finally
            Marshal.FreeBSTR(bstr)
        End Try

        Return s
    End Function

    Sub Main()
        accsec = New SecureString()

        cripto(accsec)

        Console.WriteLine(decripto(accsec))
    End Sub
quello che ti volevo far controllare era se riuscivi a decompilare il codice identificando la stringa PASSWORD al suo interno