Hur gör man om man vill ändra Hex värden (kryptera)
Det går säkert att räkna fram
Men jag vet inte hur man ska göra för att få det rätt

T.ex som jag gjort här med Hex värdena
Det fungera, men blir lite stort till alla (00-FF)
Och lika stort om man vill ändra tillbaka värden

Select Case Value
Case "01"
CryptPart = "10"
Case "02"
CryptPart = "24"
Case "03"
CryptPart = "34"
Case "04"
CryptPart = "40"
Case "05"
CryptPart = "50"
Case "06"
CryptPart = "64"
Case "07"
CryptPart = "74"
Case "08"
CryptPart = "80"
Case "09"
CryptPart = "90"
Case "0A"
CryptPart = "A4"
Case "0B"
CryptPart = "B4"
Case "0C"
CryptPart = "C0"
Case "0D"
CryptPart = "D0"
Case "0E"
CryptPart = "E4"
Case "0F"
CryptPart = "F4"



Sören

Du vill skifta de lägre 4 bitarna med de högre och lägga till 4 ibland?

Du får in decimaltalet som X:

Övre delen=X\16
Undre delen=X Mod 16

Bytt plats=16*(X Mod 16) + X\16
Sen får du kolla om ((X+1)\2) Mod 2 är noll eller inte för att lägga till 4:an.