[VB6] RFID reverse nibble uitlezen.

[Verwijderd]

ik had een RFID tag lezer. deze is laatst gestolen. Nu heb ik ondertussen weer een nieuwe reader van een ander merk.
probleem hiermee is (icm met een simpel stukje VB6 code ) is dat deze de tags op een andere manier uitleest.

is me ondertussen gelukt om het lees protocol in de VB6 code aan te passen, dus kan wel de tags weer lezen.

echter, mijn vorige reader las:
04 16 A0 B5 D0

huidige leest dat als:
20 68 05 AD 0B

wat ik nu gebrepen heb is dat dit komt de code reversed is:

0000 ‘0’ ‘0’ 1000 ‘8’ ‘1’
0001 ‘1’ ‘8’ 1001 ‘9’ ‘9’
0010 ‘2’ ‘4’ 1010 ‘A’ ‘5’
0011 ‘3’ ‘C’ 1011 ‘B’ ‘D’
0100 ‘4’ ‘2’ 1100 ‘C’ ‘3’
0101 ‘5’ ‘A’ 1101 ‘D’ ‘B’
0110 ‘6’ ‘6’ 1110 ‘E’ ‘7’
0111 ‘7’ ‘E’ 1111 ‘F’ ‘F’

wat er gebeurd is dus, eerst worden ze per 2 omgedraaid:
20 68 05 AD 0B is dan
02 86 50 DA B0

en vervolgens dus 04 16 A0 B5 D0 volgens bovenste de tabel.

in de VB6 software welke ik heb lees is momenteel dus :
206805AD0B terwijl ik 0416A0B5D0 nodig heb.
Ben al uren aan het prutsen maar kom er niet uit.

--

onderstaande vond ik nog via google, maar lukt me dus niet om te toe te passen.


With some tags the reader inverse the tag serial number as follow:

in your case the serial number is 04 16 83 91 22

The reader outputs 20 68 C1 89 44

You can retrieve the serial number by inverting the reader output:

2 0 6 8 C 1 8 9 4 4
0010 0000 0110 1000 1100 0001 1000 1001 0100 0100

Invert nibbles

0100 0000 0110 0001 0011 1000 0001 1001 0010 0010
4 0 6 1 3 8 1 9 2 2

Reverse nibbles byte wise

04 16 83 91 22


had nog wat code gevonden om de hex naar bin te zetten. maar geen idee hoe ik 0010 0000 omzet naar 0000 0100 ect. dus dat schiet ook niet echt op.

kan wel dingen toevoegen in de VB6 code met beetje creatief knippen en plakken , maar ben dus geen echte programmeur.
dus fail mode here..

Zou iemand met meer verstand hiervan me aub kunnen helpen om deze NIBBLE te reversen ?

[.oisyn]

Doe niet zo moeilijk met bits en maak gewoon een tabelletje in code zoals je voor jezelf al met de hand gemaakt had. Dan hoef je alleen nog de hex characters af te lopen om zo de boel om te zetten

[Verwijderd]

ja daar was ik al bang voor. (klok klepel verhaal etc)
helaas voor mij dan.
zal de reader wel retour sturen en een andere bestellen.

of de codes met de hand gaan omzetten. gaat denk ik nog sneller.
gebruik ik dit reversed opmaak formaat wel en pas de oude gegevens met de hand aan naar nieuwe nummers.

Toch bedankt voor de reply, maar zoals ik al zei ik ben dus geen programmeur en heb echt minimaal verstand van VB6. vond het al heel wat dat ik het com protocol aan kon passen.
ben nu al 7 uur aan het prutsen.
Omzetten met de hand kost me ook nog eenmalig een uur of 3-4 denk.
Maar in mijn geval waarschijnlijk sneller dan die code werkend te krijgen..

lang leve de standaardisatie

[RobIII]

Verwijderd schreef op donderdag 22 juli 2010 @ 00:57:
Toch bedankt voor de reply, maar zoals ik al zei ik ben dus geen programmeur en heb echt minimaal verstand van VB6.

Tja, en het probleem is nou net dat we hier in PRG over (zélf) programmeren praten

Verwijderd schreef op donderdag 22 juli 2010 @ 00:32:
kan wel dingen toevoegen in de VB6 code met beetje creatief knippen en plakken , maar ben dus geen echte programmeur.
dus fail mode here..

Zou iemand met meer verstand hiervan me aub kunnen helpen om deze NIBBLE te reversen ?

Ik weet niet wat je van dit topic verwacht had, maar het is dus niet zo dat we even een stukje voorgekauwde code voor je gaan geven die je maar hoeft te copy/pasten En, met alle respect, als je hier al 7 uur mee aan 't klooien en prutsen bent, ben je dan wel de aangewezen persoon voor dit project? Had dit niet beter uitbesteed kunnen worden of aan een "wél programmeur"? Ik zeg het maar even, gewoon, als stof-tot-nadenken voor je baas voor een volgende keer Mocht je voor jezelf aan 't hobbyen zijn dan heb ik natuurlijk niets gezegd behalve dan dat we het niet op een zilveren schaaltje gaan aanreiken

Hoe dan ook, dit valt onder een scriptrequest en daar doen we helaas niet aan.

[ Voor 28% gewijzigd door RobIII op 22-07-2010 01:31 ]

[ZaZ]

ReversedNibble = ((Value * 16) And &HFF) Or (Value \ 16)

Denk ik

edit:
Zojuist effe getest (ben in goede stemming) en lijkt te werken

[ Voor 36% gewijzigd door ZaZ op 22-07-2010 01:28 ]

[.oisyn]

Euh, nee. Dat draait iets als 5B om naar B5. Het probleem is echter dat de daadwerkelijke bits omgekeerd staan. 5B moet dus niet B5 zijn, maar 5B = 01011011 -> 11011010 = DA.

Met de hexwaarden in een string kun je er makkelijk komen met een string reverse en een replace.

[ Voor 22% gewijzigd door RobIII op 22-07-2010 01:40 ]

[RobIII]

^ IBTL dus