home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / WCVFY.ZIP / WCVFY.WCX (.txt) < prev    next >
Wildcat! WCX  |  1994-10-11  |  6KB  |  378 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  5955 bytes  12/30/122  04:15:50pm
  3. '! Code Segment Size  :3022 bytes
  4. '! Data Segment Size  :4981 bytes
  5. '! String Segment Size:2933 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type30
  9.         s0 As String*25
  10.         s25 As String*15
  11.         s40 As String*15
  12.         s55 As String*15
  13.         s70 As String*10
  14.       End Type
  15.  
  16.       Type Type29
  17.         Filler0(1 To 6) As Byte
  18.         s6 As String*70
  19.         Filler76(1 To 14) As Byte
  20.         s90 As String*70
  21.         Filler160(1 To 14) As Byte
  22.         s174 As String*70
  23.         Filler244(1 To 20) As Byte
  24.         w264 As Word
  25.       End Type
  26.  
  27.       Type Type28
  28.         Filler0(1 To 6) As Byte
  29.         s6 As String*70
  30.         Filler76(1 To 14) As Byte
  31.         s90 As String*70
  32.         Filler160(1 To 14) As Byte
  33.         s174 As String*70
  34.         Filler244(1 To 20) As Byte
  35.         w264 As Word
  36.       End Type
  37.  
  38.       Type Type27
  39.         Filler0(1 To 6) As Byte
  40.         s6 As String*70
  41.         Filler76(1 To 14) As Byte
  42.         s90 As String*70
  43.         Filler160(1 To 14) As Byte
  44.         s174 As String*70
  45.         Filler244(1 To 20) As Byte
  46.         w264 As Word
  47.       End Type
  48.  
  49.       Type Type26
  50.         Filler0(1 To 6) As Byte
  51.         s6 As String*70
  52.         Filler76(1 To 14) As Byte
  53.         s90 As String*70
  54.         Filler160(1 To 14) As Byte
  55.         s174 As String*70
  56.         Filler244(1 To 20) As Byte
  57.         w264 As Word
  58.       End Type
  59.  
  60.       Declare Function Func1441(mh65534 As MessageHeader) As Integer
  61.       Declare Function Func1636(mh65534 As MessageHeader) As Integer
  62.       Declare Function Func1831(mh65534 As MessageHeader) As Integer
  63.       Declare Function Func2026(mh65534 As MessageHeader) As Integer
  64.       Declare Function Func2221 As Integer
  65.       Declare Function Func2465 As Integer
  66.       Declare Function Func2572 As Integer
  67.       Declare Function Func2817 As Integer
  68.  
  69.       Dim s4463 As String
  70.       Dim w4467 As Word
  71.       Dim s4469 As String*15
  72.       Dim s4484 As String*15
  73.       Dim s4499 As String*15
  74.       Dim s4514 As String*15
  75.       Dim s4529 As String*15
  76.       Dim s4544 As String*1
  77.       Dim dt4545 As DateTime
  78.       Dim d4551 As Date
  79.       Dim mh4553 As MessageHeader
  80.       Dim s4873 As String
  81.       Dim s4877 As String
  82.       Dim s4881 As String
  83.       Dim s4885 As String
  84.       Dim i4889 As Integer
  85.       Dim i4891 As Integer
  86.       Dim t30_4893 As Type30
  87.       Dim s4973 As String*8
  88.  
  89.       CarrierCheck(-1)
  90.       CurrentDate d4551
  91.       CurrentDateTime dt4545
  92.       s4463 = "1.01"
  93.       Open "wcvfy.log" For Append As 1
  94.       Open "wcvfy.err" For Append As 2
  95.       Open "modem.dmp" For Append As 3
  96.       Func2465
  97.       s4544 = InputMask("Would you like to use wcVFY v" + s4463 + ", the Call-Back Verifier?", "Y", "", 1213417543)
  98.       If s4544 = "N" Then
  99.         End 
  100.       End If
  101.   197 DisplayFile("wcvfy1.bbs")
  102.       Do
  103.         Do
  104.   206     Locate 19, 5
  105.           s4469 = InputMask("          What is your password? ", "XXXXXXXXXXXXXXX", "", 1213417543)
  106.           s4484 = InputMask("              Check your password? ", "XXXXXXXXXXXXXXX", "", 1213417543)
  107.           If (s4469 <> s4484) = 0 Then GoTo 297
  108.         Loop
  109.   297   If Len(s4469) < 5 Then
  110.           Print "         Your password must be at least 5 characters long."
  111.         End If
  112.   325 Loop Until Len(s4469) >= 5
  113.       Print #1, "          * User Password: "; s4469
  114.       Do
  115.         Do
  116.   362     w4467 = 0
  117.           Locate 21, 5
  118.           s4973 = InputMask("          What phone number should I call you at? ", "999-9999", "", 1213417543)
  119.           If (Left(s4973, 1) = "9") = 0 Then GoTo 452
  120.           Print "            This system does not return calls to 9xx-xxxx numbers."
  121.           Print "                       please try your number again."
  122.         Loop
  123.   452   If (Len(s4973) < 7) = 0 Then GoTo 486
  124.         Print "                 You must enter a full 7-digit phone number."
  125.       Loop
  126.   486 Func2572
  127.       If i4891 = -1 Then
  128.         Print ""
  129.         Print "        @0E@  The Phone Number you have entered is already in use."
  130.         Print "          You'll either have to select another or leave the SysOp"
  131.         Print "          a Comment explaining the reason for the duplicate number."
  132.         Print ""
  133.         Print "                      @09@Now Returning you to @0F@@BBS@@0E@."
  134.         WaitEnter 
  135.         Print #1, "          ! =-=-=-=  Duplicate Number Found =-=-=-="
  136.         Print #1, "          # The Number was : "; s4973; "."
  137.         If Func1831(mh4553) Then
  138.           s4881 = "wc_badus.msg"
  139.           AddMessage(mh4553, s4881, "", 1213417543)
  140.           Print #1, "          @ BadUser Message Sent successfully"
  141.         End If
  142.   656   If Func2026(mh4553) Then
  143.           s4885 = "wc_badsy.msg"
  144.           AddMessage(mh4553, s4885, "", 1213417543)
  145.           Print #1, "          @ BadSysOp Message Sent successfully"
  146.         End If
  147.   711   End 
  148.       End If
  149.   712 Cls 
  150.       Locate 2, 1
  151.       Print "@09@          I will now hangup, when I call back be ready to answer"
  152.       Print "                 by typing 'ATA' from your terminal window."
  153.       Print "                    Hit the enter key when you're ready!"
  154.       Locate 6, 1
  155.       WaitEnter 
  156.       If Not Local Then
  157.         CarrierCheck(0)
  158.         HangUp 
  159.         Func2221
  160.         CarrierCheck(-1)
  161.       End If
  162.   792 Cls 
  163.       Locate 5, 1
  164.       Print "@0E@     This is @BBS@'s callback verifier calling to verify you."
  165.       Print ""
  166.       WaitEnter 
  167.       Print #1, "          $ Caller Connected!";
  168.       Print #1, " at ";
  169.       Print #1, FormatTime(dt4545.T, "hh:mm:ss")
  170.       Cls 
  171.       DisplayFile("wcvfy2.bbs")
  172.       Locate 7, 1
  173.       s4499 = InputMask("      Please enter your callback password now : ", "XXXXXXXXXXXXXXX", "", 1213417543)
  174.       If s4469 = s4499 Then
  175.         Print "     You have now been upgraded to Trial User status!"
  176.         Print ""
  177.         Print "  You now have a valid account for 30-Day's, after that"
  178.         Print "time period please concider donating to become a member."
  179.         WaitEnter 
  180.       Else
  181.   976   s4514 = InputMask("      Please try your password again : ", "XXXXXXXXXXXXXXX", "", 1213417543)
  182.         If s4469 = s4514 Then
  183.           Print "     You have now been upgraded to Trial User status!"
  184.           Print ""
  185.           Print "  You now have a valid account for 30-Day's, after that"
  186.           Print "time period please concider donating to become a member."
  187.           WaitEnter 
  188.         Else
  189.  1070     Print "THIS IS YOUR LAST CHANCE!"
  190.           s4529 = InputMask("       Enter you password now : ", "XXXXXXXXXXXXXXX", "", 1213417543)
  191.           If s4469 = s4529 Then
  192.             Print "You finally made it!  You are now a Trial User!"
  193.             Print ""
  194.             Print "  You now have a valid account for 30-Day's, after that"
  195.             Print "time period please concider donating to become a member."
  196.             WaitEnter 
  197.           Else
  198.  1173       HangUp 
  199.             Stop 
  200.           End If
  201.         End If
  202.       End If
  203.  1179 User.SecLevel = "TRIAL"
  204.       User.Comment(5) = "Verified # " + s4973
  205.       User.ExpireDate.Number = d4551.Number + 30
  206.       If User.SecLevel = "TRIAL" Then
  207.         Func2817
  208.         Print #1, "          * User Upgraded to Trial Successfully!"
  209.       End If
  210.  1303 If Func1441(mh4553) Then
  211.         s4873 = "wc_user.msg"
  212.         AddMessage(mh4553, s4873, "", 1213417543)
  213.         Print #1, "          @ User Message Sent successfully"
  214.       End If
  215.  1358 If Func1636(mh4553) Then
  216.         s4877 = "wc_sysop.msg"
  217.         AddMessage(mh4553, s4877, "", 1213417543)
  218.         Print #1, "          @ SysOp Message Sent successfully"
  219.       End If
  220.  1413 Reset 
  221.       End 
  222.  
  223. '! Called 1 time
  224.       Function Func1441(mh65534 As MessageHeader) As Integer
  225.         Dim i65530 As Integer
  226.  
  227.         Func1441 = 0
  228.         Do
  229.  1456     mh65534.From = MakeWild.SysopName
  230.           mh65534.To = User.Name
  231.           mh65534.Flags = 1
  232.           mh65534.Subject = "You've Been Validated!"
  233.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  234.           If Not i65530 Then
  235.             Print #2, "There was an Error creating the Message to the User!"
  236.           End If
  237.  1609   Loop Until i65530
  238.         Func1441 = -1
  239.       End Function
  240.  
  241. '! Called 1 time
  242.       Function Func1636(mh65534 As MessageHeader) As Integer
  243.         Dim i65530 As Integer
  244.  
  245.         Func1636 = 0
  246.         Do
  247.  1651     mh65534.From = User.Name
  248.           mh65534.To = MakeWild.SysopName
  249.           mh65534.Flags = 1
  250.           mh65534.Subject = "I've been Validated!"
  251.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  252.           If Not i65530 Then
  253.             Print #2, "There was an Error creating the Message to the SysOp!"
  254.           End If
  255.  1804   Loop Until i65530
  256.         Func1636 = -1
  257.       End Function
  258.  
  259. '! Called 1 time
  260.       Function Func1831(mh65534 As MessageHeader) As Integer
  261.         Dim i65530 As Integer
  262.  
  263.         Func1831 = 0
  264.         Do
  265.  1846     mh65534.From = MakeWild.SysopName
  266.           mh65534.To = User.Name
  267.           mh65534.Flags = 1
  268.           mh65534.Subject = "Duplicate Number?"
  269.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  270.           If Not i65530 Then
  271.             Print #2, "There was an Error creating the Message to the User!"
  272.           End If
  273.  1999   Loop Until i65530
  274.         Func1831 = -1
  275.       End Function
  276.  
  277. '! Called 1 time
  278.       Function Func2026(mh65534 As MessageHeader) As Integer
  279.         Dim i65530 As Integer
  280.  
  281.         Func2026 = 0
  282.         Do
  283.  2041     mh65534.From = User.Name
  284.           mh65534.To = MakeWild.SysopName
  285.           mh65534.Flags = 1
  286.           mh65534.Subject = "Duplicate Nubmer?"
  287.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  288.           If Not i65530 Then
  289.             Print #2, "There was an Error creating the Message to the SysOp!"
  290.           End If
  291.  2194   Loop Until i65530
  292.         Func2026 = -1
  293.       End Function
  294.  
  295. '! Called 1 time
  296.       Function Func2221 As Integer
  297.         Dim r65528 As Real
  298.  
  299.         i4889 = 0
  300.         Do
  301.  2236     i4889 = i4889 + 1
  302.           Delay 5
  303.           Print #1, "          # Now Calling : "; s4973
  304.           Print #1, "          # Dialing, attempt number : "; i4889
  305.           Send "ATDT" + s4973 + Chr(13)
  306.           r65528 = Timer
  307.           Do
  308.  2324       Print #3, InComm;
  309.             If Timer - r65528 > 60 Then
  310.               Send Chr(13)
  311.               GoTo 2378
  312.             End If
  313.  2369     Loop Until Carrier
  314.  2378     If i4889 >= 3 Then
  315.             Print #1, "          # Too many Rings, aborting."
  316.             CarrierCheck(-1)
  317.             End 
  318.           End If
  319.  2411   Loop Until Carrier
  320.         Delay 1
  321.         Do
  322.  2428   Loop Until InComm = ""
  323.         Close 3
  324.         Del "modem.dmp"
  325.       End Function
  326.  
  327. '! Called 1 time
  328.       Function Func2465 As Integer
  329.         Print #1, "-------------------------------------------------------------------------------"
  330.         Print #1, FormatDate(dt4545.D, "mm/dd/yy  ");
  331.         Print #1, FormatTime(dt4545.T, "hh:mm:ss  ");
  332.         Print #1, "User Name: "; User.Name;
  333.         Print #1, "  Calling From: "; User.From
  334.       End Function
  335.  
  336. '! Called 1 time
  337.       Function Func2572 As Integer
  338.         Dim i65524 As Integer
  339.         Dim s65526 As String*8
  340.  
  341.         s65526 = s4973
  342.         i4891 = 0
  343.         Locate 22, 5
  344.         Open "wcvfy.dat" For Random As 4 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  345.         i65524 = 1
  346.  2633   Do While Not EOF(4)
  347.           i65524 = i65524 + 1
  348.           Get 4, i65524, t30_4893 '! 80 bytes
  349.           If Right(t30_4893.s25, 8) = s65526 Then
  350.             i4891 = -1
  351.           Else
  352.  2718       If Right(t30_4893.s40, 8) = s65526 Then
  353.               i4891 = -1
  354.             Else
  355.  2761         If Right(t30_4893.s55, 8) = s65526 Then
  356.                 i4891 = -1
  357.               End If
  358.             End If
  359.           End If
  360.  2798   Loop
  361.  2804   Close 4
  362.       End Function
  363.  
  364. '! Called 1 time
  365.       Function Func2817 As Integer
  366.         Open "wcvfy.dat" For Random As 4 Len = 80 '! This value should probably be replaced with a "SizeOf" expression
  367.         t30_4893.s0 = User.Name
  368.         t30_4893.s25 = User.PhoneNumber
  369.         t30_4893.s40 = User.DataNumber
  370.         t30_4893.s55 = User.FAXNumber
  371.         t30_4893.s70 = User.SecLevel
  372.         If t30_4893.s0 <> "" Then
  373.           Put 4, LOF(4) + 1, t30_4893 '! 80 bytes
  374.           Print #1, "          * "; User.Name; "'s data added for Duplicate Checking"
  375.         End If
  376.  3009   Close 4
  377.       End Function
  378.