Closed

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
7
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