|
|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
9 A( B* h2 \) Bset this_post_dir "[file dirname [info script]]"- m5 C& h# i: h W* Y) i* o
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
& y, u9 t9 p' eif { ![file exists $encrypted_post_file] } {; q( v5 Y F! W& b: }) x
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."
8 R4 N2 x/ s1 A. a. V MOM_abort $__msg. k6 Y u' B: n j* x4 i
}, L& W5 t0 j$ i4 N
6 ?+ L) j# D( H. X7 }) h2 d########################################################################8 S, ?. v$ Y0 l$ N
set x64 0 ; set path "" ;3 s% @6 v% c r! H+ ]
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;
4 G# K( t8 J0 `) D9 w- \ set os_64 ${root_dir}ugtcl.dll
, E5 @/ Q$ a* y1 [& T if { [file exists $os_64] } {
, d& \0 @6 l8 O& @ set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
9 P9 _; k; m9 p0 M! S if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
1 U2 T( o$ y8 n4 ~" o } else { set x64 1 ; }. @0 r: H9 s8 X3 }' I. P
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }- C* N ], Q/ H5 W
if { ![file exists ${cam_post_dir}$encload_dll] } {
# V, b. s4 N3 I set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}.": h6 E- I$ S/ C$ y+ l1 b5 }! A- B1 D
MOM_abort $__msg
- O& p1 D/ ]& v/ t8 j6 { f }* c" o$ w5 t$ p8 p6 v
; o: z1 x* h" Z/ b' m! R3 n
########################################################################- {7 X! G/ | }' R/ ^
catch {8 U" H) `1 y2 h) E7 Z2 B
MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
- z; ^& ?% Y* W encload [file nativename $encrypted_post_file]
& a; G! I7 i5 N3 d( X! m}
: ]6 I' n6 G* @2 w3 v: F 但是不成功! 还请大佬教一下 |
|