ftp.wwiv.com/ftp.wwiv.com.zip/ftp.wwiv.com/pub/BBS/WCVFY.ZIP/WCVFY.WCC

Text File | 1994-10-11 | 9KB | 298 lines

CarrierCheck On

Type TempRecord
   Name As String*25
   Phone As String*15
   Data As String*15
   Fax As String*15
   SecLevel As String*10
End Type

Dim wcVfyV As String
Dim Ctr As Integer
Dim pWrd As String*15, pWrdTest As String*15
Dim pWrd2 As String*15, pWrd3 As String*15, pWrd4 As String*15
Dim Go As String*1
Dim TodayNow As Datetime
Dim ExpireDate As Date
Dim Msg As MessageHeader
Dim MessageUser As String
Dim MessageSysOp As String
Dim BadUserMsg As String
Dim BadSysOpMsg As String
Dim Tries As Integer
Dim BadNumber As Integer
Dim tRec As TempRecord
Static Phone As String*8
CurrentDate(ExpireDate)
CurrentDateTime(TodayNow)
wcVfyV = "1.01"

Open "wcvfy.log" For Append As #1
Open "wcvfy.err" For Append As #2
Open "modem.dmp" For Append As #3

Function SendUser(MsgHd As MessageHeader) As Integer
   Dim Ok As Integer
   SendUser = False
   Do
     MsgHd.From = MakeWild.SysopName
     MsgHd.To = User.Name
     MsgHd.Flags = 1
     MsgHd.Subject = "You've Been Validated!"
     Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
     If Not(OK) Then
         Print #2, "There was an Error creating the Message to the User!"
     End If
   Loop Until Ok
   SendUser = True
End Function

Function SendSysOp(MsgHd As MessageHeader) As Integer
   Dim Ok As Integer
   SendSysOp = False
   Do
     MsgHd.From = User.Name
     MsgHd.To = MakeWild.SysopName
     MsgHd.Flags = 1
     MsgHd.Subject = "I've been Validated!"
     Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
     If Not(OK) Then
         Print #2, "There was an Error creating the Message to the SysOp!"
     End If
   Loop Until Ok
   SendSysOp = True
End Function

Function BadUser(MsgHd As MessageHeader) As Integer
   Dim Ok As Integer
   BadUser = False
   Do
     MsgHd.From = MakeWild.SysopName
     MsgHd.To = User.Name
     MsgHd.Flags = 1
     MsgHd.Subject = "Duplicate Number?"
     Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
     If Not(OK) Then
         Print #2, "There was an Error creating the Message to the User!"
     End If
   Loop Until Ok
   BadUser = True
End Function

Function BadSysOp(MsgHd As MessageHeader) As Integer
   Dim Ok As Integer
   BadSysOp = False
   Do
     MsgHd.From = User.Name
     MsgHd.To = MakeWild.SysopName
     MsgHd.Flags = 1
     MsgHd.Subject = "Duplicate Nubmer?"
     Ok = Trim(MsgHd.From + MsgHd.To + MsgHd.Subject) > ""
     If Not(OK) Then
         Print #2, "There was an Error creating the Message to the SysOp!"
     End If
   Loop Until Ok
   BadSysOp = True
End Function

Function CallBack
  Tries=0
  Do
    Tries = Tries + 1
    Delay 5
    Print #1, "          # Now Calling : " ; Phone
    Print #1, "          # Dialing, attempt number : " ; Tries
    Send "ATDT" + Phone + Chr(13)
    Dim StartTime As Real
    StartTime = Timer
    Do
      Print #3, INCOMM ;
      If Timer - StartTime > 60 Then
        Send Chr(13)
        Exit Do
      End If
    Loop Until Carrier
    If Tries >= 3 Then
      Print #1, "          # Too many Rings, aborting."
      CarrierCheck On
      End
    End If
  Loop Until Carrier
Delay 1
Do
Loop Until INCOMM = ""
Close #3
Del "modem.dmp"
End Function

Function StartLog
  Print #1, "-------------------------------------------------------------------------------"
  Print #1, FormatDate(TodayNow.d,"mm/dd/yy  ") ;
  Print #1, FormatTime(TodayNow.t,"hh:mm:ss  ") ;
  Print #1, "User Name: "  User.Name ;
  Print #1, "  Calling From: " User.From
End Function

Function ChkNumber
   Dim TestPhone As String*8
   Dim t As Integer
   TestPhone = Phone
   BadNumber = False
   Locate 22,5
   Open "wcvfy.dat" For Random As #4 Len = Len(TempRecord)
   t = 1
   Do While Not EOF(4)
     t = t + 1
     Get #4,t, tRec
     If Right(TRec.Phone,8) = TestPhone Then
        BadNumber = True
     ElseIf Right(TRec.Data,8) = TestPhone Then
        BadNumber = True
     ElseIf Right(TRec.Fax,8) = TestPhone Then
        BadNumber = True
     End If
   Loop
   Close #4
End Function

