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, source code crack software, lost source code, need visual basic, system visual basic, flag software

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