|
|
我把要加密的代碼替換成生成出來的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]7 T9 f) X! g1 K6 L: B h0 ]
set this_post_dir "[file dirname [info script]]"( w* `! v$ ^. |( T5 L- T. R
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"# s# b# A: P! l t0 \
if { ![file exists $encrypted_post_file] } {
6 Y% z% L7 ]' c8 X. a# E set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
. a8 G# Z1 A2 u/ n5 z MOM_abort $__msg& O C2 F9 k, p9 _% U! h
}
, [, H' t' ?+ ^4 Z% _6 P7 I* H- m; a5 P0 T+ z# B( M4 q( \" L7 ^- i2 ?
########################################################################2 G" C& Q2 M. \; w/ k, ~& V2 R9 E
set x64 0 ; set path "" ;7 u$ Z. a& c7 |8 y$ c3 ~) {
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;
0 F% s; K# `% M& S9 v9 Y set os_64 ${root_dir}ugtcl.dll* g0 J# l$ |5 [6 B! V/ ^
if { [file exists $os_64] } {5 @' I; H" \* c2 H% c8 t. r
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
4 O A' M" b( m6 ^ if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
2 ]! f8 O* Y$ l7 T } else { set x64 1 ; }/ }6 Y6 n% O+ G2 t
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
/ \3 @" l8 O6 l4 j( Z. d$ l if { ![file exists ${cam_post_dir}$encload_dll] } {: T& h% U: `) d, v9 P; c: Z
set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
) c* \* ]; s' M& h R0 b" T MOM_abort $__msg
* [+ C1 V# z4 s' z$ f }
: P4 U5 Z b6 S9 N0 k4 f
: X' @+ d L/ L, S* B6 s########################################################################: G! m; m- `* v1 ]
catch {
$ [, s8 K7 H# x# }9 S MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
/ Y% Z* n/ A. c* l encload [file nativename $encrypted_post_file]3 k6 G$ t" W$ w" N a) ]) p4 G
}
" _2 V3 d! `0 J% l$ D4 A 但是不成功! 還請大佬教一下 |
|