Réponse acceptée !
Function HexCrypt2(ByRef Text As String) As String
Dim Size As Long
Dim Buffer As String
Dim Car As Byte
Dim i As Long
Size = Len(Text)
Buffer = Space$(2 * Size)
For i = 1 To Size
Car = Asc(Mid$(Text, i, 1))
If Car < 16 Then
Mid$(Buffer, (i * 2) - 1, 2) = "0" & Hex$(Car)
Else
Mid$(Buffer, (i * 2) - 1, 2) = Hex$(Car)
End If
Next i
HexCrypt2 = Buffer
End Function
'--------------------------------
dim string1 as string
RichTextBox1 = HexCrypt2(String1)
|