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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm! ?+ x- C, n6 P
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456& a+ ?8 t! Z" n0 g
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================( g) q# @) x) j% q' o; c4 j( N
上面是当时自己校内的心情。现在已经解破出来了，分享给大家# H4 Y. K1 o/ A. k) @4 Z3 T
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( g, Z$ ?5 i. K$ A: m
以下是RSA算法文件; U- t! S0 q6 V6 `3 d6 s% y
# _0 a7 E& H  C0 K
文件名RSA.ASP% N9 z; E* P# h% H3 H/ ~% F6 Z. J5 @6 ~
===============================================% Z8 }7 l/ ^$ o* ~' U& ?
<% 1 O% P8 W0 @* S& A' `
Class clsRSA 7 e* p; l7 k& ]  K
Public PrivateKey - C+ P9 o! N. m4 L9 |
Public PublicKey 9 ]: U; `3 D1 L+ f0 K
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 5 U% Y& x/ k2 _
On Error Resume Next 6 b4 m8 G9 b! n9 H+ n
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then # G+ ], ^1 i  t
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus & z" R% S, [( e* |, S
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus % [9 i6 J( N$ M1 ]' m& d0 b  c2 f
If Err Then Exit Function
Next
Else - Q4 j2 ?% B$ D7 ~
lLngResult = pLngMessage 1 g2 ]* ^5 C: @& o) S) h  l
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ) @" b2 d9 i1 p  O2 X& q
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 0 X1 B8 h" G# a4 B$ U' V
End If
Crypt = lLngResult + g9 r5 I. G3 x8 \8 d# W0 L' r
End Function0 o" I" O( v; C% F7 K' |7 U

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) & l: |8 ?9 E% G+ g, }  ^  C
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) - S$ M( h4 ~: H/ c, }
lLngEncrypted = Crypt(lBytAscii, PublicKey) " K# i$ F! I9 ]$ D
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 3 S& h5 N" Z, m* V
Public Function Decode(ByVal pStrMessage) 7 x9 h% X) l% B% C5 {
Dim lBytAscii # i" J( G; I/ z; @1 R# P& `' \
Dim lLngIndex $ F4 {2 N" `9 K
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" ; t% x( y3 O2 e8 A5 P
lLngMaxIndex = Len(pStrMessage) " {' A& t# u- z! S+ u9 _
For lLngIndex = 1 To lLngMaxIndex Step 4 2 a" Q/ m( D3 o: k. h, ^  `/ k
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; |# ]7 j; w" G4 S. p
Decode = Decode & Chr(lBytAscii)
Next
End Function   S- r7 b0 T# t% }7 a
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) / a, W' w# a; l5 B# Q
End Function
Private Function HexToNumber(ByRef pStrHex) 6 P& ~! B, M9 I$ m# v
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN & g1 L+ o/ I1 W# E0 \) ^' Q
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 4 K8 L4 P* M( N: ]$ X, T9 _" f
LngKeyD = "20643" $ s1 S) {: b2 F3 {7 @
LngKeyN = "29893" & z3 |: V# p, g9 j3 |" Y% y
StrMessage = Message
Set ObjRSA = New clsRSA # @  F4 n" C7 B2 N; Z
ObjRSA.PublicKey = LngKeyE ( b5 v" M9 [0 [
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function6 W5 B+ ]/ R1 Q; G8 V! z
Function Decryptstr(Message) ) i4 q; K" V! Q, z. n7 M% \
Dim LngKeyE * v. B: T1 E) Z9 Y' U3 R: M: {
Dim LngKeyD . ~2 A& W+ A/ h4 ~1 g' r
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN + t" g0 s  Y: l' }. v
decryptstr=ObjRSA.Decode(StrMessage) 6 b: m4 m. w( G$ E; ~) F# ^4 t
Set ObjRSA = Nothing + N  m3 P6 M7 z% K7 x+ _+ _3 U# h
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下" H: g: T6 ~  `: w: J% S

<%
function Encryptstr(Message) 9 f% M4 D& i% i* |
Dim LngKeyE 2 A' t1 w1 ?# u9 h' _" z
Dim LngKeyD ! f( U) I3 f' \
Dim LngKeyN ! i6 b0 J9 [4 K4 P0 |, ]* r, g
Dim StrMessage . T. p& j2 ]  G; [6 N
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 5 K6 c3 J* w" ?) j( L$ \" Q$ O% ~
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE % F+ c( D% |/ Z8 n0 q' Z
ObjRSA.Modulus = LngKeyN : \! a' |9 `/ N. J
Encryptstr = ObjRSA.Encode(StrMessage) * Q# _5 z0 C' N- R( P; n7 I
Set ObjRSA = Nothing # m2 W! n$ x+ t& e: r9 t( v* S7 Z
end function
function decryptstr(Message) & G1 _% J* o6 r( M" Y
Dim LngKeyE 3 k9 e1 y* f3 A% }' {! a: ~8 Z
Dim LngKeyD
Dim LngKeyN 1 ]7 d' P5 x6 p$ |+ _9 X6 W
Dim StrMessage : `+ K9 Q9 I: Y1 d* v- h
Dim ObjRSA
LngKeyE = "32823" 1 c& S3 P; m9 o
LngKeyD = "20643" & w* D9 {! d1 ~# }: Z, |& S: G! i  J: q
LngKeyN = "29893" 5 O9 Z) t+ S* e9 [, K5 u/ T
StrMessage = Message ' ^8 A9 X- o* B/ X- J* D9 e
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 6 [/ l" J; ?$ a  V' E' x* v
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function   m; S, B) ]; C8 O4 w5 F
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) & U* R: H& i* ~
Response.Write "加密后为"&last 2 y" I8 r" h: |5 q+ K9 z' A
Response.Write "解密后为" &decryptstr(last) , v6 e$ _$ F/ `! x# |  X  d
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D757 R0 }& {/ k& y* n
4_____26CC) g9 x( R# ?* {% d4 @
5_____4F884 A) D* V7 ]7 P+ m
6_____3F4E
7_____0A9D3 c! h" D) v' r( Z; X1 q% L1 N) r
8_____1A1C
9_____6D20
0_____1089  m/ f5 S/ l5 J5 y- \3 p' I
a_____0F3E% W/ |# H1 d" C6 a; y
b_____3159# A  d, y+ q# J2 w2 T/ h
c_____3517
d_____419C, m+ M9 ~- k+ I9 u. F7 B
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50( C4 z/ U, r8 `: A1 \* Y* Z( `# @
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F506 T! f, l7 V3 a* \
t_____36F8
u_____7010- U2 _% G( b/ u* \* J$ E
v_____0B42" i+ u/ ^% [- v
w_____1C7A5 I9 \) j4 g1 y9 \) t1 u- s9 e5 f
x_____16F8
y_____2EE74 w' ~2 C9 @- r! U9 [
z_____5CF3
!_____6233
@_____3A456 ~7 _+ t6 F8 Q& o8 t0 `5 G
#_____2291
$_____5D5C
%_____09B92 t! ?3 Y, \: J8 m, c; x& L5 }
^_____43EA
&_____62B9
*_____6301
(_____4659/ r+ K$ P: s& C9 `6 R9 w
)_____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 分享给朋友]