hoy sentado desde las 3 a las 9:30 en la sala de estudio ise esto :) Private Sub Command1_Click() Dim mhs As String Dim ma As String Dim b1 As String Dim b2 As String Dim b3 As String Dim b4 As String mhs = Text1.Text ma = AscEncode(mhs) b1 = Mid(ma, 1, 2) b2 = Mid(ma, 3, 2) b3 = Mid(ma, 5, 2) b4 = Mid(ma, 7, 2) Text2.Text = b1 & " " & b2 & " " & b3 & " " & b4 Text3.Text = (DecVariant(b1) * 16 * 16 * 16) + (DecVariant(b2) * 16 * 16) + (DecVariant(b3)) * 16 + DecVariant(b4) End Sub Private Function HexString(EvalString As String) As String Dim intStrLen As Integer Dim intLoop As Integer Dim strHex As String EvalString = Trim(EvalString) intStrLen = Len(EvalString) For intLoop = 1 To intStrLen strHex = strHex & Right$("0" & Hex(Asc(Mid(EvalString, intLoop, 1))), 2) Next HexString = strHex End Function Function AscEncode(str) Dim i Dim sAscii sAscii = "" For i = 1 To Len(str) sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1)))) Next AscEncode = sAscii End Function Private Function DecVariant(letra As String) As Integer Dim aski As Integer aski = CInt(letra) If (letra >= 30) And (letra = 61) And (letra
Posted on: Thu, 13 Jun 2013 03:30:08 +0000
Trending Topics
Recently Viewed Topics
© 2015