VERIRICAR CRC DO ARQUIVO

App.Path & [Ô]\arquivo.exe[Ô]

Citação:

:
e assim

App.Path & [Ô]arquivo.exe[Ô]

Citação:

Option Explicit
Option Compare Text
[ô]// Then declare this array variable Crc32Table
Private Crc32Table(255) As Long
[ô]// Then all we have to do is writing public functions like these...

Public Function CheckSumFile(cFile As String) As String
Dim TheFile As String
Dim lCrc32Value As Long
Dim CRCStr As String * 8
Dim FL As Long [ô]file length
Dim FileStr$
Dim RealCRC As String * 8

TheFile = cFile

On Error Resume Next

FL = FileLen(TheFile)
FileStr$ = String(FL, 0)

Open TheFile For Binary As #1
Get #1, 1, FileStr$
Close #1

lCrc32Value = InitCrc32()
lCrc32Value = AddCrc32(FileStr$, lCrc32Value)
RealCRC = CStr(Hex$(GetCrc32(lCrc32Value)))
[ô]MsgBox [Ô]Real CRC=[Ô] & RealCRC & vbCrLf & [Ô]File CRC=[Ô] & CRCStr, vbInformation + vbOKOnly, [Ô]CRC32 Results[Ô]

Open TheFile For Binary As #1
Put #1, FL + 1, RealCRC
Close #1

CheckSumFile = RealCRC
End Function

Private Function InitCrc32(Optional ByVal Seed As Long = &HEDB88320, Optional ByVal Precondition As Long = &HFFFFFFFF) As Long
[ô]// Declare counter variable iBytes, counter variable iBits, value variables lCrc32 and lTempCrc32
Dim iBytes As Integer, iBits As Integer, lCrc32 As Long, lTempCrc32 As Long
[ô]// Turn on error trapping
On Error Resume Next
[ô]// Iterate 256 times

For iBytes = 0 To 255
[ô]// Initiate lCrc32 to counter variable
lCrc32 = iBytes
[ô]// Now iterate through each bit in counter byte


For iBits = 0 To 7
[ô]// Right shift unsigned long 1 bit
lTempCrc32 = lCrc32 And &HFFFFFFFE
lTempCrc32 = lTempCrc32 \ &H2
lTempCrc32 = lTempCrc32 And &H7FFFFFFF
[ô]// Now check if temporary is less than zero and then mix Crc32 checksum with Seed value


If (lCrc32 And &H1) <> 0 Then
lCrc32 = lTempCrc32 Xor Seed
Else
lCrc32 = lTempCrc32
End If
Next
[ô]// Put Crc32 checksum value in the holding array
Crc32Table(iBytes) = lCrc32
Next
[ô]// After this is done, set function value to the precondition value
InitCrc32 = Precondition
End Function
[ô]// The function above is the initializing function, now we have to write the computation function

Private Function AddCrc32(ByVal Item As String, ByVal CRC32 As Long) As Long
[ô]// Declare following variables
Dim bCharValue As Byte, iCounter As Integer, lIndex As Long
Dim lAccValue As Long, lTableValue As Long
[ô]// Turn on error trapping
On Error Resume Next
[ô]// Iterate through the string that is to be checksum-computed


For iCounter = 1 To Len(Item)
[ô]// Get ASCII value for the current character
bCharValue = Asc(Mid$(Item, iCounter, 1))
[ô]// Right shift an Unsigned Long 8 bits
lAccValue = CRC32 And &HFFFFFF00
lAccValue = lAccValue \ &H100
lAccValue = lAccValue And &HFFFFFF
[ô]// Now select the right adding value from the holding table
lIndex = CRC32 And &HFF
lIndex = lIndex Xor bCharValue
lTableValue = Crc32Table(lIndex)
[ô]// Then mix new Crc32 value with previous accumulated Crc32 value
CRC32 = lAccValue Xor lTableValue
Next
[ô]// Set function value the the new Crc32 checksum
AddCrc32 = CRC32
End Function
[ô]// At last, we have to write a function so that we can get the Crc32 checksum value at any time

Private Function GetCrc32(ByVal CRC32 As Long) As Long
[ô]// Turn on error trapping
On Error Resume Next
[ô]// Set function to the current Crc32 value
GetCrc32 = CRC32 Xor &HFFFFFFFF
End Function
[ô]// To Test the Routines Above...

Private Function Compute(ToGet As String) As String
Dim lCrc32Value As Long
On Error Resume Next
lCrc32Value = InitCrc32()
lCrc32Value = AddCrc32(ToGet, lCrc32Value)
Compute = Hex$(GetCrc32(lCrc32Value))
End Function

Private Function AppExe() As String
On Error Resume Next
Dim AP As String
AP = App.Path
If Right(AP, 1) <> [Ô]\[Ô] Then AP = AP & [Ô]\[Ô]
AppExe = AP & App.EXEName & [Ô].exe[Ô]
End Function

Citação:

Private Sub Command1_Click()
TmpCrc = [Ô]64601342121[Ô]
If TmpCrc <> CheckSumFile([Ô]\arquivo[Ô]) Then
MsgBox [Ô]Arquivo errado[Ô]
End If
End Sub

  
Private Sub Command1_Click()
dim TmpCrc as string
TmpCrc = [Ô]Colocar aqui o crc que voce pegou anteriormente[Ô]
If TmpCrc <> CheckSumFile([Ô]arquivo[Ô]) Then [ô]tem que colocar exatamente aonde o arquivo esta ex.: [Ô]c:\windows\calc.exe[Ô] ou [Ô]c:\app    este.exe[Ô]
   MsgBox [Ô]Arquivo errado[Ô]
End If
End Sub