TID: WWIV NET5.8.1.3688
MSGID: 1:218/109 6732D5F2
CHRS: CP437 2
TZUTC: -0800
PID: WWIV 5.9.03741
    Here's a code snip from the Parole website from the wayback machine.  Not 
sure what doors these would work for, but here.
 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

--- WWIV 5.8.1.3688[Windows]
 * Origin: Inland Utopia BBS * iutopia.duckdns.org:2023 (1:218/109)
SEEN-BY: 10/0 1 90/1 105/81 106/201 124/5016 128/187 153/7715 218/0
SEEN-BY: 218/1 109 601 700 870 930 226/30 227/114 229/110 114 206
SEEN-BY: 229/317 426 428 470 550 664 700 266/512 282/1038 291/111
SEEN-BY: 320/219 322/757 342/200 396/45 460/58 633/280 712/848 5075/35
PATH: 218/700 229/426