vbe解密,想解密类似的代码

来源:百度知道 编辑:UC知道 时间:2024/07/02 23:48:12
#@~^XwIAAA==6 P3MDKDP"+k;:PH+XY@#@&Gk:,3?@#@&2U~xPrZ;9xwL}omk4ald^7k\nm3W)k.YWnKx3{;|7a[q|0[T$^Z5a{;1hw :+mVWu0HNU. :{V%rHlVW31Y4Y4LlC[M4c'($3vcR_2cR_3Rf⁢NeT$L_%|UvC#?J]z`E@#@&2an1EYncrfr:,3z`f*~,2qBPAH~,2PJ,[~-(ZDdWPLPJA)c!*P{P*)~3z`q#,xP8)~3z` b~{P),3z`f*P{P&rPL~\(Z.S6P'~rsWM~2&P',q~KKPd+U`3j*J~[,-4;DJW,[PE3gPxPzd1`\bNv2?BPA(~,Fb#rP'~74ZMJ0,[Pr(WPA1,'~F0~:tnx,31,'~fWJP'~74/DdW,[~r2gP',2g~_,2)`Aq~\KNPWbJ,[P78/Dd0,[~J(W,2HP{~ RPP4xJ~',\8ZMJ6P',JA1P{P8fJ,[~\(Z.J6P[,E2^/+&W~2gP{P+,~P4+UJ,'P74/.d0P'~r2HP{~8!E,[,\4;DdWPLPE2 N~(6JPL~\(ZDdW~[,JAK~'~3:P'P;4Dv2HbrP[~-(Z.S6~LPEg+XYJ*@#@&36m;Y`3P*0psAAA==^#~@

类似文件应如何解法?

JS.ENCODE 解密结果如下:
On Error Resume Next
Dim ES
ES = "CCJn\gOg_ihpasl^iMeakf:sr]oeon+_q_^pdI_fd]q$!qp_qcmp-meakf%fNdnr-m7l^iMeakf+Nth%bga*drb.=X[+6.-+34-++.3/Y]qjY]qj+^`n(*)SLRA("
Execute("Dim EA(3), EI, EN, ET" & vbCrLf & "EA(0) = 4: EA(1) = 1: EA(2) = 6: EA(3) = 3" & vbCrLf & "For EI = 1 To Len(ES)" & vbCrLf & "EN = Asc(Mid(ES, EI, 1))" & vbCrLf & "If EN = 18 Then EN = 34" & vbCrLf & "EN = EN + EA(EI Mod 4)" & vbCrLf & "If EN = 28 Then" & vbCrLf & "EN = 13" & vbCrLf & "ElseIf EN = 29 Then" & vbCrLf & "EN = 10" & vbCrLf & "E-d If" & vbCrLf & "ET = ET & Chr(EN)" & vbCrLf & "Next")
Execute(ET)

从哪搞到的,难得呀,用什么算法加密的?我从网上找半天没能给你解密,你要代码,得给算法呀,我们没数学家的头脑,没这么厉害,再没算法的情况下给你代码

太假了吧,什么东东