[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234565 ]( Z3 U/ ^' n# d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E6 J( J0 X5 \& \" }& i

============================================, E) N, {7 v, h! Y% y$ w
上面是当时自己校内的心情。现在已经解破出来了，分享给大家, Y2 Q# y. g6 y. b+ k: Q7 R& @6 P# V2 M% X
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 F& x1 z6 G" n/ _' ~
以下是RSA算法文件. D: I) |# I8 g& C

文件名RSA.ASP2 d+ U: \% N1 z2 \$ j; v
===============================================+ I, Y( [8 B" H1 p
<% 3 P5 k! @+ {+ S& n
Class clsRSA & p9 r4 {9 f4 ^0 ^5 h5 e$ ]8 {! D  R
Public PrivateKey 0 g( q0 L2 @& S8 K' [
Public PublicKey
Public Modulus ' f, D) g' L6 _* r
Public Function Crypt(pLngMessage, pLngKey) : P$ [3 a! J$ b. _8 ~
On Error Resume Next - d4 e2 C3 x8 K- @* I. |
Dim lLngMod + J+ f! c8 U* Y8 w! s5 ^( q
Dim lLngResult
Dim lLngIndex 6 B" V, ^% G( P, ?& s: w- n) L
If pLngKey Mod 2 = 0 Then " u. X, M4 B& S+ L+ J8 C3 |
lLngResult = 1 3 S8 Y: \* W! g
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 S) |: D' i1 k! |
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function - m" F- x0 c# U0 n5 t2 A
Next 1 Y  ?8 [# t* ~& R& |0 C
Else 0 E# S/ ]. o4 {. J  S$ `4 W: L7 D: l
lLngResult = pLngMessage 5 ?8 W$ N4 j* K9 d, h% A
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 K- |7 F; T* Y( ~
If Err Then Exit Function
Next
End If
Crypt = lLngResult ! T( E9 U' t9 O, [9 V
End Function
  w$ T8 e) I  v& l1 U- F
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 7 N2 \6 D; `1 g6 Y* j
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted $ |/ M+ i7 `( F1 @
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 `8 w2 Q% O. D, f! A
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) # q* |' t- O& h8 k# P" E
Next
End Function & {7 t6 {; E: M0 o4 t# V
Public Function Decode(ByVal pStrMessage) 0 P4 U3 Q5 w( D% `% w4 f1 O2 E
Dim lBytAscii ' N+ \+ I2 S+ s8 T
Dim lLngIndex ! p' f( i( A1 f( S
Dim lLngMaxIndex
Dim lLngEncryptedData , b/ ?6 E) A8 X3 G2 G+ J
Decode = ""   h: o4 k8 l: j& X) l( Z: d: k" U* U
lLngMaxIndex = Len(pStrMessage) ; O8 u: L0 ?! L/ y! t
For lLngIndex = 1 To lLngMaxIndex Step 4 , u7 F3 I) k1 Y/ g* D" x
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , q0 `" M0 ~$ e8 |: @
Decode = Decode & Chr(lBytAscii)
Next
End Function / |& x# u1 B  G6 \2 l& ?" O
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) % F, a1 n' ]- r
End Function + W; X& _( u1 _3 j  k9 S# G3 h7 @( g
End Class 7 v  D) p9 K" ]( V5 {; a
function Encryptstr(Message)
Dim LngKeyE + p- b3 ~! w, @, u
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - K2 u4 U2 I, X% V; M! `
LngKeyD = "20643" 4 O: w2 i  @7 X* Z9 e
LngKeyN = "29893" ; ^5 F) \" f+ x. Y1 L+ D
StrMessage = Message 5 z. E$ O8 x  _' l% k& t% c6 V
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) & T& G- A: K/ _- [0 X# f' B2 ?; k
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 m/ S. _6 U1 _& D( r% h$ p: w
Dim LngKeyE + z; c- B: t: l
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # ~7 B: ~  j& M' d: y, Y
LngKeyD = "20643"
LngKeyN = "29893" $ n4 a# S4 v6 a
StrMessage = Message
Set ObjRSA = New clsRSA " |7 |' [: T; B: U. Y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 2 c$ O3 B! O" m1 ^# U( V% X( N
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================
; f' c* T; L9 E; D; x# P* A# Y
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下% q0 B$ j+ w) j" A/ B
   o: e1 b. Q8 f- \6 ~
<%; ?/ @$ o0 k4 ]+ U- Y
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN + \6 z* d* E8 B- f6 @/ \8 F
Dim StrMessage
Dim ObjRSA ! ]+ i# y6 X1 M3 z2 r- G
LngKeyE = "32823"
LngKeyD = "20643" ) {; s, A: H' N5 }6 n: m) Z4 w# S) W/ [
LngKeyN = "29893" 7 T3 I) i# A& J# M
StrMessage = Message + c3 X' R' W/ s% Z' \% v
Set ObjRSA = New clsRSA * I$ s3 V( S# D: t/ I* D
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN * a2 T! w9 t. {. M6 k, b6 ]
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE 2 G& c( W5 @) I: f- k/ ?
Dim LngKeyD 8 ]+ k8 j7 J* J4 `8 X
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" + u% S" [' y# Y. d4 h
LngKeyD = "20643" ; ^0 k3 G6 Q% p; A+ U. m
LngKeyN = "29893"
StrMessage = Message ) n# x/ s+ ?: K" o
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * a" {6 F" f* B) Q! p3 x
ObjRSA.Modulus=LngKeyN 8 y+ b- W% E! q* S
decryptstr=ObjRSA.Decode(StrMessage) % I3 q; W: a+ U5 F* Z
Set ObjRSA = Nothing
end function
dim last,first 6 ~; U) ], F6 ^: B, z# n7 b
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ( p+ X% t( y1 h
%> ==============================================
剩下的就是字符的对照表了3 j+ S8 T0 @( h6 F  t+ M/ _5 [
===================字符集================
1_____6EBB
2_____5C1F3 u- V* ~5 L  m  _- I* E
3_____4D75
4_____26CC1 h2 b5 ^; [* X: z
5_____4F88
6_____3F4E/ b+ q' ~& K2 |4 t) P- n6 T
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C  m' P' o/ }1 c# Y
f_____556F
g_____2B7F4 k: `4 ]0 W) B' T# T* h
h_____0F9C
i_____00FA) ~$ X/ W+ t# l- H/ T7 y
j_____5A50: z) q  Q, Y! r9 y% u) }/ C
k_____2850
l_____3E7B- J' \+ W, Z% s0 P" _/ k
m_____71C52 b# s" `: p# I# ~: P" g
n_____1FC81 h1 T9 \" d9 x2 c" f: A+ P5 [
o_____74C11 Y# N- ?! p' n* @0 a
p_____5FB8
q_____6085+ I2 g% l. N* l( G
r_____3AC41 D5 N+ u  O) C+ o* c7 S. D, g
s_____2F505 i1 }: r2 Y# L. Y4 l; w
t_____36F80 a+ d3 k5 n0 w: o, u$ @+ g( p
u_____7010
v_____0B42- ~8 \. O  o. B* j# n  W# ^& {
w_____1C7A, `' l! c' E# x( T3 k, X
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA2 c2 A3 T" T  y* l- v  x8 M2 a
&_____62B9
*_____6301$ P& U9 W* m  ?& o9 S+ y
(_____4659
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]