skill怎么加域啊
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
6666666666666666666 有人帮忙回复一下吗
今天看金百泽破解看到的代码类似域和时间的代码。(defun export_kbtimerec nil
(setq timeport (outfile kbtimerec_path))
(fprintf timeport ";================================= \n")
(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")
(fprintf timeport ";QQ:94139896 \316\242\320\305\243\272jason8624 \n")
(fprintf timeport ";\277\252\267\242\312\261\274\344\243\2722016\304\35212\324\30220\310\325 \n")
(fprintf timeport ";================================= \n")
(fprintf timeport "kb_loadtime= t \n\n")
(fprintf timeport "kb_recdate = %d \n\n" get_date)
(fprintf timeport "kb_rec_date1 = \"%s\" \n\n" "rec_date1")
(fprintf timeport "kb_rec_date2 = \"%s\" \n\n" "rec_date2")
(fprintf timeport "kb_rec_date3 = \"%s\" \n\n" "rec_date3")
(close timeport)
(setq kb_timeencrypt (encrypt kbtimerec_path kbtimeencrypt_path kb_recdate_password))
(deleteFile kbtimerec_path))
;;;(defun get_macaddress nil
;(setq mac_address "6F-5E-4D-3C-2B-1A")
;(sprintf ipdata_path "%s/ipdata.log" root_path)
;(if (equal (isFile ipdata_path) nil) then
;(setq out_file (outfile ipdata_path))
;(close out_file))
;(ipcBatchProcess "ipconfig /all" "" ipdata_path)
;(setq in_file (infile ipdata_path))
;(if (nequal in_file nil) then
;(while (gets line in_file)
;(if (greaterp (strlen line) 10) then
;(setq getline (nthelem 1 (parseString (nthelem 1 (parseString line "\n")) "\t")))
;(setq phy_addr (parseString getline ":"))
;(setq phy (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 1 phy_addr) ".")))))
;(if (or (equal phy "Physical") (equal phy "\316\357\300\355\265\330\326\267")) then
;(setq mac_add (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 2 phy_addr))))))
;(if (equal (strlen mac_add) 17) then
;(setq mac_address mac_add)))))
;(close in_file)))
(defun get_macaddress nil (setq mac_address "11-22-33-44-55-66"))
;;;(defun get_current_time nil
;(setq get_currenttime (getCurrentTime))
;(setq parsecurrenttime (parseString get_currenttime))
;(setq get_year (nth 3 parsecurrenttime))
;(setq get_month (upperCase (car parsecurrenttime)))
;(if (equal get_month "JAN") then (setq get_month "01"))
;(if (equal get_month "FEB") then (setq get_month "02"))
;(if (equal get_month "MAR") then (setq get_month "03"))
;(if (equal get_month "APR") then (setq get_month "04"))
;(if (equal get_month "MAY") then (setq get_month "05"))
;(if (equal get_month "JUN") then (setq get_month "06"))
;(if (equal get_month "JUL") then (setq get_month "07"))
;(if (equal get_month "AUG") then (setq get_month "08"))
;(if (equal get_month "SEP") then (setq get_month "09"))
;(if (equal get_month "OCT") then (setq get_month "10"))
;(if (equal get_month "NOV") then (setq get_month "11"))
;(if (equal get_month "DEC") then (setq get_month "12"))
;(setq get_date (atoi (strcat get_year get_month))))
(defun get_current_time nil (setq get_date (atoi "201701")))
金百泽破解时间的整段代码
(axlCmdRegister "kblic load" (quote kblicload))
(defun kblicload nil
(setq kb_terminaltime 999999)
(setq kb_macopen t)
(setq kb_version "17.0")
(setq kb_computername "kingbrother")
(setq kb_macdate "kingbrother")
(setq kb_loadlic nil)
(setq user_name (axlGetVariable "USERDOMAIN"))
(setq kingbrother_skillreg nil)
(setq kbeda_regopen nil)
(setq kb_loadtime nil)
(setq kb_recdatetime 20161220)
(setq kb_recdate_password "kingbrother@timerec")
(setq root_path (axlGetVariable "allegro_install_root"))
(sprintf kbtimerec_path "%s/share/pcb/text/timerec.il" root_path)
(sprintf kbtimeencrypt_path "%s/share/pcb/text/timerec.dll" root_path)
(get_current_time)
(get_macaddress)
(setq home (axlGetVariable "HOME"))
(sprintf ilinit_path "%s/pcbenv/allegro.ilinit" home)
(if (equal (isFile ilinit_path) t) then
(deleteFile ilinit_path))
(sprintf kblic_path "C:/edaskill_lic/kb_edaskill_license.lic")
(if (nequal (errset (loadi kblic_path "kingbrother@jason^^")) nil) then
(if (equal kb_loadlic t) then (comp_kblic)
else
(setq kingbrother_skillreg nil)
(printf "EDA-Skill\265\304License\316\304\274\376\262\273\325\375\310\267\n"))
else
(setq kingbrother_skillreg nil)
(printf "\316\264\267\242\317\326EDA-Skill\265\304License\316\304\274\376\n"))
(if (and (equal kingbrother_skillreg t) (equal kb_loadlic t)) then
(setq kbeda_regopen t)
(setq k_brother "www.kingbrother.com")
(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")
(load "kbeda_load_skill.ile" "kbeda_load_skill_2016Dec23"))
(load "kbeda_menus_load.ile" "kbeda_menus_load_2016Dec23")
(load "kbeda_register.ile" "kbeda_register_2016Dec23")
(load "kbeda_uninstall.ile" "kbeda_uninstall_2016Dec22")
(load "kbeda_about.ile" "kbeda_about_2016Dec22")
(load "kbeda_updaterec.ile" "kbeda_updaterec_2016Dec23")
(load "kbeda_information.ile" "kbeda_information_2016Dec23")
(setq timerId (axlUIWTimerAdd nil 50 nil (quote read_lj_file)))
(defun read_lj_file (window timerId_lj elapsedTime)
(prog nil (axlUIWTimerRemove timerId_lj) (load_kbedamenus))))
(defun comp_kblic nil (if (nequal (errset (loadi kbtimeencrypt_path kb_recdate_password)) nil) then
(if (equal kb_loadtime t) then
(if (greaterp get_date kb_recdate) then
(export_kbtimerec)
(setq kb_recdatetime get_date)
else
(setq kb_recdatetime kb_recdate))
else
(export_kbtimerec)
(setq kb_recdatetime get_date))
else
(export_kbtimerec)
(setq kb_recdatetime get_date))
(if (leqp kb_recdatetime kb_terminaltime) then
(if (equal kb_macopen t) then
(if (and (equal mac_address kb_macdate) (equal user_name kb_computername)) then
(setq kingbrother_skillreg t)
else
(setq kingbrother_skillreg nil)
(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"))
else
(setq kingbrother_skillreg t))
else
(setq kingbrother_skillreg nil)
(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")))
(defun export_kbtimerec nil
(setq timeport (outfile kbtimerec_path))
(fprintf timeport ";================================= \n")
(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")
(fprintf timeport ";QQ:94139896 \316\242\320\305\243\272jason8624 \n")
(fprintf timeport ";\277\252\267\242\312\261\274\344\243\2722016\304\35212\324\30220\310\325 \n")
(fprintf timeport ";================================= \n")
(fprintf timeport "kb_loadtime= t \n\n")
(fprintf timeport "kb_recdate = %d \n\n" get_date)
(fprintf timeport "kb_rec_date1 = \"%s\" \n\n" "rec_date1")
(fprintf timeport "kb_rec_date2 = \"%s\" \n\n" "rec_date2")
(fprintf timeport "kb_rec_date3 = \"%s\" \n\n" "rec_date3")
(close timeport)
(setq kb_timeencrypt (encrypt kbtimerec_path kbtimeencrypt_path kb_recdate_password))
(deleteFile kbtimerec_path))
;;;(defun get_macaddress nil
;(setq mac_address "6F-5E-4D-3C-2B-1A")
;(sprintf ipdata_path "%s/ipdata.log" root_path)
;(if (equal (isFile ipdata_path) nil) then
;(setq out_file (outfile ipdata_path))
;(close out_file))
;(ipcBatchProcess "ipconfig /all" "" ipdata_path)
;(setq in_file (infile ipdata_path))
;(if (nequal in_file nil) then
;(while (gets line in_file)
;(if (greaterp (strlen line) 10) then
;(setq getline (nthelem 1 (parseString (nthelem 1 (parseString line "\n")) "\t")))
;(setq phy_addr (parseString getline ":"))
;(setq phy (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 1 phy_addr) ".")))))
;(if (or (equal phy "Physical") (equal phy "\316\357\300\355\265\330\326\267")) then
;(setq mac_add (nthelem 1 (parseString (nthelem 1 (parseString (nthelem 2 phy_addr))))))
;(if (equal (strlen mac_add) 17) then
;(setq mac_address mac_add)))))
;(close in_file)))
(defun get_macaddress nil (setq mac_address "11-22-33-44-55-66"))
;;;(defun get_current_time nil
;(setq get_currenttime (getCurrentTime))
;(setq parsecurrenttime (parseString get_currenttime))
;(setq get_year (nth 3 parsecurrenttime))
;(setq get_month (upperCase (car parsecurrenttime)))
;(if (equal get_month "JAN") then (setq get_month "01"))
;(if (equal get_month "FEB") then (setq get_month "02"))
;(if (equal get_month "MAR") then (setq get_month "03"))
;(if (equal get_month "APR") then (setq get_month "04"))
;(if (equal get_month "MAY") then (setq get_month "05"))
;(if (equal get_month "JUN") then (setq get_month "06"))
;(if (equal get_month "JUL") then (setq get_month "07"))
;(if (equal get_month "AUG") then (setq get_month "08"))
;(if (equal get_month "SEP") then (setq get_month "09"))
;(if (equal get_month "OCT") then (setq get_month "10"))
;(if (equal get_month "NOV") then (setq get_month "11"))
;(if (equal get_month "DEC") then (setq get_month "12"))
;(setq get_date (atoi (strcat get_year get_month))))
(defun get_current_time nil (setq get_date (atoi "201701")))
页:
[1]