Function AddCaller
   Open "wcvfy.dat" For Random As #4 Len = Len(TempRecord)
   tRec.Name = User.Name
   tRec.Phone = User.PhoneNumber
   tRec.Data = User.DataNumber
   tRec.Fax = User.FaxNumber
   tRec.SecLevel = User.SecLevel
   If tRec.Name <> "" Then
      Put #4, Lof(4) + 1, tRec
      Print #1, "          * " ; User.Name ; "'s data added for Duplicate Checking"
   End If
   Close #4
End Function

StartLog
Go = InputMask("Would you like to use wcVFY v" + wcVfyV + ", the Call-Back Verifier?","Y")
   If Go = "N" then end
     DisplayFile "wcvfy1.bbs"
          DO
            GetPword:
            Locate 19,5
            pwrd = InputMask("          What is your password? ","XXXXXXXXXXXXXXX")
            pwrdtest = InputMask("              Check your password? ","XXXXXXXXXXXXXXX")
              If pWrd <> pWrdTest Then Goto GetPword
                   If Len(pwrd) < 5 Then
                     Print"         Your password must be at least 5 characters long."
                   End if
          Loop Until Len(pwrd) >= 5

          Print #1, "          * User Password: " pwrd
          GetNum:
          ctr = 0
          Locate 21,5
          Phone = InputMask("          What phone number should I call you at? ","999-9999")
          If left(phone,1) = "9" Then
              Print"            This system does not return calls to 9xx-xxxx numbers."
              Print"                       please try your number again."
              Goto GetNum
          End if
          If Len(Phone) < 7 Then
              Print"                 You must enter a full 7-digit phone number."
              Goto Getnum
          End if
          ChkNumber
          If BadNumber = True Then
              Print ""
              Print "        @0E@  The Phone Number you have entered is already in use."
              Print "          You'll either have to select another or leave the SysOp"
              Print "          a Comment explaining the reason for the duplicate number."
              Print ""
              Print "                      @09@Now Returning you to @0F@@BBS@@0E@."
              WaitEnter
              Print #1, "          ! =-=-=-=  Duplicate Number Found =-=-=-="
              Print #1, "          # The Number was : " ; phone ; "."
              If BadUser(Msg) Then
                 BadUserMsg = "wc_badus.msg"
                 AddMessage Msg, BadUserMsg
                 Print #1, "          @ BadUser Message Sent successfully"
              End If
              If BadSysOp(Msg) Then
                 BadSysOpMsg = "wc_badsy.msg"
                 AddMessage Msg, BadSysOpMsg
                 Print #1, "          @ BadSysOp Message Sent successfully"
              End If
              End
          End If

CLS
Locate 2,1
Print "@09@          I will now hangup, when I call back be ready to answer"
Print "                 by typing 'ATA' from your terminal window."
Print "                    Hit the enter key when you're ready!"
Locate 6,1
Waitenter
If Not(Local) Then
  CarrierCheck Off
  Hangup
  CallBack
  CarrierCheck On
End If
CLS
Locate 5,1
Print "@0E@     This is @BBS@'s callback verifier calling to verify you."
Print ""
WaitEnter
Print #1, "          $ Caller Connected!" ;
Print #1, " at " ;
Print #1, FormatTime(TodayNow.t, "hh:mm:ss")
CLS
DisplayFile "wcvfy2.bbs"
Locate 7,1
pWrd2 = InputMask("      Please enter your callback password now : ","XXXXXXXXXXXXXXX")
If pWrd = pWrd2 Then
   Print "     You have now been upgraded to Trial User status!"
   Print ""
   Print "  You now have a valid account for 30-Day's, after that"
   Print "time period please concider donating to become a member."
   WaitEnter
Else
   pWrd3 = InputMask("      Please try your password again : ","XXXXXXXXXXXXXXX")
       If pwrd = pwrd3 Then
           Print "     You have now been upgraded to Trial User status!"
           Print ""
           Print "  You now have a valid account for 30-Day's, after that"
           Print "time period please concider donating to become a member."
           WaitEnter
       Else
           Print "THIS IS YOUR LAST CHANCE!"
           pWrd4 = InputMask("       Enter you password now : ","XXXXXXXXXXXXXXX")
             If pwrd = pWrd4 Then
                  Print "You finally made it!  You are now a Trial User!"
                  Print ""
                  Print "  You now have a valid account for 30-Day's, after that"
                  Print "time period please concider donating to become a member."
                  WaitEnter
               Else Hangup
                  Stop
             End If
       End If
End if
User.SecLevel = "TRIAL"
User.Comment(5) = "Verified # " + Phone
User.ExpireDate.Number = ExpireDate.Number + 30
If User.SecLevel = "TRIAL" Then
   AddCaller
   Print #1, "          * User Upgraded to Trial Successfully!"
End If
If SendUser(Msg) Then
   MessageUser = "wc_user.msg"
   AddMessage Msg, MessageUser
   Print #1, "          @ User Message Sent successfully"
End If
If SendSysOp(Msg) Then
   MessageSysOp = "wc_sysop.msg"
   AddMessage Msg, MessageSysOp
   Print #1, "          @ SysOp Message Sent successfully"
End If
Close
End