|
|
我把要加密的代碼替換成生成出來的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
; L3 I# D$ v& i$ |! x+ kset this_post_dir "[file dirname [info script]]"7 s O/ P6 S* h% l8 S2 e
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt" P5 ]/ C; a F1 y: Y
if { ![file exists $encrypted_post_file] } {
: \0 a3 W- y! A2 X set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
/ G: w6 ~$ u1 \/ \2 U MOM_abort $__msg# U5 F& `8 j9 h. j/ k3 o1 U+ a; |
}! d+ `3 J+ O4 T4 x, R
: T( t# r/ X5 D8 l
########################################################################
) Z7 X! i7 Z1 {* L j1 I set x64 0 ; set path "" ;$ P7 Q7 Y H( ^4 w
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;# x X+ Z1 i0 Y4 _
set os_64 ${root_dir}ugtcl.dll
: Y0 M) t! a# l% _2 C3 h6 ^. R if { [file exists $os_64] } {
9 ^6 W* M9 h' {% _ k4 u set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]9 b8 K5 T. ~) w% ~$ A4 X* I
if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }! d" e1 K8 x& ~) _6 I8 ~& `9 D2 r
} else { set x64 1 ; }/ m7 m$ E! x1 M4 \& n7 y
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
" F( i, g% n( E9 R9 {/ C/ b if { ![file exists ${cam_post_dir}$encload_dll] } {
' p% `& w( P0 K, o set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."% N y% X+ L! ?/ ~2 C& M
MOM_abort $__msg" s1 F( P- [/ o
}
$ _1 D- [) I4 c, F8 n
0 Q( a6 q# r7 H) ]########################################################################$ Z: p5 t- m5 e/ j+ s# z, K
catch {2 w! x+ I. X7 ^9 n% g- X- r& Z
MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
' H( X5 Z4 l# y1 [5 N8 C% | encload [file nativename $encrypted_post_file]: F* c, Z) C4 e
}. [9 `/ I2 O6 o# [' s
但是不成功！ 還請大佬教一下 |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2020-10-11 14:52:15
顯身卡