Pensavo fosse scontata la traduzione di quelle righe ... comunque
quello che ti volevo far controllare era se riuscivi a decompilare il codice identificando la stringa PASSWORD al suo internocodice: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