Vänd på funktion

1 svar · 224 visningar · startad av martinpartin 23 feb. 2006

martinpartinMedlem sedan jan. 2001373 inlägg

Frågan23 feb. 2006 12:28#1

Hej,

Jag skulle vilja vända på denna funktion men har lite svårt att få överblick hur jag gör det.

Någon som har nån idé ?

Function OctetToHexStr(arrbytOctet)

  Dim k
  OctetToHexStr = ""
  For k = 1 To Lenb(arrbytOctet)
    OctetToHexStr = OctetToHexStr _
      & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
  Next
End Function

martinpartinMedlem sedan jan. 2001373 inlägg

23 feb. 2006 13:25#2

Kanske föredrar man o se den på detta vis

input är t.ex:

152 351 115 022 346 205 305 103 224 057 323 027 352 071 242 375

Function OctetToHexStr(arrbytOctet)

OctetToHexStr = ""

Dim k, tmp
 

For k = 1 To Lenb(arrbytOctet)
 
 tmp = Midb(arrbytOctet, k, 1)
 tmp = Ascb(tmp)
 tmp = Hex(tmp)
 tmp = Right("0" & tmp, 2)
 OctetToHexStr = OctetToHexStr & tmp

Next
End Function