Visual Basic Crack

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 [login to view URL](Me.m_sUsers, Me.m_uiUsers) Then Throw New Exception("Key has invalid user count") End If Dim regString As String = [login to view URL] Dim abModifier As Byte() = [login to view URL](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, [login to view URL], [login to view URL]) Dim num As UInt64 = [login to view URL](Me.m_sRegCode, [login to view URL]) 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, [login to view URL], 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