skill怎么加域啊

xieeyawen

axlCmdRegister("abc" 'HelloWorldMain1)
Userdomain == “CC”;   怎么加域啊？这样好像不行啦
defun(HelloWorldMain1 ()
if(rexMatchp "CC" (axlGetVariable "Userdomain"))
         then
(a = "**************************************;Hello , everyone!;Skill Programming Language.Is So Easy!**************************************"
b = parseString(a ";")
foreach(mapcar x b println(x))
));end defun

szr

6666666666666666666

xieeyawen

有人帮忙回复一下吗

xieeyawen

今天看金百泽破解看到的代码类似域和时间的代码。

1. (defun export_kbtimerec nil
   
2. (setq timeport (outfile kbtimerec_path))
   
3. (fprintf timeport ";================================= \n")
   
4. (fprintf timeport ";\311\356\333\332\312\320\275\360\260\331\324\363\265\347\327\323\277\306\274\274\271\311\267\335\323\320\317\336\271\253\313\276 \n") (fprintf timeport ";\310\355\274\376\327\367\325\337\243\272\300\356\317\355 \n")
   
5. (fprintf timeport ";QQ:94139896 \316\242\320\305\243\272jason8624 \n")
   
6. (fprintf timeport ";\277\252\267\242\312\261\274\344\243\2722016\304\35212\324\30220\310\325 \n")
   
7. (fprintf timeport ";================================= \n")
   
8. (fprintf timeport "kb_loadtime  = t \n\n")
   
9. (fprintf timeport "kb_recdate = %d \n\n" get_date)
   
10. (fprintf timeport "kb_rec_date1 = "%s" \n\n" "rec_date1")
    
11. (fprintf timeport "kb_rec_date2 = "%s" \n\n" "rec_date2")
    
12. (fprintf timeport "kb_rec_date3 = "%s" \n\n" "rec_date3")
    
13. (close timeport)
    
14. (setq kb_timeencrypt (encrypt kbtimerec_path kbtimeencrypt_path kb_recdate_password))
    
15. (deleteFile kbtimerec_path))
    
16. ;;;(defun get_macaddress nil
    
17. ;(setq mac_address "6F-5E-4D-3C-2B-1A")
    
18. ;(sprintf ipdata_path "%s/ipdata.log" root_path)
    
19. ;(if (equal (isFile ipdata_path) nil) then
    
20. ;(setq out_file (outfile ipdata_path))
    
21. ;(close out_file))
    
22. ;(ipcBatchProcess "ipconfig /all" "" ipdata_path)
    
23. ;(setq in_file (infile ipdata_path))
    
24. ;(if (nequal in_file nil) then
    
25. ;(while (gets line in_file)
    
26. ;(if (greaterp (strlen line) 10) then
    
27. ;(setq getline (nthelem 1 (parseString (nthelem 1 (parseString line "\n")) "\t")))
    
28. ;(setq phy_addr (parseString getline ":"))
    
29. ;(setq phy (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 1 phy_addr) ".")))))
    
30. ;(if (or (equal phy "Physical") (equal phy "\316\357\300\355\265\330\326\267")) then
    
31. ;(setq mac_add (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 2 phy_addr))))))
    
32. ;(if (equal (strlen mac_add) 17) then
    
33. ;(setq mac_address mac_add)))))
    
34. ;(close in_file)))
    
35. 
    
36. (defun get_macaddress nil (setq mac_address "11-22-33-44-55-66"))
    
37. ;;;(defun get_current_time nil
    
38. ;(setq get_currenttime (getCurrentTime))
    
39. ;(setq parsecurrenttime (parseString get_currenttime))
    
40. ;(setq get_year (nth 3 parsecurrenttime))
    
41. ;(setq get_month (upperCase (car parsecurrenttime)))
    
42. ;(if (equal get_month "JAN") then (setq get_month "01"))
    
43. ;(if (equal get_month "FEB") then (setq get_month "02"))
    
44. ;(if (equal get_month "MAR") then (setq get_month "03"))
    
45. ;(if (equal get_month "APR") then (setq get_month "04"))
    
46. ;(if (equal get_month "MAY") then (setq get_month "05"))
    
47. ;(if (equal get_month "JUN") then (setq get_month "06"))
    
48. ;(if (equal get_month "JUL") then (setq get_month "07"))
    
49. ;(if (equal get_month "AUG") then (setq get_month "08"))
    
50. ;(if (equal get_month "SEP") then (setq get_month "09"))
    
51. ;(if (equal get_month "OCT") then (setq get_month "10"))
    
52. ;(if (equal get_month "NOV") then (setq get_month "11"))
    
53. ;(if (equal get_month "DEC") then (setq get_month "12"))
    
54. ;(setq get_date (atoi (strcat get_year get_month))))
    
55. 
    
56. (defun get_current_time nil (setq get_date (atoi "201701")))

