PAROLE Software

PAROLE Software Doors and Utilities are no longer supported.  Over the years, I have lost my key generator for all of my door programs.  I have located my personal keys for The Parole Board BBS.  You are welcome to use them for your own BBS with no strings attached.

Also, before you ask, I no longer have my source code for the doors. 

I have managed to locate my Keygen for the WcxCode programs.  If you would like a copy of WCXReg.Exe, click here to download.

BBS Name: The Parole Board BBS
SysOp Name: Dennis Maidon

Be sure that you enter the BBS Name and the SysOp Name exactly as entered above, including capitalization.

 

Here is the source code for the WCXReg serial number algorithm. 
Private Sub Cmd_Compute_Click()
     SHARED OltRegNum&, CEventRegNum&, SexTrvRegNum&, AdRegNum&
     SHARED BBSName$, BBSReg$, C4MRegNum&, M4WRegNum&, SysPakRegNum&
     Dim Sum&
     Dim RegSum&
     BBSUp$ = UCase$(BBSName$)
     BBSLow$ = LCase$(BBSName$)

'Online Trivia
     If Chk_Olt.Value Then
          Sum = 0
          RegSum = 0
          For j = 1 To Len(BBSName$)
               Sum& = Sum& + Asc(Mid$(BBSUp$, j, 1))
          Next
          For j = 1 To Len(BBSReg$)
               RegSum& = RegSum& + Asc(Mid$(BBSReg$, j, 1))
          Next
          OltRegNum& = 56 * (Sum& + RegSum&) * 74 - (RegSum& * 3)
          Txt_OLTReg.Text = Format$(OltRegNum&, NumFmt)
     End If
'Sex Trivia
     If Chk_Sex.Value Then
          Sum& = 0
          RegSum& = 0
          For j = 1 To Len(BBSName$)
               Sum& = Sum& + Asc(Mid$(BBSUp$, j, 1))
          Next
          For j = 1 To Len(BBSReg$)
               RegSum& = RegSum& + Asc(Mid$(UCase$(BBSReg$), j, 1))
          Next
          'j = LEN(BBSName$)
          SexTrvRegNum& = 28 * (Sum& + RegSum&) * 34 - (RegSum& * 4)
          Txt_Sex.Text = Format$(SexTrvRegNum&, NumFmt)
     End If

'Current Events
     If Chk_Cevent.Value Then
          Sum& = 0
          RegSum& = 0
          For j = 1 To Len(BBSName$)
               Sum& = Sum& + Asc(Mid$(BBSLow$, j, 1))
          Next
          For j = 1 To Len(BBSReg$)
               RegSum& = RegSum& + Asc(Mid$(LCase$(BBSReg$), j, 1))
          Next
          j = Len(BBSName$)
          CEventRegNum& = j * (Sum& + j) * 43 + (Int(Sqr(Sum&)) * 22) + RegSum&
          Txt_Cevent.Text = Format$(CEventRegNum&, NumFmt)
     End If

'Classified Ads
     If Chk_Ad.Value Then
          Sum& = 0
          RegSum& = 0
          For j = 1 To Len(BBSName$)
               Sum& = Sum& + Asc(Mid$(BBSLow$, j, 1))
          Next
          For j = 1 To Len(BBSReg$)
               RegSum& = RegSum& + Asc(Mid$(LCase$(BBSReg$), j, 1))
          Next
          j = Len(BBSName$)
          AdRegNum& = j * (Sum& + j) * 34 + (Int(Sqr(Sum&)) * 18) + RegSum& - 4
          Txt_Ad.Text = Format$(AdRegNum&, NumFmt)
     End If

'Chk4Mail
     If Chk_C4M.Value Then
          Sum& = 0
          RegSum& = 0
          Work$ = LTrim$(RTrim$(BBSUp$)) + LTrim$(RTrim$(BBSReg$))
          For j = 1 To Len(Work$)
               Sum& = Sum& + Asc(Mid$(Work$, j, 1))
          Next
          C4MRegNum& = Sum& * (Len(Work$) * 45) + (Sum& - 1234)
          Txt_C4M.Text = Format$(C4MRegNum&, NumFmt)
     End If
'Mail4Ward
     If Chk_M4W.Value Then
          Sum& = 0
          RegSum& = 0
          Work$ = LTrim$(RTrim$(BBSUp$)) + LTrim$(RTrim$(BBSReg$))
          For j = 1 To Len(Work$)
               Sum& = Sum& + Asc(Mid$(Work$, j, 1))
          Next
          M4WRegNum& = Sum& * (Len(Work$) * 54) + (Sum& + 4321)
          Txt_M4W.Text = Format$(M4WRegNum&, NumFmt)
     End If

'SysOp Plus Pak
     If Chk_SysPak.Value Then
          Sum& = 0
          RegSum& = 0
          Work$ = LTrim$(RTrim$(BBSUp$)) + LTrim$(RTrim$(BBSReg$))
          For j = 1 To Len(Work$)
               Sum& = Sum& + Asc(Mid$(Work$, j, 1))
          Next
          mult% = Asc(Mid$(Work$, 6, 1))
          SysPakRegNum& = mult% * (Sum& * Len(Work$) + 389) * Len(LTrim$(RTrim$(BBSUp$)))
          Txt_SysPak.Text = Format$(SysPakRegNum&, NumFmt)
     End If

End Sub