|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]; l" `! P: n: }2 L+ l
set this_post_dir "[file dirname [info script]]"
+ x! g) A' i5 ]) h0 Fset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
- o) S6 @$ k" } X* \if { ![file exists $encrypted_post_file] } {
2 }: ?; N( O4 E+ l4 U! m" X F set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
t- a0 G) o" Q$ d% {3 O MOM_abort $__msg% s" X' g3 Y0 _4 a
}' M7 |# n, x- f& N/ G6 i
8 R5 e1 ]4 l. j) \8 n% y
########################################################################' l A6 ~" l( G$ n; |, O3 w
set x64 0 ; set path "" ;
* X5 Z6 \0 m6 b. T set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;( ], J1 z( b6 e" w1 C: C
set os_64 ${root_dir}ugtcl.dll; \" s0 o3 f: _7 M) T
if { [file exists $os_64] } {( x; F7 Y( o% D5 F+ v" D
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
" k2 X+ ^& [3 m- H3 l% r9 a if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }6 i8 @8 L# L9 }& l9 Q$ q& z" ~% k
} else { set x64 1 ; }
1 ?& `) ?* h' {6 i4 U* | if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }0 `$ G7 X R+ d" x% K1 b) C% W
if { ![file exists ${cam_post_dir}$encload_dll] } {# k" f9 y1 M9 A
set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
; t2 B+ x8 x, ]: c& ~ MOM_abort $__msg; B/ J0 E; |' z7 A- B
}
4 J$ r! @5 M' H2 f0 e( u$ [2 L9 n" X
& g o$ f: |/ q% K# Z+ `########################################################################- i& z4 C" \0 L6 v
catch {/ U/ \2 n0 f6 o1 W! @
MOM_run_user_function ${cam_post_dir}$encload_dll ufusr9 B- R( m( x' J( X
encload [file nativename $encrypted_post_file]' q% d0 ~0 U1 `( i1 R6 v
}
5 H" e+ a9 z4 v. [ 但是不成功! 还请大佬教一下 |
|