复制代码

xieeyawen

金百泽破解时间的整段代码

1. (axlCmdRegister "kblic load" (quote kblicload))
   
2. (defun kblicload nil
   
3. (setq kb_terminaltime 999999)
   
4. (setq kb_macopen t)
   
5. (setq kb_version "17.0")
   
6. (setq kb_computername "kingbrother")
   
7. (setq kb_macdate "kingbrother")
   
8. (setq kb_loadlic nil)
   
9. (setq user_name (axlGetVariable "USERDOMAIN"))
   
10. (setq kingbrother_skillreg nil)
    
11. (setq kbeda_regopen nil)
    
12. (setq kb_loadtime nil)
    
13. (setq kb_recdatetime 20161220)
    
14. (setq kb_recdate_password "kingbrother@timerec")
    
15. (setq root_path (axlGetVariable "allegro_install_root"))
    
16. (sprintf kbtimerec_path "%s/share/pcb/text/timerec.il" root_path)
    
17. (sprintf kbtimeencrypt_path "%s/share/pcb/text/timerec.dll" root_path)
    
18. (get_current_time)
    
19. (get_macaddress)
    
20. (setq home (axlGetVariable "HOME"))
    
21. (sprintf ilinit_path "%s/pcbenv/allegro.ilinit" home)
    
22. (if (equal (isFile ilinit_path) t) then
    
23. (deleteFile ilinit_path))
    
24. (sprintf kblic_path "C:/edaskill_lic/kb_edaskill_license.lic")
    
25. (if (nequal (errset (loadi kblic_path "kingbrother@jason^^")) nil) then
    
26. (if (equal kb_loadlic t) then (comp_kblic)
    
27. else
    
28. (setq kingbrother_skillreg nil)
    
29. (printf "EDA-Skill\265\304License\316\304\274\376\262\273\325\375\310\267\n"))
    
30. else
    
31. (setq kingbrother_skillreg nil)
    
32. (printf "\316\264\267\242\317\326EDA-Skill\265\304License\316\304\274\376\n"))
    
33. (if (and (equal kingbrother_skillreg t) (equal kb_loadlic t)) then
    
34. (setq kbeda_regopen t)
    
35. (setq k_brother "www.kingbrother.com")
    
36. (setq kingbrother_info "\311\356\333\332\312\320\275\360\260\331\324\363\265\347\327\323\277\306\274\274\271\311\267\335\323\320\317\336\271\253\313\276")
    
37. (load "kbeda_load_skill.ile" "kbeda_load_skill_2016Dec23"))
    
38. (load "kbeda_menus_load.ile" "kbeda_menus_load_2016Dec23")
    
39. (load "kbeda_register.ile" "kbeda_register_2016Dec23")
    
40. (load "kbeda_uninstall.ile" "kbeda_uninstall_2016Dec22")
    
41. (load "kbeda_about.ile" "kbeda_about_2016Dec22")
    
42. (load "kbeda_updaterec.ile" "kbeda_updaterec_2016Dec23")
    
43. (load "kbeda_information.ile" "kbeda_information_2016Dec23")
    
44. (setq timerId (axlUIWTimerAdd nil 50 nil (quote read_lj_file)))
    
45. (defun read_lj_file (window timerId_lj elapsedTime)
    
46. (prog nil (axlUIWTimerRemove timerId_lj) (load_kbedamenus))))
    
47. (defun comp_kblic nil (if (nequal (errset (loadi kbtimeencrypt_path kb_recdate_password)) nil) then
    
48. (if (equal kb_loadtime t) then
    
49. (if (greaterp get_date kb_recdate) then
    
50. (export_kbtimerec)
    
51. (setq kb_recdatetime get_date)
    
52. else
    
53. (setq kb_recdatetime kb_recdate))
    
54. else
    
55. (export_kbtimerec)
    
56. (setq kb_recdatetime get_date))
    
57. else
    
58. (export_kbtimerec)
    
59. (setq kb_recdatetime get_date))
    
60. (if (leqp kb_recdatetime kb_terminaltime) then
    
61. (if (equal kb_macopen t) then
    
62. (if (and (equal mac_address kb_macdate) (equal user_name kb_computername)) then
    
63. (setq kingbrother_skillreg t)
    
64. else
    
65. (setq kingbrother_skillreg nil)
    
66. (printf "\275\360\260\331\324\363\266\376\264\316\277\252\267\242\271\244\276\337license\316\304\274\376\310\317\326\244\316\264\315\250\271\375\243\254\307\353\323\353\316\322\303\307\301\252\302\347\273\361\310\241\320\302\265\304license\316\304\274\376\n"))
    
67. else
    
68. (setq kingbrother_skillreg t))
    
69. else
    
70. (setq kingbrother_skillreg nil)
    
71. (printf "  \267\307\263\243\270\320\320\273\304\372\312\271\323\303\316\322\313\276\266\376\264\316\277\252\267\242\265\304\271\244\276\337\243\254\322\362\312\271\323\303\306\332\317\336\265\275\306\332\304\277\307\260\316\336\267\250\325\375\263\243\312\271\323\303\241\243\310\347\320\350\274\314\320\370\312\271\323\303\243\254\307\353\275\253\273\372\306\367\302\353\272\315\323\303\273\247\303\373\267\242\270\370\316\322\303\307\275\370\320\320\310\317\326\244\241\243\n")))
    
