/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
XOR funktion i VB6
Fra : rasmussen.claus@gmai~


Dato : 04-04-06 14:18

Hej

Jeg har fået en udfordring bestående i at jeg skal beregne en
checksum på en streng. Denne checksum skal beregnes ved at hver enkelt
karakter i en streng skal der laves en XOR 'beregning' på og
sammenlægges. Denne checksum skal så efterfølgende tilføjes i
slutningen af strengen.
Og jeg er fuldstændig 'blank' med hvordan dette skal gøres! Jeg har
set at der findes en XOR funktion i .NET, men desværre skal jeg bruge
det i VB6 (grundet drivere til andet udstyr).

Eksempel:

Strengen: "@01R"
Værdi der skal tilføres Strengen:
xorValue = XOR("@") + XOR("0") + XOR("1") + XOR("R")

Resultat (xx= xorValue som en String):
result = "@01Rxx"

Er der evt. en af jer der kan gi' et prej til hvordan jeg kommer igang?

På forhånd tak

/C


 
 
Lasse Madsen (04-04-2006)
Kommentar
Fra : Lasse Madsen


Dato : 04-04-06 15:50

jeg gør sådan

dim sum as byte

For i = 1 To 6
sum = sum Xor mybytes(i)
Next i


lasse



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste