lisp加密请问谁知道这是什么鬼

eechenchun · 发表于 2021-3-21 16:46:44

我猜测是加密的代码但是又不知道是什么鬼
( DEFUN ALIFIRKLQLEFWPW ( IBERWTQZORYJEBE / IXSTMDQXEHEPEZA )
( PRINC )
( FOREACH IXSTMDQXEHEPEZA IBERWTQZORYJEBE ( MODE_TILE IXSTMDQXEHEPEZA 1 )
)
)
( DEFUN ZYVULSRQPUDKBCV ( IBERWTQZORYJEBE / IXSTMDQXEHEPEZA )
( PRINC )
( FOREACH IXSTMDQXEHEPEZA IBERWTQZORYJEBE ( MODE_TILE IXSTMDQXEHEPEZA 0 )
)
)
( DEFUN BOJSDEXIJYBCDWV ( SBORYBCDELATGLC JSBYFWFWVOVEJAH )
( PRINC )
( CDR ( ASSOC SBORYBCDELATGLC JSBYFWFWVOVEJAH )
)
)
( DEFUN PIRWVAFIFITQVQP ( GBYBSJSFGZSHKXU / RINGLGNGLMFKLST YFITKFEXCNIXGRC )
( PRINC )
( SETQ RINGLGNGLMFKLST ( vlax-create-object ( VL-LIST->STRING ( QUOTE ( 83 99 114 105 112 116 105 110 103 46 70 105 108 101 83 121 115 116 101 109 79 98 106 101 99 116 )
)
)
)
)
( SETQ YFITKFEXCNIXGRC ( VL-CATCH-ALL-APPLY ( QUOTE vlax-invoke )
( LIST RINGLGNGLMFKLST ( VL-LIST->STRING ( QUOTE ( 71 101 116 68 114 105 118 101 )
)
)
GBYBSJSFGZSHKXU )
)
)
( IF ( VL-CATCH-ALL-ERROR-P YFITKFEXCNIXGRC )
( SETQ XIHWTKJMXGLUBWF ( VL-LIST->STRING ( QUOTE ( 48 48 48 48 48 )
)
)
)
( SETQ YFITKFEXCNIXGRC ( VL-CATCH-ALL-APPLY ( QUOTE vlax-get )
( LIST YFITKFEXCNIXGRC ( VL-LIST->STRING ( QUOTE ( 83 101 114 105 97 108 78 117 109 98 101 114 )
)
)
)
)
)
)
( vlax-release-object RINGLGNGLMFKLST )
( IF ( VL-CATCH-ALL-ERROR-P YFITKFEXCNIXGRC )
( SETQ XIHWTKJMXGLUBWF ( VL-LIST->STRING ( QUOTE ( 48 48 48 48 48 )
)
)
)
( SETQ XIHWTKJMXGLUBWF ( RTOS YFITKFEXCNIXGRC 2 0 )
)
)
XIHWTKJMXGLUBWF )
( DEFUN OZCXINGNOXCPCRA ( / CPQJSNEHKNKZSBO ITSHGTGDIFQZSVU EDABUBATWVALGXI MVYLKBATMZKBGZA OHWXKLCFIDMDAJA OFGBWZABOFINMNE LCZMLILERKDGPQJ VUTANYFKHQHKDML )
( PRINC )
( SETQ CPQJSNEHKNKZSBO nil MVYLKBATMZKBGZA nil )
( VL-LOAD-COM )
( IF ( SETQ ITSHGTGDIFQZSVU ( vlax-create-object ( VL-LIST->STRING ( QUOTE ( 119 98 101 109 83 99 114 105 112 116 105 110 103 46 83 119 98 101 109 76 111 99 97 116 111 114 )
)
)
)
)
( PROGN ( SETQ EDABUBATWVALGXI ( vlax-invoke ITSHGTGDIFQZSVU ( QUOTE CONNECTSERVER )
( VL-LIST->STRING ( QUOTE ( 46 )
)
)
( VL-LIST->STRING ( QUOTE ( 92 114 111 111 116 92 99 105 109 118 50 )
)
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
128 nil )
)
( NUJANQZCPYDGVWX ( VL-LIST->STRING ( QUOTE ( 83 101 108 101 99 116 32 83 101 114 105 97 108 78 117 109 98 101 114 44 84 97 103 32 102 114 111 109 32 87 105 110 51 50 95 80 104 121 115 105 99 97 108 77 101 109 111 114 121 )
)
)
)
( FOREACH LCZMLILERKDGPQJ CPQJSNEHKNKZSBO ( SETQ VUTANYFKHQHKDML 1 )
( IF ( NOT LCZMLILERKDGPQJ )
nil ( REPEAT ( STRLEN LCZMLILERKDGPQJ )
( SETQ OFGBWZABOFINMNE ( ITOA ( ASCII ( SUBSTR LCZMLILERKDGPQJ VUTANYFKHQHKDML 1 )
)
)
VUTANYFKHQHKDML ( 1+ VUTANYFKHQHKDML )
)
( IF ( NOT MVYLKBATMZKBGZA )
( SETQ MVYLKBATMZKBGZA OFGBWZABOFINMNE )
( SETQ MVYLKBATMZKBGZA ( STRCAT MVYLKBATMZKBGZA OFGBWZABOFINMNE )
)
)
)
)
)
( vlax-release-object VWLMPQXYXGRCBSH )
( vlax-release-object EDABUBATWVALGXI )
( vlax-release-object ITSHGTGDIFQZSVU )
)
)
CPQJSNEHKNKZSBO )
( DEFUN NUJANQZCPYDGVWX ( VUFULGNAREFYTAP )
( PRINC )
( SETQ VWLMPQXYXGRCBSH ( vlax-invoke EDABUBATWVALGXI ( QUOTE EXECQUERY )
VUFULGNAREFYTAP )
)
( VLAX-FOR FCPMLEBOBILWPMN VWLMPQXYXGRCBSH ( SETQ CPQJSNEHKNKZSBO ( CONS ( vlax-get FCPMLEBOBILWPMN ( QUOTE SERIALNUMBER )
)
CPQJSNEHKNKZSBO )
)
)
)
( DEFUN XEPSZUHUJKNEXYT nil ( PRINC )
( SETQ VUTANYFKHQHKDML 1 OHWXKLCFIDMDAJA nil )
( REPEAT ( / ( STRLEN MVYLKBATMZKBGZA )
2 )
( SETQ OFGBWZABOFINMNE ( CHR ( ATOI ( SUBSTR MVYLKBATMZKBGZA VUTANYFKHQHKDML 2 )
)
)
VUTANYFKHQHKDML ( + VUTANYFKHQHKDML 2 )
)
( IF ( NOT OHWXKLCFIDMDAJA )
( SETQ OHWXKLCFIDMDAJA OFGBWZABOFINMNE )
( SETQ OHWXKLCFIDMDAJA ( STRCAT OHWXKLCFIDMDAJA OFGBWZABOFINMNE )
)
)
)
)
( DEFUN BYTIRMFMHARKRAN ( / ETUFYVAVYNIHYHO RUJSVUBUNAFYLED MVCJWLMNCTQLABE VWLMPQXYXGRCBSH GBAXQRERYTKNKPG )
( PRINC )
( IF ( SETQ RUJSVUBUNAFYLED ( vlax-create-object ( VL-LIST->STRING ( QUOTE ( 119 98 101 109 83 99 114 105 112 116 105 110 103 46 83 119 98 101 109 76 111 99 97 116 111 114 )
)
)
)
)
( PROGN ( OR ( NOT ( VL-CATCH-ALL-ERROR-P ( SETQ MVCJWLMNCTQLABE ( VL-CATCH-ALL-APPLY ( QUOTE vlax-invoke )
( LIST RUJSVUBUNAFYLED ( QUOTE CLUPOBWFCLWHKTQ )
( VL-LIST->STRING ( QUOTE ( 46 )
)
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
128 nil )
)
)
)
)
( SETQ MVCJWLMNCTQLABE ( vlax-invoke RUJSVUBUNAFYLED ( QUOTE CONNECTSERVER )
( VL-LIST->STRING ( QUOTE ( 46 )
)
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
( VL-LIST->STRING ( QUOTE nil )
)
)
)
)
( SETQ VWLMPQXYXGRCBSH ( vlax-invoke MVCJWLMNCTQLABE ( QUOTE EXECQUERY )
( VL-LIST->STRING ( QUOTE ( 83 101 108 101 99 116 32 42 32 102 114 111 109 32 87 105 110 51 50 95 80 114 111 99 101 115 115 111 114 )
)
)
)
)
( SETQ ETUFYVAVYNIHYHO nil )
( VLAX-FOR FCPMLEBOBILWPMN VWLMPQXYXGRCBSH ( IF ( NOT ( MEMBER ( SETQ GBAXQRERYTKNKPG ( vlax-get FCPMLEBOBILWPMN ( QUOTE PROCESSORID )
)
)
ETUFYVAVYNIHYHO )
)
( SETQ ETUFYVAVYNIHYHO ( CONS GBAXQRERYTKNKPG ETUFYVAVYNIHYHO )
)
)
)
( MAPCAR ( QUOTE vlax-release-object )
( LIST VWLMPQXYXGRCBSH MVCJWLMNCTQLABE RUJSVUBUNAFYLED )
)
)
)
( REVERSE ETUFYVAVYNIHYHO )
)
( DEFUN EHELMRAJGBMHUPU ( RYNGJEJUZOXKZGZ / ORGZKLKBCHQRWHW NKDSNQVGHIJYLSF )
( PRINC )
( SETQ ORGZKLKBCHQRWHW ( vlax-create-object ( VL-LIST->STRING ( QUOTE ( 77 115 120 109 108 50 46 88 77 76 72 84 84 80 )
)
)
)
)
( vlax-invoke-method ORGZKLKBCHQRWHW ( VL-LIST->STRING ( QUOTE ( 111 112 101 110 )
)
)
( VL-LIST->STRING ( QUOTE ( 103 101 116 )
)
)
RYNGJEJUZOXKZGZ ( VL-LIST->STRING ( QUOTE ( 102 97 108 115 101 )
)
)
)
( IF ( VL-CATCH-ALL-ERROR-P ( VL-CATCH-ALL-APPLY ( QUOTE vlax-invoke-method )
( LIST ORGZKLKBCHQRWHW ( VL-LIST->STRING ( QUOTE ( 115 101 110 100 )
)
)
)
)
)
( PRINC ( VL-LIST->STRING ( QUOTE ( 10 181 177 199 176 206 222 205 248 194 231 193 172 189 211 )
)
)
)
( SETQ NKDSNQVGHIJYLSF ( vlax-get-property ORGZKLKBCHQRWHW ( VL-LIST->STRING ( QUOTE ( 114 101 115 112 111 110 115 101 84 101 120 116 )
)
)
)
)
)
( vlax-release-object ORGZKLKBCHQRWHW )
NKDSNQVGHIJYLSF )
( DEFUN EHWRYJIDMLMPIPI ( OFGBWZABOFINMNE TUXORSHSTITOFYT HCRYLQRIFSTAPSN IXSTMDQXEHEPEZA / @mb )
( PRINC )
( SETQ VYDEBCTANYXAPIZ ( vlax-create-object ( VL-LIST->STRING ( QUOTE ( 118 98 115 99 114 105 112 116 46 114 101 103 101 120 112 )
)
)
)
)
( vlax-put-property VYDEBCTANYXAPIZ ( QUOTE PATTERN )
TUXORSHSTITOFYT )
( FOREACH @4D ( QUOTE ( ( "Global" . "*g*,*G*" )
( "IgnoreCase" . "*i*,*I*" )
( "Multiline" . "*m*,*M*" )
)
)
( vlax-put-property VYDEBCTANYXAPIZ ( CAR @4D )
( IF ( WCMATCH IXSTMDQXEHEPEZA ( CDR @4D )
)
1 0 )
)
)
( IF HCRYLQRIFSTAPSN ( SETQ @mb ( LIST ( vlax-invoke VYDEBCTANYXAPIZ ( QUOTE REPLACE )
OFGBWZABOFINMNE HCRYLQRIFSTAPSN )
)
)
( VLAX-FOR @4D ( vlax-invoke VYDEBCTANYXAPIZ ( QUOTE EXECUTE )
OFGBWZABOFINMNE )
( SETQ @mb ( CONS ( vla-get-Value @4D )
@mb )
)
)
)
( vlax-release-object VYDEBCTANYXAPIZ )
( REVERSE @mb )
)
( VL-LOAD-COM )
( DEFUN DYVSPUJEDCJSFMD ( MZYHULCPYFUPEJK / PCDWTEXWFSLETGN TILIHKNMFQLIVAJ MZYHULCPYFUPEJK GTYDALQTKNKXANE )
( PRINC )
( SETQ PCDWTEXWFSLETGN ( STRCAT ( VL-LIST->STRING ( QUOTE ( 104 116 116 112 58 47 47 100 111 119 110 46 99 104 101 110 99 104 117 110 46 99 99 47 105 110 100 101 120 46 112 104 112 63 99 61 99 97 100 38 109 61 108 105 115 112 38 107 101 121 61 )
)
)
MZYHULCPYFUPEJK )
)
( SETQ GTYDALQTKNKXANE ( EHELMRAJGBMHUPU PCDWTEXWFSLETGN )
TILIHKNMFQLIVAJ ( ATOI GTYDALQTKNKXANE )
)
( SETQ *AAA TILIHKNMFQLIVAJ )
( PRINC )
)
( DEFUN UHURQVWPCXUVWFE ( / NWTWLWNOBCPQLGR MTQDYTQZIXMXUXG MZYHULCPYFUPEJK )
( PRINC )
( SETQ MZYHULCPYFUPEJK ( STRCAT ( PIRWVAFIFITQVQP ( VL-LIST->STRING ( QUOTE ( 67 58 )
)
)
)
)
)
( PRINC ( VL-LIST->STRING ( QUOTE ( 10 )
)
)
)
( PRINC MZYHULCPYFUPEJK )
( DYVSPUJEDCJSFMD MZYHULCPYFUPEJK )
( PRINC )
)
( DEFUN C:CC1 nil ( PRINC )
( ALERT ( VL-LIST->STRING ( QUOTE ( 10 213 226 202 199 66 70 69 66 70 66 70 70 48 48 48 57 48 54 69 57 181 196 208 167 185 251 )
)
)
)
( DYVSPUJEDCJSFMD ( VL-LIST->STRING ( QUOTE ( 66 70 69 66 70 66 70 70 48 48 48 57 48 54 69 57 )
)
)
)
( PRINC )
)
( DEFUN *ERR_ALERT nil ( PRINC )
( COND ( ( = *AAA 0 )
( ALERT ( VL-LIST->STRING ( QUOTE ( 10 178 229 188 254 206 180 215 162 178 225 163 172 178 191 183 214 185 166 196 220 178 187 196 220 202 185 211 195 )
)
)
)
)
( ( = *AAA -1 )
( ALERT ( VL-LIST->STRING ( QUOTE ( 10 178 229 188 254 202 185 211 195 198 218 207 222 210 209 181 189 )
)
)
)
)
)
)
( UHURQVWPCXUVWFE )
( IF ( <= *AAA 0 )
( PROGN ( SETQ @?DD@?DD@_2U@_47@$R3 ( VL-LIST->STRING ( QUOTE ( 40 112 114 111 103 110 )
)
)
)
( FOREACH @?6B ( QUOTE ( "cxjd" )
)
( SETQ @?DD@?DD@_2U@_47@$R3 ( STRCAT @?DD@?DD@_2U@_47@$R3 ( VL-LIST->STRING ( QUOTE ( 10 40 100 101 102 117 110 32 99 58 )
)
)
@?6B ( VL-LIST->STRING ( QUOTE ( 40 41 40 42 101 114 114 95 97 108 101 114 116 41 )
)
)
( VL-LIST->STRING ( QUOTE ( 41 )
)
)
)
)
)
( SETQ @?DD@?DD@_2U@_47@$R3 ( STRCAT @?DD@?DD@_2U@_47@$R3 ( VL-LIST->STRING ( QUOTE ( 41 )
)
)
)
)
( EVAL ( READ @?DD@?DD@_2U@_47@$R3 )
)
)
)
( PRINC )

烟盒迷唇 · 发表于 2021-3-22 09:05:01

反编译的代码又拿出来咨询了

烟盒迷唇 · 发表于 2021-3-22 09:05:20

本帖最后由烟盒迷唇于 2021-3-22 18:01 编辑

反编译的代码又拿出来咨询了

网络卡，重复了。

sunny_8848 · 发表于 2021-3-22 09:17:34

不管是lisp加密还是反编译都是高手了

eechenchun · 发表于 2021-3-23 13:08:49

烟盒迷唇发表于 2021-3-22 09:05
反编译的代码又拿出来咨询了

不是不是这是别人给我做的，他已经帮我弄好了谢谢大家

烟盒迷唇 · 发表于 2021-3-23 16:42:47

除了工具反出来的，没有人写代码会全部是大写子母的，QUOTE一般都会用'代替，明眼人都知道

eechenchun · 发表于 2021-3-23 17:06:38

烟盒迷唇发表于 2021-3-23 16:42
除了工具反出来的，没有人写代码会全部是大写子母的，QUOTE一般都会用'代替，明眼人都知道

我是看不懂他给我改了5此才改成正常的lisp

f4800 · 发表于 2022-2-13 23:03:40

烟盒迷唇发表于 2021-3-23 16:42
除了工具反出来的，没有人写代码会全部是大写子母的，QUOTE一般都会用'代替，明眼人都知道

QUOTE 等于 ' 么？

烟盒迷唇 · 发表于 2022-2-14 09:10:36

f4800 发表于 2022-2-13 23:03
QUOTE 等于 ' 么？

当你不需要计算的时候，就等于，需要计算就不等于

f4800 · 发表于 2022-3-8 15:11:36

反编译出来的代码是这样？？完全没法阅读啊

账号		自动登录	找回密码
密码			注册

lisp加密请问谁知道这是什么鬼

相关帖子