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