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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm3 d* ?5 ]5 g/ n) ]- t
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456; x. ]9 Y% S3 ]- n
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件& T% Y" K4 x% G

文件名RSA.ASP6 g- d7 E9 u( L- O! R1 o
===============================================' f4 Z2 w* P0 R* c7 C6 L
<%
Class clsRSA
Public PrivateKey
Public PublicKey 9 ~$ T1 O& B7 n. i/ ]8 v* {
Public Modulus ! L; o0 l! N; W5 _5 c8 p; q, ^
Public Function Crypt(pLngMessage, pLngKey) % L( Z  s  u  x
On Error Resume Next & s* b% D# H' U
Dim lLngMod ( o' B; D; s! l
Dim lLngResult % E$ F  `! y3 w) f/ i0 q  c+ Y- `2 e
Dim lLngIndex
If pLngKey Mod 2 = 0 Then $ D/ z5 n- Y! K3 V- S- K1 G
lLngResult = 1 4 b) @- ?* j3 Q, D) [7 O" ?' D" @
For lLngIndex = 1 To pLngKey / 2 % Y! W/ r, L2 k+ S2 d" _' @) r
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 w( y: @8 q* O6 n. D7 y4 G& h
If Err Then Exit Function 6 a9 H" T& E4 \5 j( `. m
Next
Else ! {4 {! X# Y* ]# X# c$ u
lLngResult = pLngMessage   d9 w% x; H; f& n& B
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 0 R5 w4 r; V- g
lLngResult = (lLngMod * lLngResult) Mod Modulus * n( S- l& Z( F
If Err Then Exit Function $ a' ~8 ]  V# W$ E* |% m
Next
End If . V( t+ v9 i3 P  j/ u
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) 2 y5 x6 ?" l7 C, V, S. f$ r6 I
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii & S8 H; A  }% I% t# |
Dim lLngEncrypted 3 }& `0 ?9 |: y
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex * W2 D; D( U# e$ S5 M. W
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ( R" z( c; H6 H" x7 U; b( q
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex & @5 v$ v9 p* M/ I1 [! `& \
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 6 w* C/ {7 C; Y" @* J' z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ) Q. X1 s# ?! W2 T  z8 W1 k
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function , s% w( p! h6 \0 J2 X( b
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function 8 h5 Y' F. O0 Z& M0 s# j$ y7 h# u
End Class 7 p% C5 S5 x( e; G1 a) J
function Encryptstr(Message) 2 E& L) c( e( H/ g2 P# [
Dim LngKeyE
Dim LngKeyD % r1 U" G( S6 u) e, l& \. c
Dim LngKeyN
Dim StrMessage ( Y  K% S+ b4 U/ v; E% n1 e/ y
Dim ObjRSA
LngKeyE = "32823" ) m  z: S: [0 q/ L% J
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 |* |! D, O  ?8 S; v% Y$ B% R8 d
Set ObjRSA = New clsRSA 6 k3 ~0 l- V4 u  u7 l+ m9 i% C
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 s; p. Z3 H0 T
Dim LngKeyE 5 b' R9 g0 r2 Z
Dim LngKeyD
Dim LngKeyN $ P. N: a3 L& S  h5 z
Dim StrMessage 7 E; `! h6 f, X2 |. W
Dim ObjRSA   `3 H8 ~* [  ]
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"   ~2 r( q% q( o# ?" c3 k
StrMessage = Message 0 r$ @9 s1 d( k' y/ P
Set ObjRSA = New clsRSA 8 T; O7 L5 M/ S; S5 @+ ^, c; m8 W
ObjRSA.PrivateKey =LngKeyD 0 W& d3 @7 H" U8 n8 q' d, J
ObjRSA.Modulus=LngKeyN 8 M2 `" N5 a8 c6 N0 x
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp- t! c8 h; W5 [6 L
有兴趣的自己搭建个IIS测试下
 - b7 L7 d. z* d9 U! o0 l
<%
function Encryptstr(Message) $ J9 k/ Z3 B2 x7 ^  k; ]# E
Dim LngKeyE
Dim LngKeyD & E3 t6 x6 b; Q5 c
Dim LngKeyN , L& {+ ?/ ?% l5 l
Dim StrMessage / e" s  t, ?  u0 t
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) m+ u8 h: L$ n
LngKeyN = "29893" 4 ?: j# |2 U, a
StrMessage = Message # R8 I/ t1 S/ u5 n2 f. k& {7 Q5 e, G
Set ObjRSA = New clsRSA 1 x: K5 f: g8 X, X2 @
ObjRSA.PublicKey = LngKeyE 7 d- P% \; u* a' E
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) c! C: p9 }4 N, P
Set ObjRSA = Nothing * r7 O  I& T) o) ^/ v1 X; A% m- t& c
end function
function decryptstr(Message)
Dim LngKeyE $ x+ Q- n  b. {7 K; M: [# p: H
Dim LngKeyD
Dim LngKeyN + a; w- x  C# ?- B8 Q
Dim StrMessage
Dim ObjRSA / k' `, c/ t" U$ z) n- s% V
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function , b. B3 g8 U: |
dim last,first 2 B* [) m0 s0 }; I. I  @4 m! Y
first="!@#$%^&*()" - d2 T2 q6 L: @* @: p! X6 p
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last   `3 }2 L+ o8 d% ?' O" `
Response.Write "解密后为" &decryptstr(last) 2 Y' k, [  m1 j2 y/ n
%> ==============================================3 k( J3 y# X3 q" ^0 e/ F1 k7 K( A
剩下的就是字符的对照表了
===================字符集================) W! X2 }. @: ~. n( H0 F  q
1_____6EBB" n" a7 h+ k+ H7 Y
2_____5C1F
3_____4D75
4_____26CC# N7 h: @- \' C
5_____4F88$ J( A7 A& @5 P* B5 E- ~) U
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D200 R7 J+ ~$ X: E5 `& u, n% h* m
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C4 B! l  Y2 C/ f
e_____615C
f_____556F1 r& U" I9 b* [+ z: J  i9 d/ U
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8% a, G7 }$ u8 k- z; T3 R
o_____74C1: k% T- @5 m2 i! q2 r; O6 V/ K2 A
p_____5FB8
q_____60857 [4 Q# M- v- v0 G
r_____3AC4* M0 N) {: B9 J5 G. g  {
s_____2F500 k5 x# F# M3 f% C$ w2 P
t_____36F81 H; ]; A. L, M. O0 p& V
u_____7010% l& h* h! `5 b& \1 E
v_____0B42& e  Q5 f! A# T& w* x2 T
w_____1C7A
x_____16F8- o2 o- C0 w# E$ j2 C/ D$ e
y_____2EE7" d& v$ n2 d# J' F! A0 L6 Z
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C& p! d1 ~% W# i3 X- i2 ~3 ^5 t4 H
%_____09B9
^_____43EA
&_____62B9+ A7 p- {. P3 d# ^
*_____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 分享给朋友]