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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# h  V4 C- p. `
原始出处：http://www.3ast.com.cm4 {! I: @* d/ s6 e/ w; i

看不懂的直接绕过
加密前为:hwy1234563 R1 n& d* f4 N" q
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- Y  F! d2 k, f; A' W$ q5 H) G% M

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
( S/ e* f9 `- m6 K& @# P7 K
文件名RSA.ASP
===============================================/ p- i. {" r* i/ N4 g
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2 {. ]6 p% b9 S( f8 @
Dim lLngMod
Dim lLngResult
Dim lLngIndex 6 l( b, v6 L( m& Y* X& s
If pLngKey Mod 2 = 0 Then : n' N/ R* S* P& a
lLngResult = 1 ; r4 p1 E( B2 h0 U9 f: W: Y7 C
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation $ x$ v3 V. {2 h+ o) w; [
lLngResult = (lLngMod * lLngResult) Mod Modulus " u3 Y" t6 \$ ~
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 0 V& |9 y# E1 l0 \
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 8 k# p4 @" A* r$ R
lLngResult = (lLngMod * lLngResult) Mod Modulus : S5 U) ^  `% Y
If Err Then Exit Function   E: V* W: k1 Y) i! J. f
Next # t# }2 S2 T1 @- {/ Y3 W6 M" p5 I
End If % q, L- \) i0 L" ?% j
Crypt = lLngResult : j7 C, S9 J. a* H; A8 c
End Function
+ P5 [0 O, }8 U
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 8 V0 T; Y* m6 }  L. z% @, u
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 4 T( R1 y; o+ A) s
For lLngIndex = 1 To lLngMaxIndex ; G4 p1 j: K, t% A, D- f% S+ d" ~
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 0 E9 J8 ?! V  j6 Z% N
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 S( Y# F2 c' H; l# p
Next . ]& s* E3 k  p5 s, V8 g& m
End Function 4 B: F' j+ r6 }" s& P
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 1 S+ P& L, p- W: d0 y2 N* ]3 B
Dim lLngMaxIndex $ H0 K( u1 B$ U/ ]: w6 j* c
Dim lLngEncryptedData , h( w5 \8 r* q% {3 k
Decode = "" ' E. T3 W+ L; [; Z) Q  Y
lLngMaxIndex = Len(pStrMessage) , ]5 i6 v5 U) ?& x% d7 v
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 6 [; B" A! x7 d8 i7 |
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 n$ T. C8 R, H3 o8 q
Decode = Decode & Chr(lBytAscii) 6 O1 t; c! t# ?( m
Next 5 u* S$ K- W8 j5 F1 x
End Function ! Y7 Q" |2 Y+ F( x6 I' D
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function $ d  K, m% |) E0 d: \1 d
Private Function HexToNumber(ByRef pStrHex) 0 v8 s5 B2 z0 g9 ]2 g9 j. r
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) + D# K0 {8 ]4 T# w: R
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 1 a8 _1 s1 P# `3 i
LngKeyD = "20643" $ g/ x" n  T' E' m
LngKeyN = "29893"
StrMessage = Message 6 ]8 S9 R) L1 O3 ~: |5 g
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE + U' j7 g+ V2 `5 K0 w
ObjRSA.Modulus = LngKeyN 6 K/ t* M% R# a# A3 u8 p! A
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) ; U8 W1 `  H  x/ a2 Q' @
Dim LngKeyE
Dim LngKeyD 8 S# v, d0 v) H7 s
Dim LngKeyN
Dim StrMessage - z- [. W0 j  A) G
Dim ObjRSA . ]$ D. b; u9 w( ^% b! `# N
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % Q2 ?% y  O. t/ c
ObjRSA.PrivateKey =LngKeyD 7 s& k: o+ K& U. O
ObjRSA.Modulus=LngKeyN ' ^; h, I& n" v5 N
decryptstr=ObjRSA.Decode(StrMessage) % e0 j7 c) ~7 U9 T3 n
Set ObjRSA = Nothing 5 [* K5 i& x2 }2 g3 H* Z; E8 l6 y
end function
%>0 W: i2 I% h. k1 A- O) N. m
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) ' s$ h2 Y: r  _0 `: P- E4 v
Dim LngKeyE
Dim LngKeyD 8 Q. D  E' u/ ^7 s8 m
Dim LngKeyN % H8 h# Q5 ]( k* U
Dim StrMessage ; S1 M' C6 ^' j6 W1 t8 H
Dim ObjRSA 1 |: d4 H9 k) Z
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 4 H4 ^; F, S5 O* b
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ( s2 J/ ], Y2 O! T( j3 F
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 7 r1 c3 b- i$ R% g5 Q
end function 2 \; u1 j7 w9 S% a- y0 X
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 y2 A; q, s% \7 k: Z5 U
Dim StrMessage % B, |2 D0 o# x5 k6 M  l
Dim ObjRSA . u/ ^  z( S/ ~' h; w
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" & }1 K% g2 O9 e2 \3 J
StrMessage = Message
Set ObjRSA = New clsRSA & _5 l2 L9 B. D3 ~4 y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 [, Q6 R: q* p6 Z. L; p
Set ObjRSA = Nothing , ?8 u/ O4 F, m/ ~. y, ?
end function 4 J6 V* U" k8 v8 l7 Q4 [
dim last,first , C) f0 A2 [4 Z3 P, X4 U
first="!@#$%^&*()" 2 S' B# H& ]9 f! S; ~+ C0 m
Response.Write "加密前为:"&first
last=Encryptstr(first) 4 v2 v! Q' B9 h* J% U3 F& W, F) p
Response.Write "加密后为"&last 9 \& \- J$ Q6 l& o" j, d# Z# G* C" L
Response.Write "解密后为" &decryptstr(last) 0 a' M. x7 C) u4 e2 V  L* V9 z
%> ==============================================1 i7 b  |3 O6 R# M8 m
剩下的就是字符的对照表了
===================字符集================0 i+ c) m- z2 ?( \  Q2 y+ j
1_____6EBB: q8 y% a1 |9 o5 i
2_____5C1F0 o- V9 B' d) z4 M0 d$ T
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D) G* q/ w1 k, T  x0 ~* ]5 E6 K, G
8_____1A1C' E2 y' h7 K5 b. t
9_____6D20
0_____1089& O$ E2 j5 I: r9 z0 I6 [
a_____0F3E
b_____3159
c_____3517: j% a: [1 V% Z
d_____419C6 e1 T1 L, P3 m( U/ U* }
e_____615C/ p( Z/ p2 B0 N
f_____556F
g_____2B7F1 [) L4 n2 z2 u3 g4 y: n6 s
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B1 l" }+ i2 k9 z1 G" `" g1 s
m_____71C5
n_____1FC8" l3 `% ]0 K: T# A$ Z8 Y
o_____74C1
p_____5FB8
q_____6085$ ]$ v2 m* m& M% B3 L
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8' q/ I: U/ b( H% o9 X2 s
y_____2EE7( P4 f* W  d. M; |3 k# e
z_____5CF3+ ^) y- m- e7 J2 H; z
!_____6233  M( Z: B& P  R1 z, A
@_____3A45
#_____2291
$_____5D5C3 T. M( J& [( s5 E# {
%_____09B90 X7 C( G2 Q# A, M0 t" C
^_____43EA
&_____62B96 L8 n, L0 E" K8 f
*_____6301
(_____4659
)_____5C82

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

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

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

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

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