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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm2 J) {5 I) s" g* {

看不懂的直接绕过9 c4 V' u/ `" @  {* Y  Z" t' p
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 K* x* Q& Y" n4 D, ]4 n) J
) b2 L" J0 ?+ L7 E' A7 p
============================================' A/ E8 ]( o# o9 {0 `
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& |8 u* b9 Z% J' i; b( M
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================" r# L. e  Z, F) x3 u( N
<%
Class clsRSA 6 e& e) B6 w' f4 `3 L: N9 e; G5 W$ F
Public PrivateKey ! N$ d* [1 Z: C$ Y. ^3 G
Public PublicKey
Public Modulus 2 r/ |6 \& Z# J. {$ V2 k  _
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 0 X8 }+ o# M3 Q) ^/ ^6 S. `: f1 m1 d
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then * f8 w$ X- ^7 S! P
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 1 M$ b8 q; e6 Z9 a- m( M
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 5 e9 C+ x- C0 v( ]
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 : [. l! X1 ?) u4 h* j, E, z+ ]
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus   v7 }7 A; D* |  j+ [
If Err Then Exit Function ) m  q4 A" s6 e: p. F( Y7 E4 b
Next
End If 7 Z& F3 ^& `& p3 [. u" c1 k: G
Crypt = lLngResult
End Function+ k0 z3 x$ m" o# B- E1 I# o# u

Public Function Encode(ByVal pStrMessage) 8 Q, U* X  q7 h
Dim lLngIndex
Dim lLngMaxIndex * ?. ^6 y# [* w+ d4 w! _
Dim lBytAscii 0 M. [1 m, C. G5 q
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function % X6 q% D# D2 T( n1 @6 g3 e
For lLngIndex = 1 To lLngMaxIndex 4 V8 D9 C$ I9 S) F5 J* a, |# ~8 \
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 0 F( M4 y/ f- t0 ~2 h6 q6 Z: X
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 6 R' f" Z1 I% W
Next ( S! j" A9 j  q% q  {
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii / G! G! K9 S8 M. _0 {' U7 s' z0 G
Dim lLngIndex
Dim lLngMaxIndex , o2 _) R3 I" d$ j9 G/ z; x! _
Dim lLngEncryptedData
Decode = "" 3 B) |- s! `* z# p! c
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # }# V; \) _1 M4 F
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) # T9 P7 b; D' ~+ e% W3 z" s+ Y
Decode = Decode & Chr(lBytAscii) # {+ A' P6 ^4 N3 d( s
Next
End Function - [! r# ^% d( I. ?; b
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 1 `+ D' x! }: S1 n
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 6 l( j5 I& w  `3 j- N
HexToNumber = CLng("&h" & pStrHex) ( }- E8 a0 j1 e: i
End Function   b  K  v4 @+ h5 I- R5 i% z1 w' g
End Class
function Encryptstr(Message) $ p. ]: p: Z2 a; P4 V
Dim LngKeyE 0 R. X- P; X- b% \, T
Dim LngKeyD
Dim LngKeyN 8 a7 U. K4 c$ }& r; R2 N
Dim StrMessage ( l4 Y7 C6 s7 p! o% \
Dim ObjRSA . |0 t/ z! d$ Y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; k, E2 l8 e  ~
Set ObjRSA = New clsRSA 4 J. I! T4 d, ^7 U# m* W
ObjRSA.PublicKey = LngKeyE   [% U+ A6 q( r3 L
ObjRSA.Modulus = LngKeyN ' x; X/ U" d& ~1 X: s( D1 q- O  q
Encryptstr = ObjRSA.Encode(StrMessage) 7 |& F( P" q1 n8 _8 c( {4 d7 a
Set ObjRSA = Nothing
end function9 D7 x2 G3 j+ R( [
Function Decryptstr(Message)
Dim LngKeyE 5 h6 j: F. U7 Q4 }
Dim LngKeyD
Dim LngKeyN 8 X0 W7 f  M) C. Q6 C0 t+ }
Dim StrMessage
Dim ObjRSA : T$ z4 C- A4 i
LngKeyE = "32823" % s$ ]/ R  G0 K4 D5 J6 A; y& o
LngKeyD = "20643"
LngKeyN = "29893" + s3 {, F6 n; {- |
StrMessage = Message 0 U3 Z7 x, O; ]9 ]. `$ Y) {
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 6 l2 z4 |$ Q! e: U
Set ObjRSA = Nothing
end function
%>
===============================================
9 Q3 h9 d  ]6 c6 C$ O, i8 c, G
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下9 R5 P3 _6 y/ M! y
 # \& x' `8 D, G' i- y5 ]1 ~
<%
function Encryptstr(Message)
Dim LngKeyE 0 r% ~2 ]% p/ n( N( R* E, r8 e- S
Dim LngKeyD 9 [' p) w2 j. W. {. r
Dim LngKeyN $ P  o" N0 |- c  I
Dim StrMessage 9 e4 @) ^! N) ]8 u9 f
Dim ObjRSA 5 c  q5 l. d  S4 v
LngKeyE = "32823" 5 i9 K9 x8 Q" i
LngKeyD = "20643"
LngKeyN = "29893" 4 s: A- `* H0 a' T9 s7 x7 A
StrMessage = Message " `! G/ ~! A7 Z' |0 O4 |  R. S
Set ObjRSA = New clsRSA # E) W3 t9 _1 d. z5 n( d8 ]
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) , q; O; j3 c, v; {, K0 }4 a1 Q
Set ObjRSA = Nothing 1 l6 r/ I* O3 h7 x( P
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 2 x2 J( d0 Q# v( n- Q- [3 ^# K7 V
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"   ^$ j: |" u. r" G" A9 b
LngKeyD = "20643" 0 Q2 }; S7 k$ l0 T2 X
LngKeyN = "29893" + {& ^' q" \+ u1 a1 `* J
StrMessage = Message
Set ObjRSA = New clsRSA 8 t9 k6 }5 W& a2 S' l8 i3 D4 m
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ; S# T8 k" n( w# D) q& b
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & g4 n- `9 q, [* d4 q" l9 B3 X
end function
dim last,first : h+ K% \0 W( M  K5 n8 x7 F
first="!@#$%^&*()"
Response.Write "加密前为:"&first $ M- I2 M/ z. E! [& ]+ \, P# h
last=Encryptstr(first) ! [: K* @$ W; W' `; f5 L- i
Response.Write "加密后为"&last ; h' s5 F6 C/ x* _
Response.Write "解密后为" &decryptstr(last)
%> ==============================================' b8 X1 H: A. k# O4 ]) I
剩下的就是字符的对照表了
===================字符集================! |: M. d2 s% n" D0 _
1_____6EBB- i- z' Q$ H: R& S/ `' b( y
2_____5C1F' S: h6 g# K$ B# x% V7 |
3_____4D75$ u  B- u- p2 s9 D5 ?3 j9 `
4_____26CC: ~: |. R+ H  T. f1 _: S
5_____4F88# K5 [7 D# r9 F9 D: s
6_____3F4E
7_____0A9D) D8 N! F3 G3 D
8_____1A1C) S2 B/ M: j" B3 x' R0 i
9_____6D20
0_____1089( a$ j/ @8 N- D- U* Y8 Y
a_____0F3E
b_____3159- C5 l. q+ P# I& d1 V4 j& s9 y! N* Q
c_____3517
d_____419C, b+ O6 {2 k7 U$ K: B) u$ n4 V
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA# v7 d1 W4 p! u( J( ?
j_____5A50, M9 Q# h, r; _1 t7 C' ~8 q4 S
k_____2850
l_____3E7B
m_____71C54 b0 o( _" d1 p
n_____1FC8
o_____74C16 o) R" D; q& K6 R* ]2 O4 k' ?8 g! W
p_____5FB8" s2 [9 S( S$ d- k! T
q_____6085# T, n" ]% N8 O5 x& [) U9 [3 L
r_____3AC4
s_____2F500 b9 [& N& |; w7 H
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____22913 V: C' l& x7 X3 U4 s
$_____5D5C1 S9 u, w' w' l( r( {
%_____09B9
^_____43EA' ]2 z6 m0 Z% j) Y+ P
&_____62B9
*_____6301# e* [6 d! i6 D2 o8 W
(_____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 分享给朋友]