|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]- ^1 H7 c' D- N8 I) B" p* C
set this_post_dir "[file dirname [info script]]"
. L7 q7 ?& D# vset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"" F2 ?' z1 |& E
if { ![file exists $encrypted_post_file] } {
% Z- K5 {# R% u, e c2 g7 X- d set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."& b8 b' l9 [8 L$ k: a1 i8 ?
MOM_abort $__msg
w* {- ~2 @1 u}
( v5 ?% D) W B% T
2 f7 q, @. M& X2 ~) ]3 X########################################################################
3 @, ?; N: x! @ set x64 0 ; set path "" ;2 m$ H; p/ Y* _0 Z" y; T( m5 K
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;/ w# ~, |' D: V5 O- q, ^2 [
set os_64 ${root_dir}ugtcl.dll
1 _: L( H- q8 a8 v2 E if { [file exists $os_64] } { C; }& [& x( K2 a
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
9 H% p$ f2 P2 p: @" p if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }- ~' `& c& Q" B
} else { set x64 1 ; }
3 Z j( ^' V6 P5 y# C if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
: v$ h0 D6 O0 m if { ![file exists ${cam_post_dir}$encload_dll] } {
6 G4 }1 D4 |* Z% a2 {" f; u7 B set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."; a% y/ j5 Q8 B: `: M# G
MOM_abort $__msg
8 `% s9 J; \# S1 R2 Z }
- E* B( ?8 p; v % i' O5 }% a4 k# T; a
########################################################################
, E8 L) e1 w/ Y# Y, pcatch {
0 t' y8 Q9 i: X7 e/ {* ^" a, p: X, n/ p2 | MOM_run_user_function ${cam_post_dir}$encload_dll ufusr
& |3 i+ X9 c1 E: ], @* k+ v encload [file nativename $encrypted_post_file]0 R8 U3 a$ l8 g
}4 R& m; _7 ?$ g4 a
但是不成功! 还请大佬教一下 |
|