|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
3 D( u7 D2 E* e8 I/ E8 d- t: qset this_post_dir "[file dirname [info script]]"
n9 P" y$ U& F* v: U& Cset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
$ y; G |. R) H$ q2 J3 C. s: a+ f0 uif { ![file exists $encrypted_post_file] } {0 O- ?+ c' K" v0 P. Z' w
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."% P! X1 g+ @, [# A
MOM_abort $__msg: r f6 d1 t2 Z+ f
}7 _3 s6 U# d, P0 K) C& ^6 O3 ]2 b( Y
0 I8 e9 |4 b& b2 O1 _) O3 m########################################################################( ]. F2 z7 D/ m7 F
set x64 0 ; set path "" ;' c1 F! T& G; p& r- {" q
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;
' _% @8 O$ X: J7 X* J" m3 v set os_64 ${root_dir}ugtcl.dll
2 l5 u. p; O, _3 J" }+ k if { [file exists $os_64] } {
; T5 F4 E2 d8 [: d- A" a' A set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
- E& N+ q/ c) o5 O! I5 [3 [ if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
' c% v/ _! G5 ~8 I } else { set x64 1 ; }7 y* R0 t. p4 n/ v
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
9 E: `! ^2 c! D# ]/ e' ~( { if { ![file exists ${cam_post_dir}$encload_dll] } {
* U4 _; \6 i1 x3 E set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."+ j8 x% R" s" P4 e& @; @
MOM_abort $__msg2 Q/ f9 B R4 v0 U- n
}* F; @: l) {6 Z. _; j
0 ~- x( o2 \" b! y6 M8 p! M% h
########################################################################4 } i3 q9 \3 h7 Y0 m/ Y" h8 l
catch {
; F4 ?/ L; H! q X MOM_run_user_function ${cam_post_dir}$encload_dll ufusr7 M+ g R0 L7 p8 c3 Q1 |
encload [file nativename $encrypted_post_file]
; M7 Q9 W3 C* Y. v- J! p F6 y6 j; N}4 R" l: O( y5 o9 Q* L
但是不成功! 还请大佬教一下 |
|