|
|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
4 {% N- j, x$ M$ I E1 S& |set this_post_dir "[file dirname [info script]]"
8 E$ e# _5 h. V, G: xset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
" n7 f! _; V7 {0 |( eif { ![file exists $encrypted_post_file] } {
& }, M! l% g( ^) h/ u set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
6 \( I4 I, ?" w6 p) z MOM_abort $__msg
3 y: s) u0 Y" @2 ?" I+ Y& o}) n6 L M/ r4 B; `2 o* B0 @
8 E7 y5 M" N7 l9 m7 B H
########################################################################
' h9 h3 C6 k% R set x64 0 ; set path "" ;" V. \# p6 y& b! i
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;/ o9 T6 n5 j% |2 A" T, M$ n8 o& }* H
set os_64 ${root_dir}ugtcl.dll
0 c7 S$ n4 R2 d9 o; O( Q! O$ t* X if { [file exists $os_64] } {
) g! y8 F9 R& L- o/ I! p2 m set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
) B& W" P1 L7 B+ ] O if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
Z9 u2 E+ K8 I. O1 B' g& B, U } else { set x64 1 ; }
6 V/ F% _1 S x { Z7 r if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }. n7 [# P( D/ J# M
if { ![file exists ${cam_post_dir}$encload_dll] } {
3 _) Q6 K6 I+ K0 l& p$ y set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."4 N% t3 }) s* _2 N# ~/ Z
MOM_abort $__msg9 j/ L( s. f! u. v: {& C& h
}
* G. Z8 E2 b! g" s $ I- I8 |( v! a. F- E
########################################################################
6 [: \ k( z a+ t6 `, ccatch {' {( E* B1 u- d5 R" b" f6 B
MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
, {5 {" \) V. c M' u7 | encload [file nativename $encrypted_post_file]
" A. j) ]. t. b/ e, @; a$ T$ L} Q7 r+ @2 B; E. `4 z* @6 P
但是不成功! 还请大佬教一下 |
|