|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]( p9 H5 w; ~& u
set this_post_dir "[file dirname [info script]]"( V1 |) F2 L d R
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
5 e& ~$ _7 A8 y! S6 Sif { ![file exists $encrypted_post_file] } {8 k: |& {3 V) m1 |/ R
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."- E2 g8 ^) t3 K0 b, J
MOM_abort $__msg c' G; V: d. ?+ f
}
* m# ^- U) C' M4 {/ F7 T3 e, D- a1 e# ?7 o$ e
########################################################################6 v+ E" Q* }. |* s. ^4 \; A0 w, f' a
set x64 0 ; set path "" ;
6 R/ T2 l9 s5 B/ s k$ O& I2 X: {- D- i set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;5 c) \* {& o6 S7 Q2 m) J
set os_64 ${root_dir}ugtcl.dll: m& T! K& s4 | ~# l6 f
if { [file exists $os_64] } {
# W5 Q, u9 f, d set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
; ^5 _/ H3 ?) K0 W2 l: }2 A if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }4 Y/ L3 b9 x/ R \# ?, w* Y3 e
} else { set x64 1 ; }
8 v3 z6 e) F3 X* d9 I if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
" ~' k' G! P, B$ G# l& s if { ![file exists ${cam_post_dir}$encload_dll] } {5 x& a S5 n' [5 C" v
set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
* h* P: E8 z) l( O" o2 i MOM_abort $__msg: K8 m3 @9 r8 {( f
}
) }7 t7 [/ m+ E' { & q" S% x7 R& {! w4 ^, P# J
########################################################################
6 U p% L% `+ ?8 Jcatch {
( |* S$ d1 d5 t) Z5 X& a MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
' Z( e) x6 `6 j2 L encload [file nativename $encrypted_post_file]) t5 _; w' E/ Y: c# I. F
}: G5 {) u: I( q( C! J5 W4 `# n
但是不成功! 还请大佬教一下 |
|