|
|
我把要加密的代碼替換成生成出來的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]# D# m7 L/ M5 l( u: m4 r" T) ?; [6 L
set this_post_dir "[file dirname [info script]]"/ o1 o( z5 u# `2 B7 \7 L
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"7 l1 Y3 Q7 z9 N
if { ![file exists $encrypted_post_file] } {6 q4 L2 X4 k, {/ I& ~5 F
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
/ L5 S6 t5 T$ y8 P* }- n2 w" x MOM_abort $__msg
- g; y1 P* e* v0 o* U+ Q* U}
0 ?* p- I! C [0 v6 |
# V( f0 H$ G7 m+ ~ P########################################################################% @2 p! U% v P( s$ J: |1 ?4 q: l
set x64 0 ; set path "" ;
5 [0 v2 T% |! j; a$ K set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;8 J$ U- G" e& r7 g4 Q# y: t. W
set os_64 ${root_dir}ugtcl.dll* b- A/ p. A; s0 |
if { [file exists $os_64] } {% K3 u4 z5 [& Y7 D
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]" g: _* p+ Z7 D9 @, r
if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }) I( M' O, N6 J& Z( s, p
} else { set x64 1 ; }7 X3 f% J( _, P: ~4 c4 M
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }8 |; B. B9 l! m3 u, c! }' [: s( n
if { ![file exists ${cam_post_dir}$encload_dll] } {
$ }& q6 k2 I3 J, F set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
: ?, ~$ w& z: x" s MOM_abort $__msg
, ?1 I4 N, l0 Q6 L* K8 ?; n! ] }/ ]4 a8 {4 ?/ A- N% X( S
' Y; o- t& A% c ], t0 Q' e9 s- F########################################################################
+ A- V# }- x( H$ Z5 V: ecatch {
5 g1 f, H0 y/ n# o MOM_run_user_function ${cam_post_dir}$encload_dll ufusr2 |# W. v0 i- v- N3 z6 ^$ o+ V
encload [file nativename $encrypted_post_file]
8 ~. P1 u7 `5 n6 u}0 e R* n8 B& A0 r7 e
但是不成功! 還請大佬教一下 |
|