Visual Basic Crack

This project received 7 bids from talented freelancers with an average bid price of $475 AUD.

Get free quotes for a project like this
Employer working
Project Budget
$100 - $1000 AUD
Total Bids
Project Description

I have a Software and have lost the Key maker for that. i can Provide the source code for the licencing module need to design an executable without changing the original source code. so i can create the keys again.. keys are based on the Machine ID of the system.
Validation source code is attached

Private Sub pv_ValidateKey()
If (Me.m_sRegNo <> Me.m_sMachineReg) Then
Throw New Exception("Key is not valid for this machine")
End If
If Not [url removed, login to view](Me.m_sUsers, Me.m_uiUsers) Then
Throw New Exception("Key has invalid user count")
End If
Dim regString As String = [url removed, login to view]
Dim abModifier As Byte() = [url removed, login to view](regString)
Dim key As Byte() = New Byte() { &HE5, &H16, &H69, &HEC, &HAF, 14, &H7E, &H5C, &H24, &H9E, &H6D, &HF5, &HE1, &H27, &H49, &HD9 }
Me.pv_ApplyModifierToKeyPrim(abModifier, key)
Dim code As UInt32() = Me.pv_InitRegCode(key, [url removed, login to view], [url removed, login to view])
Dim num As UInt64 = [url removed, login to view](Me.m_sRegCode, [url removed, login to view])
code(0) = DirectCast(((num And -4294967296) >> &H20), UInt32)
code(0) = DirectCast((((((code(0) And -16777216) >> &H18) + ((code(0) And &HFF0000) >> 8)) + ((code(0) And &HFF) << &H18)) + ((code(0) And &HFF00) << 8)), UInt32)
code(1) = DirectCast((num And &HFFFFFFFF), UInt32)
code(1) = DirectCast((((((code(1) And -16777216) >> &H18) + ((code(1) And &HFF0000) >> 8)) + ((code(1) And &HFF) << &H18)) + ((code(1) And &HFF00) << 8)), UInt32)
Dim flag As Boolean = Me.pv_IsRegCodeValid(key, code)
Me.m_dtExpiry = Me.pv_GetExpirationDate(key, code)
If Not flag Then
Throw New Exception("Invalid licence key")
End If
Dim numArray2 As UInt32() = Me.pv_InitRegCode(key, [url removed, login to view], Me.m_dtExpiry)
If ((numArray2(0) <> code(0)) OrElse (numArray2(1) <> code(1))) Then
Throw New Exception("Licence key has been changed")
End If
End Sub

Looking to make some money?

  • Set your budget and the timeframe
  • Outline your proposal
  • Get paid for your work

Hire Freelancers who also bid on this project

    • Forbes
    • The New York Times
    • Time
    • Wall Street Journal
    • Times Online