|
|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR], e0 \( T2 ^2 |
set this_post_dir "[file dirname [info script]]") Y$ {: i; H5 A8 p
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
: z- L: F$ P* \) n7 q" z% kif { ![file exists $encrypted_post_file] } {
7 s. j. e4 ~3 k1 {' o, y, D6 @ set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
1 `5 s2 D9 s% g6 O MOM_abort $__msg
! K. a' p- c. e1 ^5 e}
3 e- W7 R# I1 h4 i8 j
- _0 u' z/ J9 p/ N W7 K) [########################################################################
/ v5 i5 r* T, e set x64 0 ; set path "" ;
F4 V0 F6 q8 [8 Z- L- i2 F set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ; K% p) Z/ R. A, K$ E
set os_64 ${root_dir}ugtcl.dll
$ e _' @, V' B, u% ~+ d" R" r if { [file exists $os_64] } {3 l4 l0 y: b! V: N/ ^
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
( G% H! V- n* U0 q* A, Z* w, [0 o if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
( S$ w% x2 t8 H# z- o- L } else { set x64 1 ; }
5 k: X7 B5 S1 y0 I1 i if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
0 U. g! L3 c8 U0 s$ z- j6 ]2 F2 } if { ![file exists ${cam_post_dir}$encload_dll] } {
, B! D0 H" T X3 V3 i set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
7 b3 P" t$ ^$ f6 l4 T+ ~, K MOM_abort $__msg
7 I/ A6 j/ ?: ^: E } f% n( ^5 q* Y& d( y
, q5 Q" j$ ~3 h; t& t- ]2 `5 T########################################################################% m% {) A' x7 ^/ Z. c; c8 p" c0 M1 M
catch {
, w, ?4 |) t5 J/ T- b% O MOM_run_user_function ${cam_post_dir}$encload_dll ufusr4 Y7 g7 x T- I/ I, X# a% G9 T6 ^
encload [file nativename $encrypted_post_file]( F' W8 C0 t+ o
}' \1 s# J. E4 ~1 p T7 \
但是不成功! 还请大佬教一下 |
|