|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR] T, A$ t# y8 @
set this_post_dir "[file dirname [info script]]"
+ k, l& k! B" |9 k: _+ c' _set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
3 [$ B- L; ?7 A+ B4 ]9 K) r* pif { ![file exists $encrypted_post_file] } {2 t: b! h/ H1 E9 C J
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."/ I S% d2 X/ u, ~6 ?
MOM_abort $__msg1 @* x5 b* b$ T4 D2 D% ~
}
; L/ T* ^- h. P2 I
% _5 x4 f/ t0 r$ ^# L$ ~/ n########################################################################- L( C4 G1 `8 c! c! a
set x64 0 ; set path "" ;2 B+ ]1 H$ @. |6 g7 u) q* z! J
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;( N( m& G' E" `# ^- ^9 O9 C4 [- A8 s
set os_64 ${root_dir}ugtcl.dll
! P' ]1 b3 g* k/ z$ ]! J if { [file exists $os_64] } {
4 A9 ^1 b* O5 b( v set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
- r, w: P/ Y `9 D4 v, o' s if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }
8 f7 v9 _& |8 m: c+ G1 x } else { set x64 1 ; }
8 \4 `% ]% N0 R: U, A if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }; ~' K; M# z9 }8 l' X, F- a% h" S
if { ![file exists ${cam_post_dir}$encload_dll] } {
9 c0 [! \6 i; z% R- i! [" o' P set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
h) a8 ?9 D: P0 H9 j) L& w MOM_abort $__msg, k9 k1 M6 @. ~* J" [
}
& e5 ~' m4 A* ^# t5 k2 B. |
4 O ?( g0 o- P5 A' Z$ p8 L########################################################################
( u* {8 w2 c+ `1 Ocatch {
! x0 Y' t, F" x% n MOM_run_user_function ${cam_post_dir}$encload_dll ufusr# R! J+ I% p: u% @ T& |6 p7 s
encload [file nativename $encrypted_post_file]
+ A" `" U9 g# P( N& U$ p6 j% y}; D$ z9 M2 A6 C0 q
但是不成功! 还请大佬教一下 |
|