|
|
我把要加密的代碼替換成生成出來的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]+ g! t: q; m% x+ u/ i4 v" V/ L g
set this_post_dir "[file dirname [info script]]"
: d" }! v8 j" v! V; K) Bset encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
8 _1 g) l N8 W3 V8 Yif { ![file exists $encrypted_post_file] } {. c$ O x) F" w, G+ C M
set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."; B( Y# i5 k ~% K+ v
MOM_abort $__msg4 ?; v1 j* h# T+ g7 v7 l
}9 l/ R5 `( ~; W- u- ?$ A6 f+ j' k
0 q9 N( h, o: ~1 S
########################################################################
7 o% T& \& Z% F& u, y' a set x64 0 ; set path "" ;( m P& Y M4 O" m
set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;. x1 y! U1 n" G4 @
set os_64 ${root_dir}ugtcl.dll4 F+ t8 Z) s0 U; P2 ]! ^4 y
if { [file exists $os_64] } {5 n9 f7 d! ^$ s8 H3 `
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]" i9 B h1 e% F8 g5 V3 ~- u/ m
if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; }! T s9 j( Y( j2 r3 Q
} else { set x64 1 ; }$ l! n9 y5 B+ }. e- {
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
; P; K! a& I9 y- N0 l6 B6 p9 z5 ] if { ![file exists ${cam_post_dir}$encload_dll] } {
! J$ I- c8 G6 @ set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."9 C# x8 ], h$ f+ i$ w/ N
MOM_abort $__msg
2 I+ p T) g3 b/ G+ ?5 x }( \4 E' d7 V# o
: v" O3 O& s; }7 g* a. n$ k3 Q8 S
########################################################################
7 C/ G) u" G4 _9 t# f* xcatch {
* C) h% N9 {! z4 U MOM_run_user_function ${cam_post_dir}$encload_dll ufusr1 ~4 B5 L/ A0 I& O
encload [file nativename $encrypted_post_file]
o+ q! C7 q% J3 w8 m}
: q4 O5 K c# y; g6 P Q 但是不成功! 還請大佬教一下 |
|