72. 
    
73. (defun export_kbtimerec nil
    
74. (setq timeport (outfile kbtimerec_path))
    
75. (fprintf timeport ";================================= \n")
    
76. (fprintf timeport ";\311\356\333\332\312\320\275\360\260\331\324\363\265\347\327\323\277\306\274\274\271\311\267\335\323\320\317\336\271\253\313\276 \n") (fprintf timeport ";\310\355\274\376\327\367\325\337\243\272\300\356\317\355 \n")
    
77. (fprintf timeport ";QQ:94139896 \316\242\320\305\243\272jason8624 \n")
    
78. (fprintf timeport ";\277\252\267\242\312\261\274\344\243\2722016\304\35212\324\30220\310\325 \n")
    
79. (fprintf timeport ";================================= \n")
    
80. (fprintf timeport "kb_loadtime  = t \n\n")
    
81. (fprintf timeport "kb_recdate = %d \n\n" get_date)
    
82. (fprintf timeport "kb_rec_date1 = "%s" \n\n" "rec_date1")
    
83. (fprintf timeport "kb_rec_date2 = "%s" \n\n" "rec_date2")
    
84. (fprintf timeport "kb_rec_date3 = "%s" \n\n" "rec_date3")
    
85. (close timeport)
    
86. (setq kb_timeencrypt (encrypt kbtimerec_path kbtimeencrypt_path kb_recdate_password))
    
87. (deleteFile kbtimerec_path))
    
88. ;;;(defun get_macaddress nil
    
89. ;(setq mac_address "6F-5E-4D-3C-2B-1A")
    
90. ;(sprintf ipdata_path "%s/ipdata.log" root_path)
    
91. ;(if (equal (isFile ipdata_path) nil) then
    
92. ;(setq out_file (outfile ipdata_path))
    
93. ;(close out_file))
    
94. ;(ipcBatchProcess "ipconfig /all" "" ipdata_path)
    
95. ;(setq in_file (infile ipdata_path))
    
96. ;(if (nequal in_file nil) then
    
97. ;(while (gets line in_file)
    
98. ;(if (greaterp (strlen line) 10) then
    
99. ;(setq getline (nthelem 1 (parseString (nthelem 1 (parseString line "\n")) "\t")))
    
100. ;(setq phy_addr (parseString getline ":"))
     
101. ;(setq phy (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 1 phy_addr) ".")))))
     
102. ;(if (or (equal phy "Physical") (equal phy "\316\357\300\355\265\330\326\267")) then
     
103. ;(setq mac_add (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 2 phy_addr))))))
     
104. ;(if (equal (strlen mac_add) 17) then
     
105. ;(setq mac_address mac_add)))))
     
106. ;(close in_file)))
     
107. 
     
108. (defun get_macaddress nil (setq mac_address "11-22-33-44-55-66"))
     
109. ;;;(defun get_current_time nil
     
110. ;(setq get_currenttime (getCurrentTime))
     
111. ;(setq parsecurrenttime (parseString get_currenttime))
     
112. ;(setq get_year (nth 3 parsecurrenttime))
     
113. ;(setq get_month (upperCase (car parsecurrenttime)))
     
114. ;(if (equal get_month "JAN") then (setq get_month "01"))
     
115. ;(if (equal get_month "FEB") then (setq get_month "02"))
     
116. ;(if (equal get_month "MAR") then (setq get_month "03"))
     
117. ;(if (equal get_month "APR") then (setq get_month "04"))
     
118. ;(if (equal get_month "MAY") then (setq get_month "05"))
     
119. ;(if (equal get_month "JUN") then (setq get_month "06"))
     
120. ;(if (equal get_month "JUL") then (setq get_month "07"))
     
121. ;(if (equal get_month "AUG") then (setq get_month "08"))
     
122. ;(if (equal get_month "SEP") then (setq get_month "09"))
     
123. ;(if (equal get_month "OCT") then (setq get_month "10"))
     
124. ;(if (equal get_month "NOV") then (setq get_month "11"))
     
125. ;(if (equal get_month "DEC") then (setq get_month "12"))
     
126. ;(setq get_date (atoi (strcat get_year get_month))))
     
127. 
     
128. (defun get_current_time nil (setq get_date (atoi "201701")))
     

复制代码