|
|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]$ A1 j. r' d V
set this_post_dir "[file dirname [info script]]"
" i& Z7 v# z" P. l. I& {3 [) Bset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
* P+ G- |6 B% \. ^: G' `& lif { ![file exists $encrypted_post_file] } {, F9 b2 \3 Y8 X3 M% B& W0 v: G
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
& Y u2 ]5 K; v1 w4 | MOM_abort $__msg
6 A5 `5 Q. e6 }3 D/ O" P" H}& i0 m! h3 g2 A. P8 s# i3 |
6 |2 [8 t4 O/ E, B( Y! }
########################################################################5 X9 X. y7 i5 p+ Z/ [) G D
set x64 0 ; set path "" ;4 x g n- ]% ~8 W
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;
, l! E. Q4 P/ h: r3 Z$ y# ^$ T set os_64 ${root_dir}ugtcl.dll
/ K1 x1 ^" ?1 O- t% c( {% L if { [file exists $os_64] } {
) L7 y9 k# W( u9 I! e set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
1 d9 {: l l6 T. F+ G if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
( E. c/ g1 ~! {- K+ r } else { set x64 1 ; }
; R4 D) B" l# \) C& g# ~; u if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }4 m+ u- q' x* ?! K
if { ![file exists ${cam_post_dir}$encload_dll] } {
* |5 h! k o6 _* ]$ w( v9 J# P set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."/ O$ }! E" U& {: p. d5 {4 [- O
MOM_abort $__msg
. c2 ^! }+ A) |" t }
; l' Q) T3 i. U" Y* s7 i
5 h6 C D% i: z1 D6 W5 k7 P########################################################################+ }. O2 T) b# Y1 S7 {9 e
catch {
2 c+ D) F! D* a MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
9 N8 F5 R$ R7 k2 ?1 c3 U; U" S: [ encload [file nativename $encrypted_post_file]- Z! D5 n' V/ n% R1 x1 ]
}
& e, F) [" k% g- G# O0 q. P0 c 但是不成功！ 还请大佬教一下 |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
显身卡
