home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / TKGALORE.ZIP / TK-KONF1.ZIP / T-KONFIG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-29  |  10KB  |  715 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 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING005
  23.     String   STRING006
  24.     String   STRING007
  25.     String   STRING008
  26.     String   STRING009
  27.     String   STRING010
  28.     String   STRING011
  29.     String   STRING012
  30.     String   STRING013
  31.     String   STRING014
  32.     String   STRING015
  33.     String   STRING016
  34.     String   STRING017
  35.     String   STRING018
  36.     String   STRING019
  37.     String   STRING020
  38.     String   STRING021
  39.     String   STRING022
  40.     String   STRING023
  41.     String   STRING024
  42.     String   STRING025
  43.     String   STRING026
  44.     String   STRING027
  45.     String   STRING028
  46.     String   STRING029
  47.     String   STRING030
  48.     String   STRING031
  49.     String   STRING032
  50.     String   STRING033
  51.     String   STRING034
  52.     String   STRING035
  53.     String   STRING036
  54.     String   STRING037
  55.     String   STRING038
  56.     String   STRING039
  57.     String   STRING040
  58.     String   STRING041
  59.     String   STRING042
  60.     String   STRING043
  61.     String   STRING044
  62.     String   STRING045
  63.     String   STRING046
  64.     String   STRING047
  65.     String   STRING048
  66.     String   STRING049
  67.     String   STRING050
  68.     String   STRING051
  69.     String   STRING052
  70.     String   STRING053
  71.     String   STRING054
  72.     String   STRING055
  73.     String   STRING056
  74.     String   STRING057
  75.     String   STRING058
  76.     String   STRING059
  77.     String   STRING060
  78.     String   STRING061
  79.     String   STRING062
  80.     String   STRING063
  81.     String   STRING064
  82.     String   STRING065
  83.     String   STRING066
  84.     String   STRING067
  85.     String   STRING068
  86.     String   STRING069
  87.     String   STRING070
  88.     String   STRING071
  89.     String   STRING072
  90.     String   STRING073
  91.     String   STRING074
  92.     String   STRING075
  93.     String   STRING076
  94.     String   STRING077
  95.  
  96. ;------------------------------------------------------------------------------
  97.  
  98.     STRING055 = "1234567890~`'.·!@#$%^&*()_+ abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,-*+/\"
  99.     STRING056 = "1234567890=,-*+/\"
  100.     STRING067 = "alias"
  101.     STRING068 = "access lvl"
  102.     STRING069 = "password"
  103.     STRING070 = "city"
  104.     STRING071 = "data phone"
  105.     STRING072 = "voice phone"
  106.     STRING073 = "clear msg"
  107.     STRING074 = "scroll msg"
  108.     STRING075 = "long header"
  109.     STRING076 = "fs editor"
  110.     STRING077 = "v1.0"
  111.     If (Exist(PPEPath() + "T-KONFIG.CFG")) Goto LABEL001
  112.     PrintLn "@X0Ct-konfig.cfg @X04does not exist in the current directory"
  113.     PrintLn "this ppe can't proceed without this file please unzip"
  114.     PrintLn "one of the examples in EXAMPLE.ZIP or get a complete package"
  115.     End
  116.     :LABEL001
  117.     Print "@X0Fw@X07a@X08it "
  118.     FOpen 1, PPEPath() + "T-KONFIG.CFG", 0, 0
  119.     FGet 1, STRING050
  120.     FGet 1, STRING005
  121.     FGet 1, STRING006
  122.     Print "."
  123.     FGet 1, STRING008
  124.     FGet 1, STRING010
  125.     FGet 1, STRING012
  126.     FGet 1, STRING014
  127.     FGet 1, STRING016
  128.     FGet 1, STRING018
  129.     FGet 1, STRING020
  130.     FGet 1, STRING022
  131.     FGet 1, STRING024
  132.     FGet 1, STRING026
  133.     FGet 1, STRING028
  134.     FGet 1, STRING030
  135.     Print "."
  136.     FGet 1, STRING032
  137.     FGet 1, STRING034
  138.     FGet 1, STRING036
  139.     FGet 1, STRING038
  140.     FGet 1, STRING040
  141.     FGet 1, STRING042
  142.     FGet 1, STRING044
  143.     FGet 1, STRING046
  144.     FGet 1, STRING048
  145.     FGet 1, STRING049
  146.     FGet 1, STRING051
  147.     Print "."
  148.     FClose 1
  149.     Tokenize STRING006
  150.     STRING006 = GetToken()
  151.     STRING007 = GetToken()
  152.     Tokenize STRING008
  153.     STRING008 = GetToken()
  154.     STRING009 = GetToken()
  155.     Tokenize STRING010
  156.     STRING010 = GetToken()
  157.     STRING011 = GetToken()
  158.     Tokenize STRING012
  159.     STRING012 = GetToken()
  160.     STRING013 = GetToken()
  161.     Tokenize STRING014
  162.     STRING014 = GetToken()
  163.     STRING015 = GetToken()
  164.     Tokenize STRING016
  165.     STRING016 = GetToken()
  166.     STRING017 = GetToken()
  167.     Tokenize STRING018
  168.     STRING018 = GetToken()
  169.     STRING019 = GetToken()
  170.     Tokenize STRING020
  171.     STRING020 = GetToken()
  172.     STRING021 = GetToken()
  173.     Tokenize STRING022
  174.     STRING022 = GetToken()
  175.     STRING023 = GetToken()
  176.     Tokenize STRING024
  177.     STRING024 = GetToken()
  178.     STRING025 = GetToken()
  179.     Tokenize STRING026
  180.     STRING026 = GetToken()
  181.     STRING027 = GetToken()
  182.     Tokenize STRING028
  183.     STRING028 = GetToken()
  184.     STRING029 = GetToken()
  185.     Tokenize STRING030
  186.     STRING030 = GetToken()
  187.     STRING031 = GetToken()
  188.     Tokenize STRING032
  189.     STRING032 = GetToken()
  190.     STRING033 = GetToken()
  191.     Tokenize STRING034
  192.     STRING034 = GetToken()
  193.     STRING035 = GetToken()
  194.     Tokenize STRING036
  195.     STRING036 = GetToken()
  196.     STRING037 = GetToken()
  197.     Tokenize STRING038
  198.     STRING038 = GetToken()
  199.     STRING039 = GetToken()
  200.     Tokenize STRING040
  201.     STRING040 = GetToken()
  202.     STRING041 = GetToken()
  203.     Tokenize STRING042
  204.     STRING042 = GetToken()
  205.     STRING043 = GetToken()
  206.     Tokenize STRING044
  207.     STRING044 = GetToken()
  208.     STRING045 = GetToken()
  209.     Tokenize STRING046
  210.     STRING046 = GetToken()
  211.     STRING047 = GetToken()
  212.     STRING048 = Upper(STRING048)
  213.     STRING049 = Upper(STRING049)
  214.     STRING050 = Upper(STRING050)
  215.     STRING051 = Upper(STRING051)
  216.     GetUser
  217.     Print "."
  218.     If (STRING051 <> "YES") Goto LABEL002
  219.     If (CurSec() == SysopSec()) Then
  220.         Cls
  221.         PrintLn "@X0Csysop security recognised"
  222.         AnsiPos 1, 3
  223.         PrintLn "@X0Fu@X07s@X08er to edit:[            ]"
  224.         PrintLn "[@X07enter alone@X08]=to edit current record"
  225.         AnsiPos 15, 3
  226.         InputStr "_", STRING065, 14, 12, STRING055, 8 + 4096
  227.         If (STRING065 == "") Then
  228.             GetUser
  229.             Goto LABEL002
  230.         Endif
  231.         INTEGER003 = U_RecNum(Upper(STRING065))
  232.         GetAltUser INTEGER003
  233.     Endif
  234.     :LABEL002
  235.     DispFile PPEPath() + "T-KONFIG.PCB", 0
  236.     AnsiPos STRING006, STRING007
  237.     Print STRING050 + STRING067
  238.     AnsiPos STRING008, STRING009
  239.     Print STRING050 + STRING068
  240.     AnsiPos STRING010, STRING011
  241.     Print STRING050 + STRING069
  242.     AnsiPos STRING012, STRING013
  243.     Print STRING050 + STRING070
  244.     AnsiPos STRING014, STRING015
  245.     Print STRING050 + STRING071
  246.     AnsiPos STRING016, STRING017
  247.     Print STRING050 + STRING072
  248.     AnsiPos STRING018, STRING019
  249.     Print STRING050 + STRING073
  250.     AnsiPos STRING020, STRING021
  251.     Print STRING050 + STRING074
  252.     AnsiPos STRING022, STRING023
  253.     Print STRING050 + STRING075
  254.     AnsiPos STRING024, STRING025
  255.     Print STRING050 + STRING076
  256.     AnsiPos STRING026, STRING027
  257.     Print STRING050 + "" + U_Name()
  258.     AnsiPos STRING028, STRING029
  259.     STRING066 = U_Sec
  260.     Print STRING050 + STRING066
  261.     STRING057 = U_Pwd
  262.     AnsiPos STRING030, STRING031
  263.     If (STRING048 <> "YES") Print STRING050 + STRING057
  264.     If (STRING048 == "YES") Print STRING050 + "<not shown> "
  265.     STRING058 = U_City
  266.     AnsiPos STRING032, STRING033
  267.     Print STRING050 + STRING058
  268.     STRING059 = Upper(U_BDPhone)
  269.     INTEGER001 = U_BDPhone
  270.     AnsiPos STRING034, STRING035
  271.     Print STRING050 + STRING059
  272.     AnsiPos STRING036, STRING037
  273.     STRING060 = Upper(U_HVPhone)
  274.     INTEGER002 = U_HVPhone
  275.     PrintLn STRING050 + STRING060
  276.     AnsiPos STRING038, STRING039
  277.     STRING061 = U_Cls
  278.     If (U_Cls == "0") Then
  279.         PrintLn STRING050 + "NO"
  280.     Endif
  281.     If (U_Cls == "1") Then
  282.         PrintLn STRING050 + "YES"
  283.     Endif
  284.     AnsiPos STRING040, STRING041
  285.     STRING062 = U_Scroll
  286.     If (U_Scroll == "0") Then
  287.         PrintLn STRING050 + "NO"
  288.     Endif
  289.     If (U_Scroll == "1") Then
  290.         PrintLn STRING050 + "YES"
  291.     Endif
  292.     AnsiPos STRING042, STRING043
  293.     STRING063 = U_LongHDR
  294.     If (U_LongHDR == "0") Then
  295.         PrintLn STRING050 + "NO"
  296.     Endif
  297.     If (U_LongHDR == "1") Then
  298.         PrintLn STRING050 + "YES"
  299.     Endif
  300.     AnsiPos STRING044, STRING045
  301.     STRING064 = U_FSE
  302.     If (U_FSE == "0") Then
  303.         PrintLn STRING050 + "NO"
  304.     Endif
  305.     If (U_FSE == "1") Then
  306.         PrintLn STRING050 + "YES"
  307.     Endif
  308.     Goto LABEL006
  309.     :LABEL003
  310.     STRING052 = Inkey()
  311.     STRING053 = Upper(STRING052)
  312.     If (((STRING053 == "UP") || (STRING053 == "A")) || (STRING053 == "LEFT")) Goto LABEL005
  313.     If (((STRING053 == "DOWN") || (STRING053 == "Z")) || (STRING053 == "RIGHT")) Goto LABEL004
  314.     If (STRING053 == Chr(13)) Goto LABEL022
  315.     If ((STRING053 == Chr(27)) || (STRING053 == "Q")) Goto LABEL034
  316.     Goto LABEL003
  317.     :LABEL004
  318.     If (STRING054 == 1) Goto LABEL007
  319.     If (STRING054 == 2) Goto LABEL008
  320.     If (STRING054 == 3) Goto LABEL009
  321.     If (STRING054 == 4) Goto LABEL010
  322.     If (STRING054 == 5) Goto LABEL011
  323.     If (STRING054 == 6) Goto LABEL012
  324.     If (STRING054 == 7) Goto LABEL013
  325.     If (STRING054 == 8) Goto LABEL006
  326.     :LABEL005
  327.     If (STRING054 == 1) Goto LABEL021
  328.     If (STRING054 == 2) Goto LABEL014
  329.     If (STRING054 == 3) Goto LABEL015
  330.     If (STRING054 == 4) Goto LABEL016
  331.     If (STRING054 == 5) Goto LABEL017
  332.     If (STRING054 == 6) Goto LABEL018
  333.     If (STRING054 == 7) Goto LABEL019
  334.     If (STRING054 == 8) Goto LABEL020
  335.     :LABEL006
  336.     AnsiPos STRING024, STRING025
  337.     Print STRING050 + STRING076 + "   "
  338.     AnsiPos STRING010, STRING011
  339.     If (STRING049 <> "YES") Print STRING005 + STRING069 + "    "
  340.     If (STRING049 == "YES") Print STRING005 + Upper(STRING069) + "    "
  341.     STRING054 = 1
  342.     Goto LABEL003
  343.     :LABEL007
  344.     AnsiPos STRING010, STRING011
  345.     Print STRING050 + STRING069 + "    "
  346.     AnsiPos STRING012, STRING013
  347.     If (STRING049 <> "YES") Print STRING005 + STRING070 + "        "
  348.     If (STRING049 == "YES") Print STRING005 + Upper(STRING070) + "        "
  349.     STRING054 = 2
  350.     Goto LABEL003
  351.     :LABEL008
  352.     AnsiPos STRING012, STRING013
  353.     Print STRING050 + STRING070 + "        "
  354.     AnsiPos STRING014, STRING015
  355.     If (STRING049 <> "YES") Print STRING005 + STRING071 + "  "
  356.     If (STRING049 == "YES") Print STRING005 + Upper(STRING071) + "  "
  357.     STRING054 = 3
  358.     Goto LABEL003
  359.     :LABEL009
  360.     AnsiPos STRING014, STRING015
  361.     Print STRING050 + STRING071 + "  "
  362.     AnsiPos STRING016, STRING017
  363.     If (STRING049 <> "YES") Print STRING005 + STRING072 + " "
  364.     If (STRING049 == "YES") Print STRING005 + Upper(STRING072) + " "
  365.     STRING054 = 4
  366.     Goto LABEL003
  367.     :LABEL010
  368.     AnsiPos STRING016, STRING017
  369.     Print STRING050 + STRING072 + " "
  370.     AnsiPos STRING018, STRING019
  371.     If (STRING049 <> "YES") Print STRING005 + STRING073 + "   "
  372.     If (STRING049 == "YES") Print STRING005 + Upper(STRING073) + "   "
  373.     STRING054 = 5
  374.     Goto LABEL003
  375.     :LABEL011
  376.     AnsiPos STRING018, STRING019
  377.     Print STRING050 + STRING073 + "   "
  378.     AnsiPos STRING020, STRING021
  379.     If (STRING049 <> "YES") Print STRING005 + STRING074 + "  "
  380.     If (STRING049 == "YES") Print STRING005 + Upper(STRING074) + "  "
  381.     STRING054 = 6
  382.     Goto LABEL003
  383.     :LABEL012
  384.     AnsiPos STRING020, STRING021
  385.     Print STRING050 + STRING074 + "  "
  386.     AnsiPos STRING022, STRING023
  387.     If (STRING049 <> "YES") Print STRING005 + STRING075 + " "
  388.     If (STRING049 == "YES") Print STRING005 + Upper(STRING075) + " "
  389.     STRING054 = 7
  390.     Goto LABEL003
  391.     :LABEL013
  392.     AnsiPos STRING022, STRING023
  393.     Print STRING050 + STRING075 + " "
  394.     AnsiPos STRING024, STRING025
  395.     If (STRING049 <> "YES") Print STRING005 + STRING076 + "   "
  396.     If (STRING049 == "YES") Print STRING005 + Upper(STRING076) + "   "
  397.     STRING054 = 8
  398.     Goto LABEL003
  399.     :LABEL014
  400.     AnsiPos STRING012, STRING013
  401.     Print STRING050 + STRING070 + "        "
  402.     AnsiPos STRING010, STRING011
  403.     If (STRING049 <> "YES") Print STRING005 + STRING069 + "    "
  404.     If (STRING049 == "YES") Print STRING005 + Upper(STRING069) + "    "
  405.     STRING054 = 1
  406.     Goto LABEL003
  407.     :LABEL015
  408.     AnsiPos STRING014, STRING015
  409.     Print STRING050 + STRING071 + "  "
  410.     AnsiPos STRING012, STRING013
  411.     If (STRING049 <> "YES") Print STRING005 + STRING070 + "        "
  412.     If (STRING049 == "YES") Print STRING005 + Upper(STRING070) + "        "
  413.     STRING054 = 2
  414.     Goto LABEL003
  415.     :LABEL016
  416.     AnsiPos STRING016, STRING017
  417.     Print STRING050 + STRING072 + " "
  418.     AnsiPos STRING014, STRING015
  419.     If (STRING049 <> "YES") Print STRING005 + STRING071 + "  "
  420.     If (STRING049 == "YES") Print STRING005 + Upper(STRING071) + "  "
  421.     STRING054 = 3
  422.     Goto LABEL003
  423.     :LABEL017
  424.     AnsiPos STRING018, STRING019
  425.     Print STRING050 + STRING073 + "   "
  426.     AnsiPos STRING016, STRING017
  427.     If (STRING049 <> "YES") Print STRING005 + STRING072 + " "
  428.     If (STRING049 == "YES") Print STRING005 + Upper(STRING072) + " "
  429.     STRING054 = 4
  430.     Goto LABEL003
  431.     :LABEL018
  432.     AnsiPos STRING020, STRING021
  433.     Print STRING050 + STRING074 + "  "
  434.     AnsiPos STRING018, STRING019
  435.     If (STRING049 <> "YES") Print STRING005 + STRING073 + "   "
  436.     If (STRING049 == "YES") Print STRING005 + Upper(STRING073) + "   "
  437.     STRING054 = 5
  438.     Goto LABEL003
  439.     :LABEL019
  440.     AnsiPos STRING022, STRING023
  441.     Print STRING050 + STRING075 + " "
  442.     AnsiPos STRING020, STRING021
  443.     If (STRING049 <> "YES") Print STRING005 + STRING074 + "  "
  444.     If (STRING049 == "YES") Print STRING005 + Upper(STRING074) + "  "
  445.     STRING054 = 6
  446.     Goto LABEL003
  447.     :LABEL020
  448.     AnsiPos STRING024, STRING025
  449.     Print STRING050 + STRING076 + "   "
  450.     AnsiPos STRING022, STRING023
  451.     If (STRING049 <> "YES") Print STRING005 + STRING075 + " "
  452.     If (STRING049 == "YES") Print STRING005 + Upper(STRING075) + " "
  453.     STRING054 = 7
  454.     Goto LABEL003
  455.     :LABEL021
  456.     AnsiPos STRING010, STRING011
  457.     Print STRING050 + STRING069 + "    "
  458.     AnsiPos STRING024, STRING025
  459.     If (STRING049 <> "YES") Print STRING005 + STRING076 + "   "
  460.     If (STRING049 == "YES") Print STRING005 + Upper(STRING076) + "   "
  461.     STRING054 = 8
  462.     Goto LABEL003
  463.     :LABEL022
  464.     If (STRING054 == 1) Goto LABEL023
  465.     If (STRING054 == 2) Goto LABEL024
  466.     If (STRING054 == 3) Goto LABEL025
  467.     If (STRING054 == 4) Goto LABEL026
  468.     If (STRING054 == 5) Goto LABEL027
  469.     If (STRING054 == 6) Goto LABEL028
  470.     If (STRING054 == 7) Goto LABEL029
  471.     If (STRING054 == 8) Goto LABEL030
  472.     Goto LABEL003
  473.     :LABEL023
  474.     AnsiPos STRING030, STRING031
  475.     Print "@X08                   "
  476.     AnsiPos STRING030, STRING031
  477.     If (STRING048 <> "YES") InputStr "_", U_Pwd, 31, 12, STRING055, 8 + 4096
  478.     If (STRING048 == "YES") InputStr "_", U_Pwd, 31, 12, STRING055, 8 + 4096
  479.     If (U_Pwd == "") Then
  480.         Goto LABEL003
  481.     Endif
  482.     AnsiPos STRING030, STRING031
  483.     If (STRING048 <> "YES") Print STRING050 + Upper(U_Pwd)
  484.     If (STRING048 == "YES") Print STRING050 + "<not shown> "
  485.     AnsiPos STRING030, STRING031
  486.     Goto LABEL003
  487.     :LABEL024
  488.     AnsiPos STRING032, STRING033
  489.     Print "@X08                     "
  490.     AnsiPos STRING032, STRING033
  491.     InputStr "_", U_City, 14, 24, STRING055, 8 + 4096
  492.     If (U_City == "") Then
  493.         Goto LABEL003
  494.     Endif
  495.     AnsiPos STRING032, STRING033
  496.     Print STRING050 + Upper(U_City)
  497.     AnsiPos STRING032, STRING033
  498.     Goto LABEL003
  499.     :LABEL025
  500.     AnsiPos STRING034, STRING035
  501.     Print "@X08             "
  502.     AnsiPos STRING034, STRING035
  503.     InputStr "_", U_BDPhone, 14, 12, STRING056, 8 + 4096
  504.     If (U_BDPhone == "") Then
  505.         Goto LABEL003
  506.     Endif
  507.     AnsiPos STRING034, STRING035
  508.     Print STRING050 + Upper(U_BDPhone)
  509.     AnsiPos STRING034, STRING035
  510.     Goto LABEL003
  511.     :LABEL026
  512.     AnsiPos STRING036, STRING037
  513.     Print "@X08             "
  514.     AnsiPos STRING036, STRING037
  515.     InputStr "_", U_HVPhone, 14, 12, STRING056, 8 + 4096
  516.     If (U_HVPhone == "") Then
  517.         Goto LABEL003
  518.     Endif
  519.     AnsiPos STRING036, STRING037
  520.     Print STRING050 + Upper(U_HVPhone)
  521.     AnsiPos STRING036, STRING037
  522.     Goto LABEL003
  523.     :LABEL027
  524.     If (U_Cls == "0") Then
  525.         AnsiPos STRING038, STRING039
  526.         Print STRING050 + "YES"
  527.         AnsiPos STRING038, STRING039
  528.         U_Cls = "1"
  529.         Goto LABEL003
  530.     Endif
  531.     If (U_Cls == "1") Then
  532.         AnsiPos STRING038, STRING039
  533.         Print STRING050 + "NO "
  534.         AnsiPos STRING038, STRING039
  535.         U_Cls = "0"
  536.         Goto LABEL003
  537.     Endif
  538.     :LABEL028
  539.     If (U_Scroll == "0") Then
  540.         AnsiPos STRING040, STRING041
  541.         Print STRING050 + "YES"
  542.         AnsiPos STRING040, STRING041
  543.         U_Scroll = "1"
  544.         Goto LABEL003
  545.     Endif
  546.     If (U_Scroll == "1") Then
  547.         AnsiPos STRING040, STRING041
  548.         Print STRING050 + "NO "
  549.         AnsiPos STRING040, STRING041
  550.         U_Scroll = "0"
  551.         Goto LABEL003
  552.     Endif
  553.     :LABEL029
  554.     If (U_LongHDR == "0") Then
  555.         AnsiPos STRING042, STRING043
  556.         Print STRING050 + "YES"
  557.         AnsiPos STRING042, STRING043
  558.         U_LongHDR = "1"
  559.         Goto LABEL003
  560.     Endif
  561.     If (U_LongHDR == "1") Then
  562.         AnsiPos STRING042, STRING043
  563.         Print STRING050 + "NO "
  564.         AnsiPos STRING042, STRING043
  565.         U_LongHDR = "0"
  566.         Goto LABEL003
  567.     Endif
  568.     :LABEL030
  569.     If (U_FSE == "0") Then
  570.         AnsiPos STRING044, STRING045
  571.         Print STRING050 + "YES"
  572.         AnsiPos STRING044, STRING045
  573.         U_FSE = "1"
  574.         Goto LABEL003
  575.     Endif
  576.     If (U_FSE == "1") Then
  577.         AnsiPos STRING044, STRING045
  578.         Print STRING050 + "NO "
  579.         AnsiPos STRING044, STRING045
  580.         U_FSE = "0"
  581.         Goto LABEL003
  582.     Endif
  583.     :LABEL031
  584.     STRING052 = Inkey()
  585.     STRING053 = Upper(STRING052)
  586.     If ((STRING053 == "A") || (STRING053 == "LEFT")) Goto LABEL032
  587.     If (((STRING053 == "RIGHT") || (STRING053 == " ")) || (STRING053 == "Z")) Goto LABEL033
  588.     If (STRING053 == Chr(13)) Goto LABEL036
  589.     If (STRING053 == Chr(27)) End
  590.     If (STRING053 == "Y") Goto LABEL036
  591.     If (STRING053 == "N") Goto LABEL037
  592.     Goto LABEL031
  593.     :LABEL032
  594.     If (STRING054 == 1) Goto LABEL035
  595.     If (STRING054 == 2) Goto LABEL034
  596.     :LABEL033
  597.     If (STRING054 == 1) Goto LABEL035
  598.     If (STRING054 == 2) Goto LABEL034
  599.     :LABEL034
  600.     If (((((((((STRING057 == U_Pwd) && (STRING058 == U_City)) && (INTEGER001 == U_BDPhone)) && (INTEGER002 == U_HVPhone)) && (STRING061 == U_Cls)) && (STRING062 == U_Scroll)) && (STRING063 == U_LongHDR)) && (STRING064 == U_FSE)) && (STRING066 == U_Sec)) Goto LABEL037
  601.     AnsiPos STRING046, STRING047
  602.     Print STRING050 + "save changes " + STRING005 + " YES " + STRING050 + " No "
  603.     STRING054 = 1
  604.     Goto LABEL031
  605.     :LABEL035
  606.     AnsiPos STRING046, STRING047
  607.     Print STRING050 + "save changes " + " Yes " + STRING005 + " NO "
  608.     STRING054 = 2
  609.     Goto LABEL031
  610.     :LABEL036
  611.     If (STRING054 == 1) Then
  612.         PutUser
  613.     Else
  614.         If (STRING054 == 2) Goto LABEL037
  615.         End
  616.     Endif
  617.     :LABEL037
  618.     Print "@X0F@@CLS@"
  619.     AnsiPos 25, 10
  620.     Print "@X08toxic user konfig " + STRING077 + " by raptor"
  621.     Delay 3
  622.     AnsiPos 25, 10
  623.     Print "@X07toxic user konfig " + STRING077 + " by raptor"
  624.     Delay 3
  625.     AnsiPos 25, 10
  626.     Print "@X0Ftoxic user konfig " + STRING077 + " by raptor"
  627.     Delay 3
  628.     Cls
  629.     End
  630.  
  631. ;------------------------------------------------------------------------------
  632. ;
  633. ; Usage report (before postprocessing)
  634. ;
  635. ; ■ Statements used :
  636. ;
  637. ;    4       End
  638. ;    2       Cls
  639. ;    104     Goto 
  640. ;    101     Let 
  641. ;    92      Print 
  642. ;    15      PrintLn 
  643. ;    103     If 
  644. ;    1       DispFile 
  645. ;    1       FOpen 
  646. ;    1       FClose 
  647. ;    26      FGet 
  648. ;    2       GetUser
  649. ;    1       PutUser
  650. ;    6       InputStr 
  651. ;    3       Delay 
  652. ;    21      Tokenize 
  653. ;    91      AnsiPos 
  654. ;    1       GetAltUser 
  655. ;
  656. ;
  657. ; ■ Functions used :
  658. ;
  659. ;    159     +
  660. ;    98      ==
  661. ;    20      <>
  662. ;    23      !
  663. ;    8       &&
  664. ;    8       ||
  665. ;    29      Upper()
  666. ;    4       Chr()
  667. ;    1       U_Name()
  668. ;    2       Inkey()
  669. ;    3       PPEPath()
  670. ;    1       SysopSec()
  671. ;    1       CurSec()
  672. ;    42      GetToken()
  673. ;    1       Exist()
  674. ;    1       U_RecNum()
  675. ;
  676. ;------------------------------------------------------------------------------
  677. ;
  678. ; Analysis flags : WRHs
  679. ;
  680. ; W - Write user ■ 5
  681. ;     Program writes a user record. Although this may be normal for a
  682. ;     User Editor, it may also be a way to modify an account level.
  683. ;     ■ Search for : PUTUSER
  684. ;
  685. ; R - Read user ■ 5
  686. ;     User records are read, this may signify that someone wants to get
  687. ;     various informations about a user (for example his password), but
  688. ;     this may also be normal for a program accessing user records (for
  689. ;     example a User Editor)
  690. ;     ■ Search for : GETALTUSER
  691. ;
  692. ; H - Read Password or Password History ■ 5
  693. ;     Program is reading the user's password or last password history
  694. ;     This may be ok for a password manager, but it is very suspect. Check!
  695. ;     ■ Search for : U_PWDHIST, U_PWD
  696. ;
  697. ; s - Sysop level access ■ 5
  698. ;     Program is reading the sysop access level, this may be normal
  699. ;     but still it is very suspect. It is the best way to give a user
  700. ;     all priviledges. Check!
  701. ;     ■ Search for : SYSOPSEC()
  702. ;
  703. ;------------------------------------------------------------------------------
  704. ;
  705. ; Postprocessing report
  706. ;
  707. ;    0       For/Next
  708. ;    0       While/EndWhile
  709. ;    23      If/Then or If/Then/Else
  710. ;    0       Select Case
  711. ;
  712. ;------------------------------------------------------------------------------
  713. ;                 AEGiS Corp - Break the routines, code against the machines!
  714. ;------------------------------------------------------------------------------
  715.