Closed

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

Skills: ASP, Delphi, Visual Basic, Visual Basic for Apps

See more: visual basic crack, visual design software, hff, has been changed, flag maker, parse a string, HEC, haf, byte, boolean, basic user system, code basic, amp visual basic, crack software code, 504, visual basic amp, datetime, crack software without software, crack software visual, provide key valid

About the Employer:
( 0 reviews ) Australia

Project ID: #1650749

7 freelancers are bidding on average $475 for this job

lorjnr

let me know more for your project

$1000 AUD in 7 days
(6 Reviews)
3.7
byteSector

Hi, I can guarantee you quality work. Please seem pm for more details. Thank you.

$275 AUD in 3 days
(2 Reviews)
3.6
nhanphanmem

Hi. I can do this for you. Can you accept my offer,please! And we start work now.

$300 AUD in 3 days
(0 Reviews)
0.0
PaulZibot

Please check my PM

$500 AUD in 5 days
(0 Reviews)
0.0
crackmajor

Hello, i can do it

$250 AUD in 1 day
(0 Reviews)
0.0
webspaceit

We are interested.

$500 AUD in 10 days
(0 Reviews)
0.0
pandyarushi

I can do that for you, even is past i do something like this ones, lets talk and start working on it ...

$500 AUD in 4 days
(0 Reviews)
0.0