home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SMART216.ZIP / SMART.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-11-02  |  33KB  |  1,584 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     Integer  INTEGER008
  26.     Integer  INTEGER009
  27.     Integer  INTEGER010
  28.     Integer  INTEGER011
  29.     Integer  INTEGER012
  30.     Integer  INTEGER013
  31.     Integer  INTEGER014
  32.     Integer  INTEGER015
  33.     Integer  INTEGER016
  34.     Integer  INTEGER017
  35.     Integer  INTEGER018
  36.     Integer  INTEGER019
  37.     Integer  INTEGER020
  38.     Integer  INTEGER021
  39.     Integer  INTEGER022
  40.     Integer  INTEGER023
  41.     Integer  INTEGER024
  42.     Integer  INTEGER025
  43.     Integer  INTEGER026
  44.     Integer  INTEGER027
  45.     Integer  INTEGER028
  46.     Integer  INTEGER029
  47.     String   STRING004
  48.     String   STRING005
  49.     String   STRING006
  50.     String   STRING007
  51.     String   STRING008
  52.     String   STRING009
  53.     String   STRING010
  54.     String   STRING011
  55.     String   STRING012
  56.     String   STRING013
  57.     String   STRING014
  58.     String   STRING015
  59.     String   STRING016
  60.     String   STRING017
  61.     String   STRING018
  62.     String   STRING019
  63.     String   STRING020
  64.     String   STRING021
  65.     String   STRING022
  66.     String   STRING023
  67.     String   STRING024
  68.     String   STRING025
  69.     String   STRING026
  70.     String   STRING027
  71.     String   STRING028
  72.     String   STRING029
  73.     String   STRING030
  74.     String   STRING031
  75.     String   STRING032
  76.     String   STRING033
  77.     String   STRING034
  78.     String   STRING035
  79.     String   STRING036
  80.     String   STRING037
  81.     String   STRING038
  82.     String   STRING039
  83.     String   STRING040
  84.     String   STRING041
  85.     String   STRING042
  86.     String   STRING043
  87.     String   STRING044
  88.     String   STRING045
  89.     String   STRING046
  90.     String   STRING047
  91.     String   STRING048
  92.     String   STRING049
  93.     String   STRING050
  94.     String   STRING051
  95.     String   STRING052
  96.     String   STRING053
  97.     String   STRING054
  98.     String   STRING055
  99.     String   STRING056
  100.     String   STRING057
  101.     String   STRING058
  102.     String   STRING059
  103.     String   STRING060
  104.     String   STRING061
  105.     String   STRING062
  106.     String   STRING063
  107.     String   STRING064
  108.     String   STRING065
  109.     String   STRING066
  110.     String   STRING067
  111.     String   STRING068
  112.     String   STRING069
  113.     String   STRING070
  114.     String   STRING071
  115.     String   STRING072
  116.     String   STRING073
  117.     String   STRING074
  118.     String   STRING075
  119.     String   STRING076
  120.     String   STRING077
  121.     String   STRING078
  122.     String   STRING079
  123.     String   STRING080
  124.     String   STRING081
  125.     String   STRING082
  126.     String   STRING083
  127.     String   STRING084
  128.     String   STRING085
  129.     String   STRING086
  130.     String   STRING087
  131.     String   STRING088
  132.     String   STRING089
  133.     String   STRING090
  134.     String   STRING091
  135.     String   STRING092
  136.     String   STRING093
  137.     String   STRING094
  138.     String   STRING095
  139.     String   STRING096
  140.     String   STRING097
  141.     String   STRING098
  142.     String   STRING099
  143.     String   STRING100
  144.     String   STRING101
  145.     String   STRING102
  146.     String   STRING103
  147.     String   STRING104
  148.     String   STRING105
  149.     String   STRING106
  150.     String   STRING107
  151.     String   STRING108
  152.     String   STRING109
  153.     String   STRING110
  154.     String   STRING111
  155.     String   STRING112
  156.     String   STRING113
  157.     String   STRING114
  158.     String   STRING115
  159.     String   STRING116
  160.     String   STRING117
  161.     String   STRING118
  162.     String   STRING119
  163.     String   STRING120
  164.     String   STRING121
  165.     String   STRING122
  166.     String   STRING123
  167.     String   STRING124
  168.     String   STRING125
  169.     String   STRING126
  170.     String   STRING127
  171.     String   STRING128
  172.     String   STRING129
  173.     String   STRING130
  174.     String   STRING131
  175.     String   STRING132
  176.     String   STRING133
  177.     String   STRING134
  178.     String   STRING135
  179.     String   STRING136
  180.     String   STRING137
  181.     String   STRING138
  182.     String   STRING139
  183.     String   STRING140
  184.     String   STRING141
  185.     String   STRING142
  186.     String   STRING143
  187.     String   STRING144
  188.     String   STRING145
  189.     String   STRING146
  190.     String   STRING147
  191.     String   STRING148
  192.     String   STRING149
  193.     String   STRING150
  194.     String   STRING151
  195.     String   STRING152
  196.     String   STRING153
  197.     String   STRING154
  198.     String   STRING155
  199.     String   STRING156
  200.     String   STRING157
  201.     String   STRING158
  202.     String   STRING159
  203.     String   STRING160
  204.     String   STRING161
  205.     String   STRING162
  206.     String   STRING163
  207.     String   STRING164
  208.     String   STRING165
  209.     String   STRING166
  210.     String   STRING167
  211.     String   STRING168
  212.     String   STRING169
  213.     String   STRING170
  214.     String   STRING171
  215.     String   STRING172
  216.     String   STRING173
  217.     String   STRING174
  218.     String   STRING175
  219.     String   STRING176
  220.     String   STRING177
  221.     String   STRING178
  222.     String   STRING179
  223.     String   STRING180
  224.     String   STRING181
  225.     String   STRING182
  226.     String   STRING183
  227.     String   STRING184
  228.     String   STRING185
  229.     String   STRING186
  230.     String   STRING187
  231.     String   STRING188
  232.     String   STRING189
  233.     String   STRING190
  234.     String   STRING191
  235.     String   STRING192
  236.     String   STRING193
  237.     String   STRING194
  238.     String   STRING195
  239.     String   STRING196
  240.     String   STRING197
  241.     String   STRING198
  242.     String   STRING199
  243.     String   STRING200
  244.     String   STRING201
  245.     String   STRING202
  246.     String   STRING203
  247.     String   STRING204
  248.     String   STRING205
  249.     String   STRING206
  250.     String   STRING207
  251.     String   STRING208
  252.     String   STRING209
  253.     String   STRING210
  254.     String   STRING211
  255.     String   STRING212
  256.     String   STRING213
  257.     String   STRING214
  258.     String   STRING215
  259.     String   STRING216
  260.     String   STRING217
  261.     String   STRING218
  262.     String   STRING219
  263.     String   STRING220
  264.     String   STRING221
  265.     String   STRING222
  266.     String   STRING223
  267.     String   STRING224
  268.     String   STRING225
  269.     String   STRING226
  270.     String   STRING227
  271.     String   STRING228
  272.     String   STRING229
  273.     String   STRING230
  274.     String   STRING231
  275.     String   STRING232
  276.     String   STRING233
  277.     String   STRING234
  278.     String   STRING235
  279.     String   STRING236
  280.     String   STRING237
  281.     String   STRING238
  282.     String   STRING239
  283.     String   STRING240
  284.     String   STRING241
  285.     String   STRING242
  286.     String   STRING243
  287.     String   STRING244
  288.     String   STRING245
  289.     String   STRING246
  290.     String   STRING247
  291.     String   STRING248
  292.     String   STRING249
  293.     String   STRING250
  294.     String   STRING251
  295.     String   STRING252
  296.     String   STRING253
  297.     String   STRING254
  298.     String   STRING255
  299.     String   STRING256
  300.     String   STRING257
  301.     String   STRING258
  302.     String   STRING259
  303.     String   STRING260
  304.     String   STRING261
  305.     String   STRING262
  306.     String   STRING263
  307.     String   STRING264
  308.     String   STRING265
  309.     String   STRING266
  310.     String   STRING267
  311.     String   STRING268
  312.     String   STRING269
  313.     String   STRING270
  314.     String   STRING271
  315.     String   STRING272
  316.     String   STRING273
  317.     String   STRING274
  318.     String   STRING275
  319.     String   STRING276
  320.     String   STRING277
  321.     String   STRING278
  322.     String   STRING279
  323.     String   STRING280
  324.     String   STRING281
  325.     String   STRING282
  326.     String   STRING283
  327.     String   STRING284
  328.     String   STRING285
  329.     String   STRING286
  330.     String   STRING287
  331.     String   STRING288
  332.     String   STRING289
  333.     String   STRING290
  334.     String   STRING291
  335.     String   STRING292
  336.     String   STRING293
  337.     String   STRING294
  338.     String   STRING295
  339.     String   STRING296
  340.     String   STRING297
  341.     String   STRING298
  342.     String   STRING299
  343.     String   STRING300
  344.     String   STRING301
  345.     String   STRING302
  346.     String   STRING303
  347.     String   STRING304
  348.     String   STRING305
  349.     String   STRING306
  350.     String   STRING307
  351.     String   STRING308
  352.     String   STRING309
  353.     String   STRING310
  354.     String   STRING311
  355.     String   STRING312
  356.     String   STRING313
  357.     String   STRING314
  358.     String   STRING315
  359.     String   STRING316
  360.     String   STRING317
  361.     String   STRING318
  362.     String   STRING319
  363.     String   STRING320
  364.     String   STRING321
  365.     String   STRING322
  366.     String   STRING323
  367.     String   STRING324
  368.     String   STRING325
  369.     String   STRING326
  370.     String   STRING327
  371.     String   STRING328
  372.     String   STRING329
  373.     String   STRING330
  374.     String   STRING331
  375.     String   STRING332
  376.     String   STRING333
  377.     String   STRING334
  378.     String   STRING335
  379.     String   STRING336
  380.     String   STRING337
  381.     String   STRING338
  382.     String   STRING339
  383.     String   STRING340
  384.  
  385. ;------------------------------------------------------------------------------
  386.  
  387.     If (Psa(2) == 0) Then
  388.         DispStr "@X0CThe Verification (PSA) not installed!  *SmartSec* Terminated."
  389.         Log "Verification (PSA) not installed! (SmartSec)", 0
  390.         Newline
  391.         Newline
  392.         Wait
  393.         End
  394.     Endif
  395.     If (Psa(3) == 0) Then
  396.         DispStr "@X0CThe Address (PSA) not installed!  *SmartSec* Terminated."
  397.         Log "Address (PSA) not installed! (SmartSec)", 0
  398.         Newline
  399.         Newline
  400.         Wait
  401.         End
  402.     Endif
  403.     If (Psa(4) == 0) Then
  404.         DispStr "@X0CThe Password (PSA) not installed!  *SmartSec* Terminated."
  405.         Log "Password (PSA) not installed! (SmartSec)", 0
  406.         Newline
  407.         Newline
  408.         Wait
  409.         End
  410.     Endif
  411.     If (Psa(5) == 0) Then
  412.         DispStr "@X0CThe Statistic (PSA) not installed!  *SmartSec* Terminated."
  413.         Log "Statistic (PSA) not installed! (SmartSec)", 0
  414.         Newline
  415.         Newline
  416.         Wait
  417.         End
  418.     Endif
  419.     If (Psa(6) == 0) Then
  420.         DispStr "@X0CThe Notes (PSA) not installed!  *SmartSec* Terminated."
  421.         Log "Notes (PSA) not installed! (SmartSec)", 0
  422.         Newline
  423.         Newline
  424.         Wait
  425.         End
  426.     Endif
  427.     If (Exist(PPEPath() + "smart.cfg")) Then
  428.         Goto LABEL001
  429.     Else
  430.         DispStr "@X0CThe SMART.CFG configuration file missing!  *SmartSec* Terminated."
  431.         Log "The " + PPEPath() + "SMART.CFG file is missing! (SmartSec)", 0
  432.         Newline
  433.         Newline
  434.         Wait
  435.         End
  436.     Endif
  437.     :LABEL001
  438.     If (Exist(PPEPath() + "prompts")) Then
  439.         Goto LABEL002
  440.     Else
  441.         DispStr "@X0CThe PROMPTS configuration file missing!  *SmartSec* Terminated."
  442.         Log "The " + PPEPath() + "PROMPTS file is missing! (SmartSec)", 0
  443.         Newline
  444.         Newline
  445.         Wait
  446.         End
  447.     Endif
  448.     :LABEL002
  449.     If (Exist(PPEPath() + "bypass.usr")) Then
  450.         Goto LABEL003
  451.     Else
  452.         DispStr "@X0CThe BYPASS.USR username file is missing!  *SmartSec* Terminated."
  453.         Log "The " + PPEPath() + "BYPASS.USR file is missing! (SmartSec)", 0
  454.         Newline
  455.         Newline
  456.         Wait
  457.         End
  458.     Endif
  459.     :LABEL003
  460.     If (Exist(PPEPath() + "forced.usr")) Then
  461.         Goto LABEL004
  462.     Else
  463.         DispStr "@X0CThe FORCED.USR username file is missing!  *SmartSec* Terminated."
  464.         Log "The " + PPEPath() + "FORCED.USR file is missing! (SmartSec)", 0
  465.         Newline
  466.         Newline
  467.         Wait
  468.         End
  469.     Endif
  470.     :LABEL004
  471.     If (Exist(PPEPath() + "trashcan.id")) Then
  472.         Goto LABEL005
  473.     Else
  474.         DispStr "@X0CThe TRASHCAN.ID names file is missing!  *SmartSec* Terminated."
  475.         Log "The " + PPEPath() + "TRASHCAN.ID file is missing! (SmartSec)", 0
  476.         Newline
  477.         Newline
  478.         Wait
  479.         End
  480.     Endif
  481.     :LABEL005
  482.     STRING332 = "v2.16"
  483.     STRING336 = "("
  484.     STRING337 = Chr(85) + Chr(78)
  485.     STRING338 = Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68) + ")"
  486.     If (Exist(PPEPath() + "smart.key")) Then
  487.         STRING339 = PPEPath() + "smartreg.exe"
  488.         STRING334 = Chr(55) + Chr(56) + Chr(53) + Chr(54)
  489.         FOpen 1, PPEPath() + "smart.cfg", 0, 2
  490.         If (Ferr(1)) End
  491.         FGet 1, STRING335
  492.         FClose 1
  493.         STRING335 = Trim(STRING335, " ")
  494.         STRING335 = Upper(STRING335)
  495.         Shell 0, INTEGER029, STRING339, STRING334 + " " + PPEPath() + "smart.key" + " " + STRING335
  496.         If (INTEGER029 == 2) STRING332 = STRING332 + " " + STRING336 + STRING337 + STRING338
  497.         If (INTEGER029 == 1) STRING332 = STRING332 + " " + STRING336 + STRING338
  498.         If (INTEGER029 == 0) STRING332 = STRING332 + " " + STRING336 + STRING337 + STRING338
  499.         Cls
  500.     Else
  501.         STRING332 = STRING332 + " " + STRING336 + STRING337 + STRING338
  502.     Endif
  503.     GetUser
  504.     Newline
  505.     DispStr "@X0C*SmartSec* (C) " + STRING332 + " - behavior check...@X07"
  506.     Newline
  507.     FOpen 1, PPEPath() + "smart.cfg", 0, 2
  508.     If (Ferr(1)) End
  509.     FGet 1, STRING011
  510.     FGet 1, STRING013
  511.     FGet 1, STRING014
  512.     FGet 1, INTEGER014
  513.     FGet 1, INTEGER015
  514.     FGet 1, INTEGER016
  515.     FGet 1, STRING015
  516.     FGet 1, STRING187
  517.     FGet 1, STRING189
  518.     FGet 1, STRING190
  519.     FGet 1, STRING016
  520.     FGet 1, STRING017
  521.     FGet 1, STRING129
  522.     FGet 1, STRING130
  523.     FGet 1, STRING133
  524.     FGet 1, STRING134
  525.     FGet 1, STRING212
  526.     FGet 1, STRING213
  527.     FGet 1, INTEGER028
  528.     FGet 1, STRING214
  529.     FGet 1, STRING330
  530.     FGet 1, STRING333
  531.     FClose 1
  532.     If (Exist(PPEPath() + "prompts" + LangExt())) Then
  533.         FOpen 2, PPEPath() + "prompts" + LangExt(), 0, 2
  534.         If (Ferr(2)) End
  535.     Else
  536.         FOpen 2, PPEPath() + "prompts", 0, 2
  537.         If (Ferr(2)) End
  538.     Endif
  539.     FGet 2, STRING018
  540.     FGet 2, STRING019
  541.     FGet 2, STRING020
  542.     FGet 2, STRING021
  543.     FGet 2, STRING022
  544.     FGet 2, STRING023
  545.     FGet 2, STRING024
  546.     FGet 2, STRING331
  547.     FClose 2
  548.     FOpen 3, PPEPath() + "bypass.usr", 0, 2
  549.     If (Ferr(3)) End
  550.     FGet 3, STRING025
  551.     FGet 3, STRING026
  552.     FGet 3, STRING027
  553.     FGet 3, STRING028
  554.     FGet 3, STRING029
  555.     FGet 3, STRING030
  556.     FGet 3, STRING031
  557.     FGet 3, STRING032
  558.     FGet 3, STRING033
  559.     FGet 3, STRING034
  560.     FGet 3, STRING035
  561.     FGet 3, STRING036
  562.     FGet 3, STRING037
  563.     FGet 3, STRING038
  564.     FGet 3, STRING039
  565.     FGet 3, STRING040
  566.     FGet 3, STRING041
  567.     FGet 3, STRING042
  568.     FGet 3, STRING043
  569.     FGet 3, STRING044
  570.     FGet 3, STRING045
  571.     FGet 3, STRING046
  572.     FGet 3, STRING047
  573.     FGet 3, STRING048
  574.     FGet 3, STRING049
  575.     FGet 3, STRING050
  576.     FGet 3, STRING051
  577.     FGet 3, STRING052
  578.     FGet 3, STRING053
  579.     FGet 3, STRING054
  580.     FGet 3, STRING055
  581.     FGet 3, STRING056
  582.     FGet 3, STRING057
  583.     FGet 3, STRING058
  584.     FGet 3, STRING059
  585.     FGet 3, STRING060
  586.     FGet 3, STRING061
  587.     FGet 3, STRING062
  588.     FGet 3, STRING063
  589.     FGet 3, STRING064
  590.     FGet 3, STRING065
  591.     FGet 3, STRING066
  592.     FGet 3, STRING067
  593.     FGet 3, STRING068
  594.     FGet 3, STRING069
  595.     FGet 3, STRING070
  596.     FGet 3, STRING071
  597.     FGet 3, STRING072
  598.     FGet 3, STRING073
  599.     FGet 3, STRING074
  600.     FClose 3
  601.     FOpen 4, PPEPath() + "forced.usr", 0, 2
  602.     If (Ferr(4)) End
  603.     FGet 4, STRING075
  604.     FGet 4, STRING076
  605.     FGet 4, STRING077
  606.     FGet 4, STRING078
  607.     FGet 4, STRING079
  608.     FGet 4, STRING080
  609.     FGet 4, STRING081
  610.     FGet 4, STRING082
  611.     FGet 4, STRING083
  612.     FGet 4, STRING084
  613.     FGet 4, STRING085
  614.     FGet 4, STRING086
  615.     FGet 4, STRING087
  616.     FGet 4, STRING088
  617.     FGet 4, STRING089
  618.     FGet 4, STRING090
  619.     FGet 4, STRING091
  620.     FGet 4, STRING092
  621.     FGet 4, STRING093
  622.     FGet 4, STRING094
  623.     FGet 4, STRING095
  624.     FGet 4, STRING096
  625.     FGet 4, STRING097
  626.     FGet 4, STRING098
  627.     FGet 4, STRING099
  628.     FGet 4, STRING100
  629.     FGet 4, STRING101
  630.     FGet 4, STRING102
  631.     FGet 4, STRING103
  632.     FGet 4, STRING104
  633.     FGet 4, STRING105
  634.     FGet 4, STRING106
  635.     FGet 4, STRING107
  636.     FGet 4, STRING108
  637.     FGet 4, STRING109
  638.     FGet 4, STRING110
  639.     FGet 4, STRING111
  640.     FGet 4, STRING112
  641.     FGet 4, STRING113
  642.     FGet 4, STRING114
  643.     FGet 4, STRING115
  644.     FGet 4, STRING116
  645.     FGet 4, STRING117
  646.     FGet 4, STRING118
  647.     FGet 4, STRING119
  648.     FGet 4, STRING120
  649.     FGet 4, STRING121
  650.     FGet 4, STRING122
  651.     FGet 4, STRING123
  652.     FGet 4, STRING124
  653.     FClose 4
  654.     FOpen 5, PPEPath() + "whocall.usr", 0, 2
  655.     If (Ferr(5)) End
  656.     FGet 5, STRING135
  657.     FGet 5, STRING136
  658.     FGet 5, STRING137
  659.     FGet 5, STRING138
  660.     FGet 5, STRING139
  661.     FGet 5, STRING140
  662.     FGet 5, STRING141
  663.     FGet 5, STRING142
  664.     FGet 5, STRING143
  665.     FGet 5, STRING144
  666.     FGet 5, STRING145
  667.     FGet 5, STRING146
  668.     FGet 5, STRING147
  669.     FGet 5, STRING148
  670.     FGet 5, STRING149
  671.     FGet 5, STRING150
  672.     FGet 5, STRING151
  673.     FGet 5, STRING152
  674.     FGet 5, STRING153
  675.     FGet 5, STRING154
  676.     FGet 5, STRING155
  677.     FGet 5, STRING156
  678.     FGet 5, STRING157
  679.     FGet 5, STRING158
  680.     FGet 5, STRING159
  681.     FGet 5, STRING160
  682.     FGet 5, STRING161
  683.     FGet 5, STRING162
  684.     FGet 5, STRING163
  685.     FGet 5, STRING164
  686.     FGet 5, STRING165
  687.     FGet 5, STRING166
  688.     FGet 5, STRING167
  689.     FGet 5, STRING168
  690.     FGet 5, STRING169
  691.     FGet 5, STRING170
  692.     FGet 5, STRING171
  693.     FGet 5, STRING172
  694.     FGet 5, STRING173
  695.     FGet 5, STRING174
  696.     FGet 5, STRING175
  697.     FGet 5, STRING176
  698.     FGet 5, STRING177
  699.     FGet 5, STRING178
  700.     FGet 5, STRING179
  701.     FGet 5, STRING180
  702.     FGet 5, STRING181
  703.     FGet 5, STRING182
  704.     FGet 5, STRING183
  705.     FGet 5, STRING184
  706.     FClose 5
  707.     FOpen 6, PPEPath() + "trashcan.id", 0, 2
  708.     If (Ferr(6)) End
  709.     FGet 6, STRING219
  710.     FGet 6, STRING220
  711.     FGet 6, STRING221
  712.     FGet 6, STRING222
  713.     FGet 6, STRING223
  714.     FGet 6, STRING224
  715.     FGet 6, STRING225
  716.     FGet 6, STRING226
  717.     FGet 6, STRING227
  718.     FGet 6, STRING228
  719.     FGet 6, STRING229
  720.     FGet 6, STRING230
  721.     FGet 6, STRING231
  722.     FGet 6, STRING232
  723.     FGet 6, STRING233
  724.     FGet 6, STRING234
  725.     FGet 6, STRING235
  726.     FGet 6, STRING236
  727.     FGet 6, STRING237
  728.     FGet 6, STRING238
  729.     FGet 6, STRING239
  730.     FGet 6, STRING240
  731.     FGet 6, STRING241
  732.     FGet 6, STRING242
  733.     FGet 6, STRING243
  734.     FGet 6, STRING244
  735.     FGet 6, STRING245
  736.     FGet 6, STRING246
  737.     FGet 6, STRING247
  738.     FGet 6, STRING248
  739.     FGet 6, STRING249
  740.     FGet 6, STRING250
  741.     FGet 6, STRING251
  742.     FGet 6, STRING252
  743.     FGet 6, STRING253
  744.     FGet 6, STRING254
  745.     FGet 6, STRING255
  746.     FGet 6, STRING256
  747.     FGet 6, STRING257
  748.     FGet 6, STRING258
  749.     FGet 6, STRING259
  750.     FGet 6, STRING260
  751.     FGet 6, STRING261
  752.     FGet 6, STRING262
  753.     FGet 6, STRING263
  754.     FGet 6, STRING264
  755.     FGet 6, STRING265
  756.     FGet 6, STRING266
  757.     FGet 6, STRING267
  758.     FGet 6, STRING268
  759.     FGet 6, STRING269
  760.     FGet 6, STRING270
  761.     FGet 6, STRING271
  762.     FGet 6, STRING272
  763.     FGet 6, STRING273
  764.     FGet 6, STRING274
  765.     FGet 6, STRING275
  766.     FGet 6, STRING276
  767.     FGet 6, STRING277
  768.     FGet 6, STRING278
  769.     FGet 6, STRING279
  770.     FGet 6, STRING280
  771.     FGet 6, STRING281
  772.     FGet 6, STRING282
  773.     FGet 6, STRING283
  774.     FGet 6, STRING284
  775.     FGet 6, STRING285
  776.     FGet 6, STRING286
  777.     FGet 6, STRING287
  778.     FGet 6, STRING288
  779.     FGet 6, STRING289
  780.     FGet 6, STRING290
  781.     FGet 6, STRING291
  782.     FGet 6, STRING292
  783.     FGet 6, STRING293
  784.     FGet 6, STRING294
  785.     FGet 6, STRING295
  786.     FGet 6, STRING296
  787.     FGet 6, STRING297
  788.     FGet 6, STRING298
  789.     FGet 6, STRING299
  790.     FGet 6, STRING300
  791.     FGet 6, STRING301
  792.     FGet 6, STRING302
  793.     FGet 6, STRING303
  794.     FGet 6, STRING304
  795.     FGet 6, STRING305
  796.     FGet 6, STRING306
  797.     FGet 6, STRING307
  798.     FGet 6, STRING308
  799.     FGet 6, STRING309
  800.     FGet 6, STRING310
  801.     FGet 6, STRING311
  802.     FGet 6, STRING312
  803.     FGet 6, STRING313
  804.     FGet 6, STRING314
  805.     FGet 6, STRING315
  806.     FGet 6, STRING316
  807.     FGet 6, STRING317
  808.     FGet 6, STRING318
  809.     FClose 6
  810.     If (Upper(STRING330) == "NONE") STRING330 = ""
  811.     If (Lower(STRING214) == "number") STRING008 = " -/1234567890"
  812.     If (Lower(STRING214) == "character") STRING008 = " -ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" + STRING330
  813.     If (Lower(STRING214) == "mixed") STRING008 = " -/1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" + STRING330
  814.     If (Upper(STRING330) == "") STRING330 = "NONE"
  815.     INTEGER007 = STRING013
  816.     INTEGER008 = STRING014
  817.     INTEGER024 = STRING015
  818.     INTEGER018 = INTEGER014
  819.     INTEGER019 = INTEGER015
  820.     INTEGER020 = INTEGER016
  821.     INTEGER013 = STRING187
  822.     INTEGER006 = STRING016 - 1
  823.     If (Lower(STRING129) == "none") Goto LABEL007
  824.     If (Lower(STRING129) == "") Goto LABEL007
  825.     If (Lower(STRING130) == "none") Goto LABEL007
  826.     If (Lower(STRING130) == "") Goto LABEL007
  827.     If (Lower(STRING129) == "lantastic") Then
  828.         STRING125 = "net.exe"
  829.         STRING131 = "send "
  830.     Endif
  831.     If (Lower(STRING129) == "novell") Then
  832.         STRING125 = "send.exe"
  833.         STRING131 = "to "
  834.     Endif
  835.     STRING126 = STRING131 + STRING130 + " "
  836.     STRING127 = " - failed answering the required ID string!  Retries left: "
  837.     STRING128 = " - failed answering the ID string!  Punished to SecLevel "
  838.     If ((Lower(STRING133) == "none") && (Lower(STRING134) == "none")) Then
  839.         STRING132 = "none"
  840.     Else
  841.         STRING132 = Time()
  842.     Endif
  843.     If ((Upper(STRING135) <> "") && (U_Name() == Upper(STRING135))) Goto LABEL006
  844.     If ((Upper(STRING136) <> "") && (U_Name() == Upper(STRING136))) Goto LABEL006
  845.     If ((Upper(STRING137) <> "") && (U_Name() == Upper(STRING137))) Goto LABEL006
  846.     If ((Upper(STRING138) <> "") && (U_Name() == Upper(STRING138))) Goto LABEL006
  847.     If ((Upper(STRING139) <> "") && (U_Name() == Upper(STRING139))) Goto LABEL006
  848.     If ((Upper(STRING140) <> "") && (U_Name() == Upper(STRING140))) Goto LABEL006
  849.     If ((Upper(STRING141) <> "") && (U_Name() == Upper(STRING141))) Goto LABEL006
  850.     If ((Upper(STRING142) <> "") && (U_Name() == Upper(STRING142))) Goto LABEL006
  851.     If ((Upper(STRING143) <> "") && (U_Name() == Upper(STRING143))) Goto LABEL006
  852.     If ((Upper(STRING144) <> "") && (U_Name() == Upper(STRING144))) Goto LABEL006
  853.     If ((Upper(STRING145) <> "") && (U_Name() == Upper(STRING145))) Goto LABEL006
  854.     If ((Upper(STRING146) <> "") && (U_Name() == Upper(STRING146))) Goto LABEL006
  855.     If ((Upper(STRING147) <> "") && (U_Name() == Upper(STRING147))) Goto LABEL006
  856.     If ((Upper(STRING148) <> "") && (U_Name() == Upper(STRING148))) Goto LABEL006
  857.     If ((Upper(STRING149) <> "") && (U_Name() == Upper(STRING149))) Goto LABEL006
  858.     If ((Upper(STRING150) <> "") && (U_Name() == Upper(STRING150))) Goto LABEL006
  859.     If ((Upper(STRING151) <> "") && (U_Name() == Upper(STRING151))) Goto LABEL006
  860.     If ((Upper(STRING152) <> "") && (U_Name() == Upper(STRING152))) Goto LABEL006
  861.     If ((Upper(STRING153) <> "") && (U_Name() == Upper(STRING153))) Goto LABEL006
  862.     If ((Upper(STRING154) <> "") && (U_Name() == Upper(STRING154))) Goto LABEL006
  863.     If ((Upper(STRING155) <> "") && (U_Name() == Upper(STRING155))) Goto LABEL006
  864.     If ((Upper(STRING156) <> "") && (U_Name() == Upper(STRING156))) Goto LABEL006
  865.     If ((Upper(STRING157) <> "") && (U_Name() == Upper(STRING157))) Goto LABEL006
  866.     If ((Upper(STRING158) <> "") && (U_Name() == Upper(STRING158))) Goto LABEL006
  867.     If ((Upper(STRING159) <> "") && (U_Name() == Upper(STRING159))) Goto LABEL006
  868.     If ((Upper(STRING160) <> "") && (U_Name() == Upper(STRING160))) Goto LABEL006
  869.     If ((Upper(STRING161) <> "") && (U_Name() == Upper(STRING161))) Goto LABEL006
  870.     If ((Upper(STRING162) <> "") && (U_Name() == Upper(STRING162))) Goto LABEL006
  871.     If ((Upper(STRING163) <> "") && (U_Name() == Upper(STRING163))) Goto LABEL006
  872.     If ((Upper(STRING164) <> "") && (U_Name() == Upper(STRING164))) Goto LABEL006
  873.     If ((Upper(STRING165) <> "") && (U_Name() == Upper(STRING165))) Goto LABEL006
  874.     If ((Upper(STRING166) <> "") && (U_Name() == Upper(STRING166))) Goto LABEL006
  875.     If ((Upper(STRING167) <> "") && (U_Name() == Upper(STRING167))) Goto LABEL006
  876.     If ((Upper(STRING168) <> "") && (U_Name() == Upper(STRING168))) Goto LABEL006
  877.     If ((Upper(STRING169) <> "") && (U_Name() == Upper(STRING169))) Goto LABEL006
  878.     If ((Upper(STRING170) <> "") && (U_Name() == Upper(STRING170))) Goto LABEL006
  879.     If ((Upper(STRING171) <> "") && (U_Name() == Upper(STRING171))) Goto LABEL006
  880.     If ((Upper(STRING172) <> "") && (U_Name() == Upper(STRING172))) Goto LABEL006
  881.     If ((Upper(STRING173) <> "") && (U_Name() == Upper(STRING173))) Goto LABEL006
  882.     If ((Upper(STRING174) <> "") && (U_Name() == Upper(STRING174))) Goto LABEL006
  883.     If ((Upper(STRING175) <> "") && (U_Name() == Upper(STRING175))) Goto LABEL006
  884.     If ((Upper(STRING176) <> "") && (U_Name() == Upper(STRING176))) Goto LABEL006
  885.     If ((Upper(STRING177) <> "") && (U_Name() == Upper(STRING177))) Goto LABEL006
  886.     If ((Upper(STRING178) <> "") && (U_Name() == Upper(STRING178))) Goto LABEL006
  887.     If ((Upper(STRING179) <> "") && (U_Name() == Upper(STRING179))) Goto LABEL006
  888.     If ((Upper(STRING180) <> "") && (U_Name() == Upper(STRING180))) Goto LABEL006
  889.     If ((Upper(STRING181) <> "") && (U_Name() == Upper(STRING181))) Goto LABEL006
  890.     If ((Upper(STRING182) <> "") && (U_Name() == Upper(STRING182))) Goto LABEL006
  891.     If ((Upper(STRING183) <> "") && (U_Name() == Upper(STRING183))) Goto LABEL006
  892.     If ((Upper(STRING184) <> "") && (U_Name() == Upper(STRING184))) Goto LABEL006
  893.     Goto LABEL007
  894.     :LABEL006
  895.     STRING185 = " - WhoCalled User logged into system!"
  896.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "lantastic")) Shell 1, INTEGER012, "" + STRING125 + "", STRING126 + "'" + U_Name() + STRING185 + "'"
  897.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "novell")) Shell 1, INTEGER012, "" + STRING125 + "", "'" + U_Name() + STRING185 + "'" + STRING126
  898.     :LABEL007
  899.     INTEGER004 = U_Stat(10)
  900.     INTEGER005 = U_Stat(14)
  901.     INTEGER025 = U_Stat(11)
  902.     INTEGER017 = U_Stat(12)
  903.     INTEGER009 = U_Stat(15)
  904.     STRING012 = Trim(U_Notes(4), " ")
  905.     If (Right(STRING012, 1) <> "|") STRING012 = STRING012 + "|"
  906.     If (Right(STRING012, 2) == "||") STRING012 = "" + "|"
  907.     U_Notes(4) = STRING012
  908.     For INTEGER021 = 1 To 25
  909.         INTEGER002 = InStr(U_Notes(4), "|")
  910.         If (INTEGER002 == 0) Then
  911.             If (INTEGER021 == 1) INTEGER010 = INTEGER004
  912.             If (INTEGER021 == 2) INTEGER011 = INTEGER005
  913.             If (INTEGER021 == 3) INTEGER022 = INTEGER025
  914.             If (INTEGER021 == 4) INTEGER023 = INTEGER017
  915.             If (INTEGER021 == 5) INTEGER026 = INTEGER009
  916.             If (INTEGER021 == 6) STRING193 = "0"
  917.             If (INTEGER021 == 7) STRING194 = "0"
  918.             If (INTEGER021 == 8) STRING195 = "0"
  919.             If (INTEGER021 == 9) STRING196 = "0"
  920.             If (INTEGER021 == 10) STRING197 = "0"
  921.             If (INTEGER021 == 11) STRING198 = "0"
  922.             If (INTEGER021 == 12) STRING199 = "0"
  923.             If (INTEGER021 == 13) STRING200 = "0"
  924.             If (INTEGER021 == 14) STRING201 = "0"
  925.             If (INTEGER021 == 15) STRING202 = "0"
  926.             If (INTEGER021 == 16) STRING203 = "0"
  927.             If (INTEGER021 == 17) STRING204 = "0"
  928.             If (INTEGER021 == 18) STRING205 = "0"
  929.             If (INTEGER021 == 19) STRING206 = "0"
  930.             If (INTEGER021 == 20) STRING207 = "0"
  931.             If (INTEGER021 == 21) STRING208 = "0"
  932.             If (INTEGER021 == 22) STRING209 = "0"
  933.             If (INTEGER021 == 23) STRING210 = "0"
  934.             If (INTEGER021 == 24) STRING211 = "0"
  935.             If (INTEGER021 == 25) STRING340 = "0"
  936.             Continue
  937.         Endif
  938.         If (INTEGER021 == 1) INTEGER010 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  939.         If (INTEGER021 == 2) INTEGER011 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  940.         If (INTEGER021 == 3) INTEGER022 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  941.         If (INTEGER021 == 4) INTEGER023 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  942.         If (INTEGER021 == 5) INTEGER026 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  943.         If (INTEGER021 == 6) STRING193 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  944.         If (INTEGER021 == 7) STRING194 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  945.         If (INTEGER021 == 8) STRING195 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  946.         If (INTEGER021 == 9) STRING196 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  947.         If (INTEGER021 == 10) STRING197 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  948.         If (INTEGER021 == 11) STRING198 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  949.         If (INTEGER021 == 12) STRING199 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  950.         If (INTEGER021 == 13) STRING200 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  951.         If (INTEGER021 == 14) STRING201 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  952.         If (INTEGER021 == 15) STRING202 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  953.         If (INTEGER021 == 16) STRING203 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  954.         If (INTEGER021 == 17) STRING204 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  955.         If (INTEGER021 == 18) STRING205 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  956.         If (INTEGER021 == 19) STRING206 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  957.         If (INTEGER021 == 20) STRING207 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  958.         If (INTEGER021 == 21) STRING208 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  959.         If (INTEGER021 == 22) STRING209 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  960.         If (INTEGER021 == 23) STRING210 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  961.         If (INTEGER021 == 24) STRING211 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  962.         If (INTEGER021 == 25) STRING340 = Mid(U_Notes(4), 1, INTEGER002 - 1)
  963.         U_Notes(4) = Right(U_Notes(4), Len(U_Notes(4)) - INTEGER002)
  964.     Next
  965.     STRING193 = STRING194
  966.     STRING194 = STRING195
  967.     STRING195 = STRING196
  968.     STRING196 = STRING197
  969.     STRING197 = STRING198
  970.     STRING198 = STRING199
  971.     STRING199 = STRING200
  972.     STRING200 = STRING201
  973.     STRING201 = STRING202
  974.     STRING202 = STRING203
  975.     STRING203 = STRING204
  976.     STRING204 = STRING205
  977.     STRING205 = STRING206
  978.     STRING206 = STRING207
  979.     STRING207 = STRING208
  980.     STRING208 = STRING209
  981.     STRING209 = STRING210
  982.     STRING210 = STRING211
  983.     INTEGER027 = Time()
  984.     If (("0" <= INTEGER027) && ("3599" >= INTEGER027)) STRING211 = "A"
  985.     If (("3600" <= INTEGER027) && ("7199" >= INTEGER027)) STRING211 = "B"
  986.     If (("7200" <= INTEGER027) && ("10799" >= INTEGER027)) STRING211 = "C"
  987.     If (("10800" <= INTEGER027) && ("14399" >= INTEGER027)) STRING211 = "D"
  988.     If (("14400" <= INTEGER027) && ("17999" >= INTEGER027)) STRING211 = "E"
  989.     If (("18000" <= INTEGER027) && ("21559" >= INTEGER027)) STRING211 = "F"
  990.     If (("21600" <= INTEGER027) && ("25199" >= INTEGER027)) STRING211 = "G"
  991.     If (("25200" <= INTEGER027) && ("28799" >= INTEGER027)) STRING211 = "H"
  992.     If (("28800" <= INTEGER027) && ("32399" >= INTEGER027)) STRING211 = "I"
  993.     If (("32400" <= INTEGER027) && ("35999" >= INTEGER027)) STRING211 = "J"
  994.     If (("36000" <= INTEGER027) && ("39599" >= INTEGER027)) STRING211 = "K"
  995.     If (("39600" <= INTEGER027) && ("43199" >= INTEGER027)) STRING211 = "L"
  996.     If (("43200" <= INTEGER027) && ("46799" >= INTEGER027)) STRING211 = "M"
  997.     If (("46800" <= INTEGER027) && ("50399" >= INTEGER027)) STRING211 = "N"
  998.     If (("50400" <= INTEGER027) && ("53999" >= INTEGER027)) STRING211 = "O"
  999.     If (("54000" <= INTEGER027) && ("57599" >= INTEGER027)) STRING211 = "P"
  1000.     If (("57600" <= INTEGER027) && ("61199" >= INTEGER027)) STRING211 = "Q"
  1001.     If (("61200" <= INTEGER027) && ("64799" >= INTEGER027)) STRING211 = "R"
  1002.     If (("64800" <= INTEGER027) && ("68399" >= INTEGER027)) STRING211 = "S"
  1003.     If (("68400" <= INTEGER027) && ("71999" >= INTEGER027)) STRING211 = "T"
  1004.     If (("72000" <= INTEGER027) && ("75599" >= INTEGER027)) STRING211 = "U"
  1005.     If (("75600" <= INTEGER027) && ("79199" >= INTEGER027)) STRING211 = "V"
  1006.     If (("79200" <= INTEGER027) && ("82799" >= INTEGER027)) STRING211 = "X"
  1007.     If (("82800" <= INTEGER027) && ("86399" >= INTEGER027)) STRING211 = "Y"
  1008.     STRING009 = String(INTEGER010)
  1009.     STRING010 = String(INTEGER011)
  1010.     STRING191 = String(INTEGER022)
  1011.     STRING192 = String(INTEGER023)
  1012.     STRING186 = String(INTEGER026)
  1013.     If (STRING340 == "") STRING340 = "0"
  1014.     U_Notes(4) = STRING009 + "|" + STRING010 + "|" + STRING191 + "|" + STRING192 + "|" + STRING186 + "|" + STRING193 + "|" + STRING194 + "|" + STRING195 + "|" + STRING196 + "|" + STRING197 + "|" + STRING198 + "|" + STRING199 + "|" + STRING200 + "|" + STRING201 + "|" + STRING202 + "|" + STRING203 + "|" + STRING204 + "|" + STRING205 + "|" + STRING206 + "|" + STRING207 + "|" + STRING208 + "|" + STRING209 + "|" + STRING210 + "|" + STRING211 + "|" + STRING340 + "|"
  1015.     PutUser
  1016.     If ((U_Name() == STRING011) && (OnLocal() == 0)) Goto LABEL016
  1017.     If ((Upper(STRING025) <> "") && (U_Name() == Upper(STRING025))) End
  1018.     If ((Upper(STRING026) <> "") && (U_Name() == Upper(STRING026))) End
  1019.     If ((Upper(STRING027) <> "") && (U_Name() == Upper(STRING027))) End
  1020.     If ((Upper(STRING028) <> "") && (U_Name() == Upper(STRING028))) End
  1021.     If ((Upper(STRING029) <> "") && (U_Name() == Upper(STRING029))) End
  1022.     If ((Upper(STRING030) <> "") && (U_Name() == Upper(STRING030))) End
  1023.     If ((Upper(STRING031) <> "") && (U_Name() == Upper(STRING031))) End
  1024.     If ((Upper(STRING032) <> "") && (U_Name() == Upper(STRING032))) End
  1025.     If ((Upper(STRING033) <> "") && (U_Name() == Upper(STRING033))) End
  1026.     If ((Upper(STRING034) <> "") && (U_Name() == Upper(STRING034))) End
  1027.     If ((Upper(STRING035) <> "") && (U_Name() == Upper(STRING035))) End
  1028.     If ((Upper(STRING036) <> "") && (U_Name() == Upper(STRING036))) End
  1029.     If ((Upper(STRING037) <> "") && (U_Name() == Upper(STRING037))) End
  1030.     If ((Upper(STRING038) <> "") && (U_Name() == Upper(STRING038))) End
  1031.     If ((Upper(STRING039) <> "") && (U_Name() == Upper(STRING039))) End
  1032.     If ((Upper(STRING040) <> "") && (U_Name() == Upper(STRING040))) End
  1033.     If ((Upper(STRING041) <> "") && (U_Name() == Upper(STRING041))) End
  1034.     If ((Upper(STRING042) <> "") && (U_Name() == Upper(STRING042))) End
  1035.     If ((Upper(STRING043) <> "") && (U_Name() == Upper(STRING043))) End
  1036.     If ((Upper(STRING044) <> "") && (U_Name() == Upper(STRING044))) End
  1037.     If ((Upper(STRING045) <> "") && (U_Name() == Upper(STRING045))) End
  1038.     If ((Upper(STRING046) <> "") && (U_Name() == Upper(STRING046))) End
  1039.     If ((Upper(STRING047) <> "") && (U_Name() == Upper(STRING047))) End
  1040.     If ((Upper(STRING048) <> "") && (U_Name() == Upper(STRING048))) End
  1041.     If ((Upper(STRING049) <> "") && (U_Name() == Upper(STRING049))) End
  1042.     If ((Upper(STRING050) <> "") && (U_Name() == Upper(STRING050))) End
  1043.     If ((Upper(STRING051) <> "") && (U_Name() == Upper(STRING051))) End
  1044.     If ((Upper(STRING052) <> "") && (U_Name() == Upper(STRING052))) End
  1045.     If ((Upper(STRING053) <> "") && (U_Name() == Upper(STRING053))) End
  1046.     If ((Upper(STRING054) <> "") && (U_Name() == Upper(STRING054))) End
  1047.     If ((Upper(STRING055) <> "") && (U_Name() == Upper(STRING055))) End
  1048.     If ((Upper(STRING056) <> "") && (U_Name() == Upper(STRING056))) End
  1049.     If ((Upper(STRING057) <> "") && (U_Name() == Upper(STRING057))) End
  1050.     If ((Upper(STRING058) <> "") && (U_Name() == Upper(STRING058))) End
  1051.     If ((Upper(STRING059) <> "") && (U_Name() == Upper(STRING059))) End
  1052.     If ((Upper(STRING060) <> "") && (U_Name() == Upper(STRING060))) End
  1053.     If ((Upper(STRING061) <> "") && (U_Name() == Upper(STRING061))) End
  1054.     If ((Upper(STRING062) <> "") && (U_Name() == Upper(STRING062))) End
  1055.     If ((Upper(STRING063) <> "") && (U_Name() == Upper(STRING063))) End
  1056.     If ((Upper(STRING064) <> "") && (U_Name() == Upper(STRING064))) End
  1057.     If ((Upper(STRING065) <> "") && (U_Name() == Upper(STRING065))) End
  1058.     If ((Upper(STRING066) <> "") && (U_Name() == Upper(STRING066))) End
  1059.     If ((Upper(STRING067) <> "") && (U_Name() == Upper(STRING067))) End
  1060.     If ((Upper(STRING068) <> "") && (U_Name() == Upper(STRING068))) End
  1061.     If ((Upper(STRING069) <> "") && (U_Name() == Upper(STRING069))) End
  1062.     If ((Upper(STRING070) <> "") && (U_Name() == Upper(STRING070))) End
  1063.     If ((Upper(STRING071) <> "") && (U_Name() == Upper(STRING071))) End
  1064.     If ((Upper(STRING072) <> "") && (U_Name() == Upper(STRING072))) End
  1065.     If ((Upper(STRING073) <> "") && (U_Name() == Upper(STRING073))) End
  1066.     If ((Upper(STRING074) <> "") && (U_Name() == Upper(STRING074))) End
  1067.     If ((Upper(STRING075) <> "") && (U_Name() == Upper(STRING075))) Goto LABEL016
  1068.     If ((Upper(STRING076) <> "") && (U_Name() == Upper(STRING076))) Goto LABEL016
  1069.     If ((Upper(STRING077) <> "") && (U_Name() == Upper(STRING077))) Goto LABEL016
  1070.     If ((Upper(STRING078) <> "") && (U_Name() == Upper(STRING078))) Goto LABEL016
  1071.     If ((Upper(STRING079) <> "") && (U_Name() == Upper(STRING079))) Goto LABEL016
  1072.     If ((Upper(STRING080) <> "") && (U_Name() == Upper(STRING080))) Goto LABEL016
  1073.     If ((Upper(STRING081) <> "") && (U_Name() == Upper(STRING081))) Goto LABEL016
  1074.     If ((Upper(STRING082) <> "") && (U_Name() == Upper(STRING082))) Goto LABEL016
  1075.     If ((Upper(STRING083) <> "") && (U_Name() == Upper(STRING083))) Goto LABEL016
  1076.     If ((Upper(STRING084) <> "") && (U_Name() == Upper(STRING084))) Goto LABEL016
  1077.     If ((Upper(STRING085) <> "") && (U_Name() == Upper(STRING085))) Goto LABEL016
  1078.     If ((Upper(STRING086) <> "") && (U_Name() == Upper(STRING086))) Goto LABEL016
  1079.     If ((Upper(STRING087) <> "") && (U_Name() == Upper(STRING087))) Goto LABEL016
  1080.     If ((Upper(STRING088) <> "") && (U_Name() == Upper(STRING088))) Goto LABEL016
  1081.     If ((Upper(STRING089) <> "") && (U_Name() == Upper(STRING089))) Goto LABEL016
  1082.     If ((Upper(STRING090) <> "") && (U_Name() == Upper(STRING090))) Goto LABEL016
  1083.     If ((Upper(STRING091) <> "") && (U_Name() == Upper(STRING091))) Goto LABEL016
  1084.     If ((Upper(STRING092) <> "") && (U_Name() == Upper(STRING092))) Goto LABEL016
  1085.     If ((Upper(STRING093) <> "") && (U_Name() == Upper(STRING093))) Goto LABEL016
  1086.     If ((Upper(STRING094) <> "") && (U_Name() == Upper(STRING094))) Goto LABEL016
  1087.     If ((Upper(STRING095) <> "") && (U_Name() == Upper(STRING095))) Goto LABEL016
  1088.     If ((Upper(STRING096) <> "") && (U_Name() == Upper(STRING096))) Goto LABEL016
  1089.     If ((Upper(STRING097) <> "") && (U_Name() == Upper(STRING097))) Goto LABEL016
  1090.     If ((Upper(STRING098) <> "") && (U_Name() == Upper(STRING098))) Goto LABEL016
  1091.     If ((Upper(STRING099) <> "") && (U_Name() == Upper(STRING099))) Goto LABEL016
  1092.     If ((Upper(STRING100) <> "") && (U_Name() == Upper(STRING100))) Goto LABEL016
  1093.     If ((Upper(STRING101) <> "") && (U_Name() == Upper(STRING101))) Goto LABEL016
  1094.     If ((Upper(STRING102) <> "") && (U_Name() == Upper(STRING102))) Goto LABEL016
  1095.     If ((Upper(STRING103) <> "") && (U_Name() == Upper(STRING103))) Goto LABEL016
  1096.     If ((Upper(STRING104) <> "") && (U_Name() == Upper(STRING104))) Goto LABEL016
  1097.     If ((Upper(STRING105) <> "") && (U_Name() == Upper(STRING105))) Goto LABEL016
  1098.     If ((Upper(STRING106) <> "") && (U_Name() == Upper(STRING106))) Goto LABEL016
  1099.     If ((Upper(STRING107) <> "") && (U_Name() == Upper(STRING107))) Goto LABEL016
  1100.     If ((Upper(STRING108) <> "") && (U_Name() == Upper(STRING108))) Goto LABEL016
  1101.     If ((Upper(STRING109) <> "") && (U_Name() == Upper(STRING109))) Goto LABEL016
  1102.     If ((Upper(STRING110) <> "") && (U_Name() == Upper(STRING110))) Goto LABEL016
  1103.     If ((Upper(STRING111) <> "") && (U_Name() == Upper(STRING111))) Goto LABEL016
  1104.     If ((Upper(STRING112) <> "") && (U_Name() == Upper(STRING112))) Goto LABEL016
  1105.     If ((Upper(STRING113) <> "") && (U_Name() == Upper(STRING113))) Goto LABEL016
  1106.     If ((Upper(STRING114) <> "") && (U_Name() == Upper(STRING114))) Goto LABEL016
  1107.     If ((Upper(STRING115) <> "") && (U_Name() == Upper(STRING115))) Goto LABEL016
  1108.     If ((Upper(STRING116) <> "") && (U_Name() == Upper(STRING116))) Goto LABEL016
  1109.     If ((Upper(STRING117) <> "") && (U_Name() == Upper(STRING117))) Goto LABEL016
  1110.     If ((Upper(STRING118) <> "") && (U_Name() == Upper(STRING118))) Goto LABEL016
  1111.     If ((Upper(STRING119) <> "") && (U_Name() == Upper(STRING119))) Goto LABEL016
  1112.     If ((Upper(STRING120) <> "") && (U_Name() == Upper(STRING120))) Goto LABEL016
  1113.     If ((Upper(STRING121) <> "") && (U_Name() == Upper(STRING121))) Goto LABEL016
  1114.     If ((Upper(STRING122) <> "") && (U_Name() == Upper(STRING122))) Goto LABEL016
  1115.     If ((Upper(STRING123) <> "") && (U_Name() == Upper(STRING123))) Goto LABEL016
  1116.     If ((Upper(STRING124) <> "") && (U_Name() == Upper(STRING124))) Goto LABEL016
  1117.     If ((Lower(STRING212) <> "none") && (CurSec() <= STRING212)) End
  1118.     If ((Lower(STRING213) <> "none") && (CurSec() >= STRING213)) End
  1119.     STRING004 = U_Ver
  1120.     If (INTEGER028 <= 4) INTEGER028 = 4
  1121.     If (INTEGER028 >= 25) INTEGER028 = 25
  1122.     If (Len(STRING004) < INTEGER028) Goto LABEL014
  1123.     If (STRING340 == "1") Goto LABEL016
  1124.     If ((U_Name() == STRING011) && (OnLocal() == 1)) Goto LABEL008
  1125.     If (STRING193 == "0") Goto LABEL008
  1126.     If (STRING193 == STRING211) Goto LABEL008
  1127.     If (STRING194 == STRING211) Goto LABEL008
  1128.     If (STRING195 == STRING211) Goto LABEL008
  1129.     If (STRING196 == STRING211) Goto LABEL008
  1130.     If (STRING197 == STRING211) Goto LABEL008
  1131.     If (STRING198 == STRING211) Goto LABEL008
  1132.     If (STRING199 == STRING211) Goto LABEL008
  1133.     If (STRING200 == STRING211) Goto LABEL008
  1134.     If (STRING201 == STRING211) Goto LABEL008
  1135.     If (STRING202 == STRING211) Goto LABEL008
  1136.     If (STRING203 == STRING211) Goto LABEL008
  1137.     If (STRING204 == STRING211) Goto LABEL008
  1138.     If (STRING205 == STRING211) Goto LABEL008
  1139.     If (STRING206 == STRING211) Goto LABEL008
  1140.     If (STRING207 == STRING211) Goto LABEL008
  1141.     If (STRING208 == STRING211) Goto LABEL008
  1142.     If (STRING209 == STRING211) Goto LABEL008
  1143.     If (STRING210 == STRING211) Goto LABEL008
  1144.     Goto LABEL016
  1145.     :LABEL008
  1146.     If (INTEGER004 - INTEGER010 >= INTEGER007) Goto LABEL016
  1147.     If (INTEGER005 - INTEGER011 >= INTEGER008) Goto LABEL016
  1148.     If (INTEGER025 - INTEGER022 >= INTEGER018) Goto LABEL016
  1149.     If (INTEGER017 - INTEGER023 >= INTEGER019) Goto LABEL016
  1150.     If (INTEGER009 - INTEGER026 >= INTEGER020) Goto LABEL016
  1151.     STRING188 = Time()
  1152.     If ((STRING188 >= Lower(STRING189)) && (STRING188 <= Lower(STRING190))) Then
  1153.         INTEGER003 = U_Logons() / INTEGER013
  1154.         If (U_Logons() - INTEGER003 * INTEGER013 == 0) Goto LABEL016
  1155.     Else
  1156.         INTEGER003 = U_Logons() / INTEGER024
  1157.         If (U_Logons() - INTEGER003 * INTEGER024 == 0) Goto LABEL016
  1158.     Endif
  1159.     If (Carrier() == 300) Goto LABEL009
  1160.     If (Carrier() == 1200) Goto LABEL010
  1161.     If (Carrier() == 2400) Goto LABEL011
  1162.     If (Carrier() <= 9600) Goto LABEL012
  1163.     If (Carrier() <= 38400) Goto LABEL013
  1164.     :LABEL009
  1165.     If (U_Stat(5) < U_Stat(6)) Goto LABEL016
  1166.     If (U_Stat(5) < U_Stat(7)) Goto LABEL016
  1167.     If (U_Stat(5) < U_Stat(8)) Goto LABEL016
  1168.     If (U_Stat(5) < U_Stat(9)) Goto LABEL016
  1169.     End
  1170.     :LABEL010
  1171.     If (U_Stat(6) < U_Stat(5)) Goto LABEL016
  1172.     If (U_Stat(6) < U_Stat(7)) Goto LABEL016
  1173.     If (U_Stat(6) < U_Stat(8)) Goto LABEL016
  1174.     If (U_Stat(6) < U_Stat(9)) Goto LABEL016
  1175.     End
  1176.     :LABEL011
  1177.     If (U_Stat(7) < U_Stat(5)) Goto LABEL016
  1178.     If (U_Stat(7) < U_Stat(6)) Goto LABEL016
  1179.     If (U_Stat(7) < U_Stat(8)) Goto LABEL016
  1180.     If (U_Stat(7) < U_Stat(9)) Goto LABEL016
  1181.     End
  1182.     :LABEL012
  1183.     If (U_Stat(8) < U_Stat(5)) Goto LABEL016
  1184.     If (U_Stat(8) < U_Stat(6)) Goto LABEL016
  1185.     If (U_Stat(8) < U_Stat(7)) Goto LABEL016
  1186.     If (U_Stat(8) < U_Stat(9)) Goto LABEL016
  1187.     End
  1188.     :LABEL013
  1189.     If (U_Stat(9) < U_Stat(5)) Goto LABEL016
  1190.     If (U_Stat(9) < U_Stat(6)) Goto LABEL016
  1191.     If (U_Stat(9) < U_Stat(7)) Goto LABEL016
  1192.     If (U_Stat(9) < U_Stat(8)) Goto LABEL016
  1193.     End
  1194.     :LABEL014
  1195.     If (INTEGER006 == STRING016 - 1) Log "*SmartSec* " + STRING332 + " - behavior check...", 0
  1196.     DispFile PPEPath() + "newuser", 1 + 4
  1197.     Newline
  1198.     InputStr STRING018, STRING004, 14, 25, STRING008, 1 + 8
  1199.     STRING004 = Trim(STRING004, " ")
  1200.     If (Upper(STRING219) == STRING004) Goto LABEL015
  1201.     If (Upper(STRING220) == STRING004) Goto LABEL015
  1202.     If (Upper(STRING221) == STRING004) Goto LABEL015
  1203.     If (Upper(STRING222) == STRING004) Goto LABEL015
  1204.     If (Upper(STRING223) == STRING004) Goto LABEL015
  1205.     If (Upper(STRING224) == STRING004) Goto LABEL015
  1206.     If (Upper(STRING225) == STRING004) Goto LABEL015
  1207.     If (Upper(STRING226) == STRING004) Goto LABEL015
  1208.     If (Upper(STRING227) == STRING004) Goto LABEL015
  1209.     If (Upper(STRING228) == STRING004) Goto LABEL015
  1210.     If (Upper(STRING229) == STRING004) Goto LABEL015
  1211.     If (Upper(STRING230) == STRING004) Goto LABEL015
  1212.     If (Upper(STRING231) == STRING004) Goto LABEL015
  1213.     If (Upper(STRING232) == STRING004) Goto LABEL015
  1214.     If (Upper(STRING233) == STRING004) Goto LABEL015
  1215.     If (Upper(STRING234) == STRING004) Goto LABEL015
  1216.     If (Upper(STRING235) == STRING004) Goto LABEL015
  1217.     If (Upper(STRING236) == STRING004) Goto LABEL015
  1218.     If (Upper(STRING237) == STRING004) Goto LABEL015
  1219.     If (Upper(STRING238) == STRING004) Goto LABEL015
  1220.     If (Upper(STRING239) == STRING004) Goto LABEL015
  1221.     If (Upper(STRING240) == STRING004) Goto LABEL015
  1222.     If (Upper(STRING241) == STRING004) Goto LABEL015
  1223.     If (Upper(STRING242) == STRING004) Goto LABEL015
  1224.     If (Upper(STRING243) == STRING004) Goto LABEL015
  1225.     If (Upper(STRING244) == STRING004) Goto LABEL015
  1226.     If (Upper(STRING245) == STRING004) Goto LABEL015
  1227.     If (Upper(STRING246) == STRING004) Goto LABEL015
  1228.     If (Upper(STRING247) == STRING004) Goto LABEL015
  1229.     If (Upper(STRING248) == STRING004) Goto LABEL015
  1230.     If (Upper(STRING249) == STRING004) Goto LABEL015
  1231.     If (Upper(STRING250) == STRING004) Goto LABEL015
  1232.     If (Upper(STRING251) == STRING004) Goto LABEL015
  1233.     If (Upper(STRING252) == STRING004) Goto LABEL015
  1234.     If (Upper(STRING253) == STRING004) Goto LABEL015
  1235.     If (Upper(STRING254) == STRING004) Goto LABEL015
  1236.     If (Upper(STRING255) == STRING004) Goto LABEL015
  1237.     If (Upper(STRING256) == STRING004) Goto LABEL015
  1238.     If (Upper(STRING257) == STRING004) Goto LABEL015
  1239.     If (Upper(STRING258) == STRING004) Goto LABEL015
  1240.     If (Upper(STRING259) == STRING004) Goto LABEL015
  1241.     If (Upper(STRING260) == STRING004) Goto LABEL015
  1242.     If (Upper(STRING261) == STRING004) Goto LABEL015
  1243.     If (Upper(STRING262) == STRING004) Goto LABEL015
  1244.     If (Upper(STRING263) == STRING004) Goto LABEL015
  1245.     If (Upper(STRING264) == STRING004) Goto LABEL015
  1246.     If (Upper(STRING265) == STRING004) Goto LABEL015
  1247.     If (Upper(STRING266) == STRING004) Goto LABEL015
  1248.     If (Upper(STRING267) == STRING004) Goto LABEL015
  1249.     If (Upper(STRING268) == STRING004) Goto LABEL015
  1250.     If (Upper(STRING269) == STRING004) Goto LABEL015
  1251.     If (Upper(STRING270) == STRING004) Goto LABEL015
  1252.     If (Upper(STRING271) == STRING004) Goto LABEL015
  1253.     If (Upper(STRING272) == STRING004) Goto LABEL015
  1254.     If (Upper(STRING273) == STRING004) Goto LABEL015
  1255.     If (Upper(STRING274) == STRING004) Goto LABEL015
  1256.     If (Upper(STRING275) == STRING004) Goto LABEL015
  1257.     If (Upper(STRING276) == STRING004) Goto LABEL015
  1258.     If (Upper(STRING277) == STRING004) Goto LABEL015
  1259.     If (Upper(STRING278) == STRING004) Goto LABEL015
  1260.     If (Upper(STRING279) == STRING004) Goto LABEL015
  1261.     If (Upper(STRING280) == STRING004) Goto LABEL015
  1262.     If (Upper(STRING281) == STRING004) Goto LABEL015
  1263.     If (Upper(STRING282) == STRING004) Goto LABEL015
  1264.     If (Upper(STRING283) == STRING004) Goto LABEL015
  1265.     If (Upper(STRING284) == STRING004) Goto LABEL015
  1266.     If (Upper(STRING285) == STRING004) Goto LABEL015
  1267.     If (Upper(STRING286) == STRING004) Goto LABEL015
  1268.     If (Upper(STRING287) == STRING004) Goto LABEL015
  1269.     If (Upper(STRING288) == STRING004) Goto LABEL015
  1270.     If (Upper(STRING289) == STRING004) Goto LABEL015
  1271.     If (Upper(STRING290) == STRING004) Goto LABEL015
  1272.     If (Upper(STRING291) == STRING004) Goto LABEL015
  1273.     If (Upper(STRING292) == STRING004) Goto LABEL015
  1274.     If (Upper(STRING293) == STRING004) Goto LABEL015
  1275.     If (Upper(STRING294) == STRING004) Goto LABEL015
  1276.     If (Upper(STRING295) == STRING004) Goto LABEL015
  1277.     If (Upper(STRING296) == STRING004) Goto LABEL015
  1278.     If (Upper(STRING297) == STRING004) Goto LABEL015
  1279.     If (Upper(STRING298) == STRING004) Goto LABEL015
  1280.     If (Upper(STRING299) == STRING004) Goto LABEL015
  1281.     If (Upper(STRING300) == STRING004) Goto LABEL015
  1282.     If (Upper(STRING301) == STRING004) Goto LABEL015
  1283.     If (Upper(STRING302) == STRING004) Goto LABEL015
  1284.     If (Upper(STRING303) == STRING004) Goto LABEL015
  1285.     If (Upper(STRING304) == STRING004) Goto LABEL015
  1286.     If (Upper(STRING305) == STRING004) Goto LABEL015
  1287.     If (Upper(STRING306) == STRING004) Goto LABEL015
  1288.     If (Upper(STRING307) == STRING004) Goto LABEL015
  1289.     If (Upper(STRING308) == STRING004) Goto LABEL015
  1290.     If (Upper(STRING309) == STRING004) Goto LABEL015
  1291.     If (Upper(STRING310) == STRING004) Goto LABEL015
  1292.     If (Upper(STRING311) == STRING004) Goto LABEL015
  1293.     If (Upper(STRING312) == STRING004) Goto LABEL015
  1294.     If (Upper(STRING313) == STRING004) Goto LABEL015
  1295.     If (Upper(STRING314) == STRING004) Goto LABEL015
  1296.     If (Upper(STRING315) == STRING004) Goto LABEL015
  1297.     If (Upper(STRING316) == STRING004) Goto LABEL015
  1298.     If (Upper(STRING317) == STRING004) Goto LABEL015
  1299.     If (Upper(STRING318) == STRING004) Goto LABEL015
  1300.     STRING215 = Trim(U_Pwd, " ")
  1301.     STRING216 = Trim(U_PwdHist(1), " ")
  1302.     STRING217 = Trim(U_PwdHist(2), " ")
  1303.     STRING218 = Trim(U_PwdHist(3), " ")
  1304.     If (Psa(1) == 1) STRING326 = Trim(U_Alias, " ")
  1305.     STRING319 = Trim(U_Name(), " ")
  1306.     STRING328 = Trim(U_City, " ")
  1307.     STRING320 = Trim(U_Addr(0), " ")
  1308.     STRING321 = Trim(U_Addr(1), " ")
  1309.     STRING329 = Trim(U_Addr(2), " ")
  1310.     STRING323 = Trim(U_Addr(3), " ")
  1311.     STRING327 = Trim(U_Addr(4), " ")
  1312.     STRING322 = Trim(U_Addr(5), " ")
  1313.     STRING324 = Trim(U_HVPhone, " ")
  1314.     STRING325 = Trim(U_BDPhone, " ")
  1315.     STRING333 = Trim(STRING333, " ")
  1316.     STRING320 = Upper(STRING320)
  1317.     STRING321 = Upper(STRING321)
  1318.     STRING329 = Upper(STRING329)
  1319.     STRING323 = Upper(STRING323)
  1320.     STRING322 = Upper(STRING322)
  1321.     STRING333 = Upper(STRING333)
  1322.     If (STRING004 == STRING215) Goto LABEL015
  1323.     If (STRING004 == STRING216) Goto LABEL015
  1324.     If (STRING004 == STRING217) Goto LABEL015
  1325.     If (STRING004 == STRING218) Goto LABEL015
  1326.     If (STRING004 == STRING319) Goto LABEL015
  1327.     If (STRING004 == STRING326) Goto LABEL015
  1328.     If (STRING004 == STRING328) Goto LABEL015
  1329.     If (STRING004 == STRING320) Goto LABEL015
  1330.     If (STRING004 == STRING321) Goto LABEL015
  1331.     If (STRING004 == STRING327) Goto LABEL015
  1332.     If (STRING004 == STRING329) Goto LABEL015
  1333.     If (STRING004 == STRING323) Goto LABEL015
  1334.     If (STRING004 == STRING322) Goto LABEL015
  1335.     If (STRING004 == STRING324) Goto LABEL015
  1336.     If (STRING004 == STRING325) Goto LABEL015
  1337.     If (Len(STRING004) < INTEGER028) Then
  1338.         :LABEL015
  1339.         Dec INTEGER006
  1340.         Newline
  1341.         Newline
  1342.         If (STRING004 <> "") Log "Not accepted ID string entered : (" + STRING004 + ")", 0
  1343.         If (STRING004 == "") Log "Invalid ID string was entered  : <ENTER>", 0
  1344.         If (INTEGER006 == 0) Log "To many Invalid ID string attempts. Logged off!", 0
  1345.         If (INTEGER006 == 0) Hangup
  1346.         If (INTEGER006 == 0) End
  1347.         If (STRING004 <> "") PrintLn STRING019
  1348.         If (STRING004 == "") PrintLn STRING331
  1349.         Delay 50
  1350.         Goto LABEL014
  1351.     Endif
  1352.     Newline
  1353.     Newline
  1354.     InputStr STRING020, STRING005, 14, 25, STRING008, 1 + 8
  1355.     STRING005 = Trim(STRING005, " ")
  1356.     PrintLn "@X0E"
  1357.     If (STRING333 == "YES") Log "Accepted ID by SmartSec was    : (" + STRING004 + ")", 0
  1358.     If (STRING333 == "NO") Log "The user ID was accepted by SmartSec.", 0
  1359.     If (STRING004 == STRING005) Then
  1360.         DispFile PPEPath() + "warning", 1 + 4
  1361.         U_Ver = STRING004
  1362.         STRING340 = "0"
  1363.         U_Notes(4) = STRING009 + "|" + STRING010 + "|" + STRING191 + "|" + STRING192 + "|" + STRING186 + "|" + STRING193 + "|" + STRING194 + "|" + STRING195 + "|" + STRING196 + "|" + STRING197 + "|" + STRING198 + "|" + STRING199 + "|" + STRING200 + "|" + STRING201 + "|" + STRING202 + "|" + STRING203 + "|" + STRING204 + "|" + STRING205 + "|" + STRING206 + "|" + STRING207 + "|" + STRING208 + "|" + STRING209 + "|" + STRING210 + "|" + STRING211 + "|" + STRING340 + "|"
  1364.         PutUser
  1365.         End
  1366.     Else
  1367.         U_PwdExp = Date() + 1
  1368.         Dec INTEGER006
  1369.         PutUser
  1370.         Newline
  1371.         If (STRING005 <> "") Log "Invalid verification ID string : (" + STRING005 + ")", 0
  1372.         If (STRING005 == "") Log "Invalid verification ID string : <ENTER>", 0
  1373.         If (INTEGER006 == 0) Log "To many Invalid ID string attempts. Logged off!", 0
  1374.         If (INTEGER006 == 0) Hangup
  1375.         If (INTEGER006 == 0) End
  1376.         If (STRING005 <> "") PrintLn STRING021
  1377.         If (STRING005 == "") PrintLn STRING331
  1378.         Delay 50
  1379.         Goto LABEL014
  1380.     Endif
  1381.     :LABEL016
  1382.     Cls
  1383.     If (INTEGER006 == STRING016 - 1) Log "*SmartSec* " + STRING332 + " - behavior check...", 0
  1384.     If (INTEGER006 == STRING016 - 1) STRING340 = "1"
  1385.     If (INTEGER006 == STRING016 - 1) U_Notes(4) = STRING009 + "|" + STRING010 + "|" + STRING191 + "|" + STRING192 + "|" + STRING186 + "|" + STRING193 + "|" + STRING194 + "|" + STRING195 + "|" + STRING196 + "|" + STRING197 + "|" + STRING198 + "|" + STRING199 + "|" + STRING200 + "|" + STRING201 + "|" + STRING202 + "|" + STRING203 + "|" + STRING204 + "|" + STRING205 + "|" + STRING206 + "|" + STRING207 + "|" + STRING208 + "|" + STRING209 + "|" + STRING210 + "|" + STRING211 + "|" + STRING340 + "|"
  1386.     If (INTEGER006 == STRING016 - 1) PutUser
  1387.     Newline
  1388.     InputStr STRING022, STRING006, 14, 25, STRING008, 1 + 8
  1389.     STRING006 = Trim(STRING006, " ")
  1390.     If (STRING006 == "") Then
  1391.         Log "Invalid ID string was entered  : <ENTER>", 0
  1392.         Dec INTEGER006
  1393.         Newline
  1394.         Newline
  1395.         PrintLn STRING331
  1396.         Newline
  1397.         Wait
  1398.         If (INTEGER006 == 0) Hangup
  1399.         If (INTEGER006 == 0) End
  1400.         Goto LABEL016
  1401.     Endif
  1402.     If (INTEGER004 - INTEGER010 >= INTEGER007) Then
  1403.         STRING009 = String(INTEGER004)
  1404.     Else
  1405.         STRING009 = String(INTEGER010)
  1406.     Endif
  1407.     If (INTEGER005 - INTEGER011 >= INTEGER008) Then
  1408.         STRING010 = String(INTEGER005)
  1409.     Else
  1410.         STRING010 = String(INTEGER011)
  1411.     Endif
  1412.     If (INTEGER025 - INTEGER022 >= INTEGER018) Then
  1413.         STRING191 = String(INTEGER025)
  1414.     Else
  1415.         STRING191 = String(INTEGER022)
  1416.     Endif
  1417.     If (INTEGER017 - INTEGER023 >= INTEGER019) Then
  1418.         STRING192 = String(INTEGER017)
  1419.     Else
  1420.         STRING192 = String(INTEGER023)
  1421.     Endif
  1422.     If (INTEGER009 - INTEGER026 >= INTEGER020) Then
  1423.         STRING186 = String(INTEGER009)
  1424.     Else
  1425.         STRING186 = String(INTEGER026)
  1426.     Endif
  1427.     If (Upper((STRING006 == U_Ver))) Then
  1428.         If (STRING333 == "YES") Log "Accepted ID by SmartSec was    : (" + STRING006 + ")", 0
  1429.         If (STRING333 == "NO") Log "The user ID was accepted by SmartSec.", 0
  1430.         STRING340 = "0"
  1431.         U_Notes(4) = STRING009 + "|" + STRING010 + "|" + STRING191 + "|" + STRING192 + "|" + STRING186 + "|" + STRING193 + "|" + STRING194 + "|" + STRING195 + "|" + STRING196 + "|" + STRING197 + "|" + STRING198 + "|" + STRING199 + "|" + STRING200 + "|" + STRING201 + "|" + STRING202 + "|" + STRING203 + "|" + STRING204 + "|" + STRING205 + "|" + STRING206 + "|" + STRING207 + "|" + STRING208 + "|" + STRING209 + "|" + STRING210 + "|" + STRING211 + "|" + STRING340 + "|"
  1432.         PutUser
  1433.         End
  1434.     Else
  1435.         Log "Invalid verification ID string : (" + STRING006 + ")", 0
  1436.         Goto LABEL017
  1437.     Endif
  1438.     :LABEL017
  1439.     If (INTEGER006 == INTEGER006 - 1) U_PwdExp = Date() + 1
  1440.     PutUser
  1441.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "lantastic")) Shell 1, INTEGER012, "" + STRING125 + "", STRING126 + "'" + U_Name() + STRING127 + String(INTEGER006) + "'"
  1442.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "novell")) Shell 1, INTEGER012, "" + STRING125 + "", "'" + U_Name() + STRING127 + String(INTEGER006) + "'" + STRING126
  1443.     Cls
  1444.     Newline
  1445.     PrintLn STRING023
  1446.     Newline
  1447.     InputStr STRING024, STRING007, 14, 25, STRING008, 1 + 8
  1448.     STRING007 = Trim(STRING007, " ")
  1449.     If (Upper((STRING007 <> U_Ver)) && (INTEGER006 > 1)) Then
  1450.         Log "Invalid verification ID string : (" + STRING007 + ")", 0
  1451.         Dec INTEGER006
  1452.         Goto LABEL017
  1453.     Else
  1454.         If (Upper((STRING007 <> U_Ver))) Goto LABEL018
  1455.         If (STRING333 == "YES") Log "Accepted ID by SmartSec was    : (" + STRING007 + ")", 0
  1456.         If (STRING333 == "NO") Log "The user ID was accepted by SmartSec.", 0
  1457.         End
  1458.     Endif
  1459.     :LABEL018
  1460.     CdChkOff
  1461.     Log "Invalid verification ID string : (" + STRING007 + ")", 0
  1462.     Log "To many Invalid ID string attempts!", 0
  1463.     Log "User punished down to SecLevel " + STRING017 + "...", 0
  1464.     Message 0, STRING011, U_Name(), "Invalid ID string", "R", 0, 0, 0, PPEPath() + "sysmsg"
  1465.     DispFile PPEPath() + "hangup", 1 + 4
  1466.     U_PwdExp = Date() + 1
  1467.     U_Sec = STRING017
  1468.     PutUser
  1469.     Delay 200
  1470.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "lantastic")) Shell 1, INTEGER012, "" + STRING125 + "", STRING126 + "'" + U_Name() + STRING128 + STRING017 + "'"
  1471.     If (((STRING132 >= Lower(STRING133)) && (STRING132 <= Lower(STRING134))) && (Lower(STRING129) == "novell")) Shell 1, INTEGER012, "" + STRING125 + "", "'" + U_Name() + STRING128 + STRING017 + "'" + STRING126
  1472.     CdChkOn
  1473.     Hangup
  1474.     End
  1475.  
  1476. ;------------------------------------------------------------------------------
  1477. ;
  1478. ; Usage report (before postprocessing)
  1479. ;
  1480. ; ■ Statements used :
  1481. ;
  1482. ;    82      End
  1483. ;    3       Cls
  1484. ;    11      Wait
  1485. ;    334     Goto 
  1486. ;    201     Let 
  1487. ;    7       PrintLn 
  1488. ;    485     If 
  1489. ;    3       DispFile 
  1490. ;    8       FOpen 
  1491. ;    7       FClose 
  1492. ;    281     FGet 
  1493. ;    4       Hangup
  1494. ;    1       GetUser
  1495. ;    7       PutUser
  1496. ;    30      Log 
  1497. ;    4       InputStr 
  1498. ;    1       CdChkOn
  1499. ;    1       CdChkOff
  1500. ;    3       Delay 
  1501. ;    4       Dec 
  1502. ;    34      Newline
  1503. ;    7       Shell 
  1504. ;    11      DispStr 
  1505. ;    1       Message 
  1506. ;
  1507. ;
  1508. ; ■ Functions used :
  1509. ;
  1510. ;    2       *
  1511. ;    2       /
  1512. ;    343     +
  1513. ;    45      -
  1514. ;    402     ==
  1515. ;    159     <>
  1516. ;    23      <
  1517. ;    36      <=
  1518. ;    1       >
  1519. ;    45      >=
  1520. ;    28      !
  1521. ;    195     &&
  1522. ;    1       ||
  1523. ;    3       Len(
  1524. ;    33      Lower()
  1525. ;    412     Upper()
  1526. ;    25      Mid()
  1527. ;    3       Right()
  1528. ;    8       Ferr()
  1529. ;    16      Chr()
  1530. ;    1       InStr()
  1531. ;    22      Trim()
  1532. ;    3       Date()
  1533. ;    3       Time()
  1534. ;    160     U_Name()
  1535. ;    4       U_Logons()
  1536. ;    17      String()
  1537. ;    26      PPEPath()
  1538. ;    2       OnLocal()
  1539. ;    2       CurSec()
  1540. ;    7       Exist()
  1541. ;    5       Carrier()
  1542. ;    2       LangExt()
  1543. ;    3       U_PwdHist()
  1544. ;    45      U_Stat()
  1545. ;    6       Psa()
  1546. ;
  1547. ;------------------------------------------------------------------------------
  1548. ;
  1549. ; Analysis flags : WBSH
  1550. ;
  1551. ; W - Write user ■ 5
  1552. ;     Program writes a user record. Although this may be normal for a
  1553. ;     User Editor, it may also be a way to modify an account level.
  1554. ;     ■ Search for : PUTUSER
  1555. ;
  1556. ; B - Brute hangup ■ 1
  1557. ;     Program hangup without notification. This may be a good way to
  1558. ;     disconnect a user, but if used randomly, may be very nasty
  1559. ;     ■ Search for : HANGUP, DTROFF
  1560. ;
  1561. ; S - Shell to DOS ■ 5
  1562. ;     This may be normal if the PPE need to execute an external command,
  1563. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1564. ;     or usefull (sorting, maintenance,...). Check!
  1565. ;     ■ Search for : SHELL
  1566. ;
  1567. ; H - Read Password or Password History ■ 5
  1568. ;     Program is reading the user's password or last password history
  1569. ;     This may be ok for a password manager, but it is very suspect. Check!
  1570. ;     ■ Search for : U_PWDHIST, U_PWD
  1571. ;
  1572. ;------------------------------------------------------------------------------
  1573. ;
  1574. ; Postprocessing report
  1575. ;
  1576. ;    1       For/Next
  1577. ;    0       While/EndWhile
  1578. ;    27      If/Then or If/Then/Else
  1579. ;    0       Select Case
  1580. ;
  1581. ;------------------------------------------------------------------------------
  1582. ;                 AEGiS Corp - Break the routines, code against the machines!
  1583. ;------------------------------------------------------------------------------
  1584.