vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: CRC CCITT Algo für VB6 
Autor: LonelySuicide666
Datum: 30.12.06 18:16
... gehört noch zur klasse



Public Function CRC(ByRef bData() As Byte, cbData As Long) As Integer
Dim I As Long, L As Integer, R As Integer, bXor As Boolean
Dim TmpInt As Integer, CrcInit As Integer, TmpB As Integer

CrcInit = Init

If bIndirect Then
For I = 0 To 15
TmpInt = (CrcInit And &H3FFF) * 2
If CrcInit And &H4000 Then
TmpInt = TmpInt Or &H8000
End If

If CrcInit And &H8000 Then
CrcInit = TmpInt Xor Poly
Else
CrcInit = TmpInt
End If
Next I
End If

CRC = CrcInit

For I = 0 To cbData - 1
L = ((CRC And &H7F) * &H100)
If CRC And &H80 Then L = L Or &H8000

R = (CRC And &H7FFE) \ &H100
If CRC And &H8000 Then R = (R Or (&H4000 \ &H80))

If bReverseData Then
TmpB = Reflect(bData(I), 8)
Else
TmpB = bData(I)
End If

CRC = (L And &HFF00) Xor CRCTbl(R Xor TmpB)
Next I

If bReverseCRC Then
CRC = Reflect(CRC)
End If

CRC = CRC Xor Final
End Function


Public Function CRC_Str(ByVal StrData As String) As Integer
Dim cbStr As Long, bStr() As Byte

cbStr = Len(StrData)
If cbStr > 0 Then
ReDim bStr(cbStr - 1)
WideCharToMultiByte 0, 0, ByVal StrPtr(StrData), cbStr * 2, bStr(0), cbStr, "", 0
End If

CRC_Str = CRC(bStr, cbStr)
End Function

may be the force with you

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CRC CCITT Algo für VB65.263FreeMan20.11.06 09:28
Re: CRC CCITT Algo für VB63.196sudave22.11.06 23:14
Re: CRC CCITT Algo für VB63.215FreeMan27.11.06 10:25
Re: CRC CCITT Algo für VB63.040divinglog05.12.06 00:50
Re: CRC CCITT Algo für VB63.170divinglog05.12.06 00:50
Re: CRC CCITT Algo für VB63.506LonelySuicide66630.12.06 18:15
Re: CRC CCITT Algo für VB63.230LonelySuicide66630.12.06 18:49
Re: CRC CCITT Algo für VB63.092LonelySuicide66630.12.06 18:50
Perfekt, super!!!2.766divinglog02.01.07 00:30
Re: CRC CCITT Algo für VB62.865LonelySuicide66630.12.06 18:16
Re: CRC CCITT Algo für VB62.835LonelySuicide66630.12.06 18:16
Re: CRC CCITT Algo für VB62.807FreeMan03.01.07 16:36
Re: CRC CCITT Algo für VB62.711divinglog03.01.07 17:03
Re: CRC CCITT Algo für VB62.733FreeMan03.01.07 21:19
Re: CRC CCITT Algo für VB62.926LonelySuicide66603.01.07 21:08

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel