avant de poser ma Question j'ai chercher sur le forum mais j'ai riens trouver
sur le sujet .
j'ai une function pour encoder un string avec PB mais laurce que j'essaie de le decoder
avec vb net ca donne rien .
voila les deux function :
PB
Code : Tout sélectionner
Procedure.s Encode(xO.s)
On$ = Space(1024)
Debug Base64Encoder(@xO, StringByteLength(xO), @On$, 1024)
x$ = PeekS(@On$, -1, #PB_UTF8)
Debug x$
ProcedureReturn x$
EndProcedure
Code : Tout sélectionner
Public Shared Function Decode(ByRef s As String) As String
Try
Dim bytes As Byte() = Convert.FromBase64String(s)
str = Encoding.UTF8.GetString(bytes)
Console.WriteLine(str)
Return str
End Function