SaxSoft Keygen

Ok, here's a good one I did today. It's VB code for a keygen for all of Sax Software's (www.saxsoft.com) products (across several versions). Justpaste it into a module and run it from the debug window. How did I get this one? Sorry, I can't tell you all my secrets ;]

----Cut here----
 
Public Enum ProductCode
BasicEnginePro5 = 2250
BasicEngineEnt5 = 2350
BasicEngineStd4 = 2140
BasicEnginePro4 = 2240
BasicEngineEnt4 = 2340
Setup2 = 3120
Setup3 = 3130
mPower10 = 5110
mPower11 = 5111
Power2 = 5120
mPowerEnt2 = 5220
CommStd2 = 1120
CommPro2 = 1220
CommStd3 = 1130
CommPro3 = 1230
End Enum
 
'---------------------------------------------------------------------
' MakeSerialNumber
' Parameters:
' Product - A product code defined in the ProductCode enum
' QTY - How many to generate, defaults to 1 if ommitted
'
'---------------------------------------------------------------------
' .sozni 10/98
'---------------------------------------------------------------------
Function MakeSerialNumber(Product As ProductCode, Optional QTY As Integer = 1)
Randomize Now
For j = 1 To QTY
ID = Int(Rnd * 100) + 1000
sProductMask = Product & "-##@@###-#@"
For i = 1 To Len(sProductMask)
   If Mid(sProductMask, i, 1) = "#" Then
      sSerNum = sSerNum + Chr(48 + ((i - 1 + ID) * 17) Mod 10)
   Else
      sSerNum = sSerNum + Mid(sProductMask, i, 1)
   End If
Next i
For i = 1 To Len(sSerNum)
   If Mid(sProductMask, i, 1) = "@" Then
      Mid(sSerNum, i, 1) = CalculateDigit(sProductMask, sSerNum, i)
   End If
Next i
Debug.Print sSerNum sSerNum = "" Next j GetSerialNumber = sSerNum
End Function
Function CalculateDigit(sMask, sSerialNumber, n)
l = 0
For i = 1 To Len(sSerialNumber)
   c = Mid(sMask, i, 1)
   If (c = "#") Or ((c >= "0") And (c <= "9")) Then
      l = (l * 9 + Asc(Mid(sSerialNumber, i, 1)) - Asc("0")) Mod 5535151
   End If
Next
Select Case (n - 1) Mod 4
Case 0: CalculateDigit = Chr((l Mod 129) Mod 10 + 48)
Case 1: CalculateDigit = Chr((l Mod 533) Mod 10 + 48)
Case 2: CalculateDigit = Chr((l Mod 653) Mod 10 + 48)
Case 3: CalculateDigit = Chr((l Mod 513) Mod 10 + 48)
End Select
End Function
----Cut here----

To use the serial, download the full version from their website (go to each product's page).

 

 

Last changed: January 25, 1999

Copyright ©1998 .sozni, all rights reserved.  This information must not be duplicated or reproduced without express written permission by the operator of this web site.

Disclaimer:  This information must only be used for educational purposes.   It must not be used to pirate software or encourage software piracy or to engage in any illegal activity.   All instructions are provided as-is and are not supported by either the software producers or the owners or operators of this web site or really anyone at all.   Before using any of these licensing techniques you must first get approval from the softare producer and/or have already purchased this software.  Please refer to the Terms of Use for more information.

Copyright ©1998 .sozni, all rights reserved.  This information must not be duplicated or reproduced without express written permission by the operator of this web site.

Disclaimer:  This information must only be used for educational purposes.   It must not be used to pirate software or encourage software piracy or to engage in any illegal activity.  All instructions are provided as-is and are not supported by either the software producers or the owners or operators of this web site or anyone else for that matter.  Before using any of these licensing techniques you must first get approval from the softare producer and/or have already purchased this software.  Please refer to the Terms of Use for more information.