|
发表于 2020-10-11 16:00:55
|
显示全部楼层
我把要加密的代码替换成生成出来的set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]0 u: f' |% y$ J# I; L1 s
set this_post_dir "[file dirname [info script]]"# o1 v7 F; t4 A+ N$ o' B/ k
set encrypted_post_file "[file rootname [info script]]ab_crypt.txt"
" V0 Y: f- U- M) j4 R$ l0 q) \% xif { ![file exists $encrypted_post_file] } {
$ s8 i& E7 r1 o& w9 }0 S set __msg "ERROR in[info script] :"$encrypted_post_file" is not found."- x( }( T3 U0 ~. q' y
MOM_abort $__msg
5 [9 U' A" ^/ s. C9 b b}
3 l$ C, n" {. v6 J/ ~
2 E7 f" E" n6 u( _+ M1 y3 H########################################################################7 q h- W9 d: v9 c5 X) ~
set x64 0 ; set path "" ;
3 O" w2 {& ?) z set root_dir [MOM_ask_env_var UGII_ROOT_DIR] ;+ E' }# w" K8 g$ r5 g; Z; d, ^& `
set os_64 ${root_dir}ugtcl.dll
* x) E) K5 f$ S4 _% g7 v# Y* Y if { [file exists $os_64] } {* S+ Z4 Y4 }* u) c
set sz [ file size $os_64 ] ; set sz [ expr double($sz) ]
+ ^9 e: G1 a/ E3 K- ~, Z if {$sz>600000.} { set x64 1 ; } else { set x64 0 ; } r3 y/ j" C4 B( ^% l
} else { set x64 1 ; }7 e- D' y7 ]- k P" k* ^
if {$x64} { set encload_dll ${path}encload_x64.dll ; } else { set encload_dll ${path}encload_x32.dll ; }
% m0 e# [- k0 C/ i! b- u1 H/ G if { ![file exists ${cam_post_dir}$encload_dll] } {& |; I- c/ Z8 L6 E' `
set __msg "ERROR in[info script] :Shared library "Encload" is not found in ${cam_post_dir}."
+ I: S! m5 x) E; i& @2 }; @8 f MOM_abort $__msg2 d- Q: y4 r/ n2 }* y" N
}
- A* O9 B- X3 i$ d" M5 O! O
! E( y$ g/ o M! F! J* P# m% ]########################################################################
! g. d0 h0 ^! n) r. q8 Hcatch {
' |/ S$ S$ A; F$ p5 Z \* ^ MOM_run_user_function ${cam_post_dir}$encload_dll ufusr1 z. D) U: b$ K2 r) l/ V" S8 U
encload [file nativename $encrypted_post_file]
D( P3 D# }, u* I! X9 d}# T" q! P+ _8 p
但是不成功! 还请大佬教一下 |
|