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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 _: ]) K  U$ R0 q
原始出处：http://www.3ast.com.cm; Z) O6 p& r+ _0 u1 `0 y

看不懂的直接绕过
加密前为:hwy1234568 q' I' w- r. A
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
7 ^4 Q3 P/ U2 b# c' r
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件5 d$ _6 p" x0 N6 ]( G: K

文件名RSA.ASP
===============================================
<% 1 w( q4 W  ]3 O9 W' q2 e% a& t
Class clsRSA 3 F4 K9 h# B- J( ]) y
Public PrivateKey ( c2 j& c. j# @- Y7 \5 H2 Y3 G4 n
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 0 G$ L, }% g0 M, b; z1 o
On Error Resume Next
Dim lLngMod
Dim lLngResult / G! @7 x7 E3 l; z, f) {8 P
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 5 _( }2 O' K% f: Y; {- ]
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 : ]) f0 K! }$ V( Z* |, L9 \" b& d
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 f8 w/ `8 [& D0 F
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else   U" F" f1 i# ]; B' F3 L
lLngResult = pLngMessage ' v! i7 P5 b4 b- G
For lLngIndex = 1 To pLngKey / 2 1 o4 h$ z- J( G
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 ]. g* G8 ^8 ~) t
On Error Resume Next ( t; `1 t& U) |" @
' Mod may error on key generation ' l/ g3 O! F, r! a6 c. _; G8 I
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ; a0 V  E- h6 R
Next
End If
Crypt = lLngResult 1 V# w- [4 \+ A" M' `
End Function

Public Function Encode(ByVal pStrMessage) ( I& d- h# W% D  G( f
Dim lLngIndex 3 F# @" s2 ~* W5 u+ F% a! u$ W+ h
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted # {+ x1 H  ?8 l  y
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function , H4 S& r* ]$ J/ G2 D
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * l7 S( k' b: o& i' [/ o
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) / N7 S, S& H8 s! ~, k6 `6 n3 d9 Q
Dim lBytAscii   X* y; P  Z7 z9 X; w# Q% O. e
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 1 \+ J, C# f/ H$ j% C
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % i* g& W! M7 K0 S3 z0 C3 J4 m
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 7 N; v- t" W  |& R
Decode = Decode & Chr(lBytAscii) 9 q' d  E) j, e, O
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 ^  C8 F2 r3 V/ Z
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 9 B# }5 [5 p2 M( D+ t- f
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE : d" R5 r, S- H3 X
Dim LngKeyD / \) U" @# @4 e; ]# @7 m  o
Dim LngKeyN
Dim StrMessage ' P  ~8 g& y8 a3 F
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" - y$ P1 k9 v6 D: ]
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / H& @: E  |% z3 O
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function+ I$ h" S8 Y0 y
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD   V1 B) Z. S" Z8 M) z
Dim LngKeyN
Dim StrMessage & O4 F4 T5 K: r  v
Dim ObjRSA
LngKeyE = "32823" 0 _. R5 c# C' q3 O5 P: A
LngKeyD = "20643" / @' X) f9 R$ x  r  g" x; i
LngKeyN = "29893" , n, c( a' Z" R- X+ d2 q! R& E
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>" n8 S2 R& [* @1 j9 P
===============================================
" |- m9 g6 {4 _' `& P, Y1 I
还有一个用于测试这段代码的test.asp% {0 t, J- {! B1 a
有兴趣的自己搭建个IIS测试下/ U. w: C- L( B) ^

<%
function Encryptstr(Message) 5 n! m! P' C! e  c% K' c& z
Dim LngKeyE
Dim LngKeyD 6 i6 B* c3 R7 S2 r1 r( r6 b. l' C
Dim LngKeyN # G5 a: Y4 p! w8 Z9 X$ T! e
Dim StrMessage - y( n( N$ Q: U8 u; s- c
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 4 A) F/ B) b; ]1 M1 A* h" N
ObjRSA.PublicKey = LngKeyE * n9 F; J+ o" i% _2 ?
ObjRSA.Modulus = LngKeyN & W2 T$ }  e. D8 v9 {
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) - c9 D- t( Q, ~( ]0 V& v4 N' Z
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN . O  M% y: U( x6 b9 |
Dim StrMessage # r1 G) i8 Y7 s. E, W$ C3 R
Dim ObjRSA   `) I7 C' s6 a. @7 t( N
LngKeyE = "32823"
LngKeyD = "20643" ' |! J; C3 q( a' u; Y* o, v' A
LngKeyN = "29893" % R- E! n; \4 G$ b3 x, u( R0 X
StrMessage = Message
Set ObjRSA = New clsRSA   P. m5 N/ Q- Z
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 8 |! b. ]2 s0 y
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了* n( Z7 q7 a# d
===================字符集================
1_____6EBB$ j5 i; J& L6 D5 f. @
2_____5C1F+ G- [8 t1 l5 @) |3 N
3_____4D75
4_____26CC
5_____4F88
6_____3F4E1 n) d6 A0 P7 ^, m$ m/ e
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E; {$ I/ L( K6 b
b_____3159
c_____3517
d_____419C; T+ ?2 w& U- |& ~3 _
e_____615C
f_____556F. |3 j; y' K# L$ y
g_____2B7F+ W4 L- A9 e1 \
h_____0F9C6 Y% G5 q% D$ `! r, \
i_____00FA% Y& V7 f% Q" O& I9 b/ C' c
j_____5A50
k_____2850
l_____3E7B5 F0 ~) f3 {& K' V# l6 J4 C
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085  {8 C$ n4 d1 \+ u3 ?- @) _/ R
r_____3AC4
s_____2F50
t_____36F8$ x; D( ^0 e. l6 ]
u_____7010
v_____0B42
w_____1C7A- R/ e& ^# O. D; N1 f' U
x_____16F85 q% p' k! f8 A- T4 n
y_____2EE71 {" o7 {- R. M+ @2 j/ W
z_____5CF3, t2 e/ T; M6 P0 Z/ h
!_____6233
@_____3A45$ B, K; g9 |% \( w, ?6 W
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301; M3 `9 I5 i+ `" n. D. ~
(_____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 分享给朋友]