|
|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]. C& y6 a0 K, j7 a4 I
set this_post_dir "[file dirname [info script]]": r5 e5 C+ G$ {0 [- l" o( @+ g
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"' J: A }2 R7 p5 m' k q
if { ![file exists $encrypted_post_file] } {' f ^7 q' o9 o3 o1 S& P
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
- f0 M/ Q0 S# H0 m1 M, w+ S MOM_abort $__msg
) V# q5 B' K- x}
; H W) P6 w$ S
0 @; } k# Z+ T/ s########################################################################
/ a5 \ U- H2 B; Z! M9 E. Z set x64 0 ; set path "" ; i6 f2 ?7 J* z/ _
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;
) V0 h9 o3 x. G; c set os_64 ${root_dir}ugtcl.dll, i% l. A5 o! X) X, v% X
if { [file exists $os_64] } {
9 F% G% t8 u1 E) O" Z$ N set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
. Y1 I) F% y' @$ p6 \& J h4 S$ ] if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
/ m: @/ M9 G4 Z+ {7 Q8 [ ^ } else { set x64 1 ; }, ?$ n( a/ q/ g* }. S3 P
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
2 f8 }+ s: u8 p if { ![file exists ${cam_post_dir}$encload_dll] } {8 D' s) k9 b, P4 S: d; x
set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
5 x- }% @% n+ m2 _1 @; ? MOM_abort $__msg) K2 U j9 T% s: ]7 l# x: j
}1 _' {" P/ t8 q- q6 n/ ^
3 @7 d8 G. Y, O5 |" _9 g
########################################################################+ I7 p% \) o: I: U' ?2 f7 I
catch {( z7 K e0 }5 d: l. e
MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
/ J* k/ {6 W* M5 Q0 E encload [file nativename $encrypted_post_file]+ n% w! z2 A( Q, k# F* @
}6 f5 n2 O3 z: i& o' f1 j/ l; K
但是不成功！ 还请大佬教一下 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
显身卡
