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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
+ h. K  F' I/ R& u7 J4 d: M5 v
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E/ c# e' o- S& V, y

============================================( t+ m* c2 h$ Z, k
上面是当时自己校内的心情。现在已经解破出来了，分享给大家* B' A/ C& E; _" s
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 l, I2 v* A: W6 w: r& f- V
以下是RSA算法文件
! P  B- x& }/ j- |
文件名RSA.ASP/ t3 c) T. N8 R5 |0 t; @* g
===============================================$ d6 c! P9 M; p* f' n* R' S
<% 8 H( J' m4 |, `+ b  H/ l
Class clsRSA * e( i$ \- t: i; E
Public PrivateKey   w0 |& F6 A0 O
Public PublicKey . w+ Q  [6 s: \" j! K- I$ J
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next . s% q0 T; h5 `( H) K" |- {
Dim lLngMod + p3 x* c+ N$ w4 s
Dim lLngResult ! K' v, }' z/ j: M" C
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ; E, b+ J1 n6 Y0 v
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 4 y) n  [/ ?( X/ _
' Mod may error on key generation " I8 Q( Y$ K5 D. g! g) j
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 b% M7 A9 h  G
If Err Then Exit Function & q8 p8 \8 d- c- U0 b) ]" X
Next
Else
lLngResult = pLngMessage " e$ \, T/ t' g% N/ K
For lLngIndex = 1 To pLngKey / 2 3 J9 T5 P0 O+ S; G: s' p  c0 ~
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation / x1 b) c; [8 Z) `
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult + p2 h. ~! v7 M: O% b
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex + X0 c$ \; X3 \6 Y3 E, _
Dim lLngMaxIndex
Dim lBytAscii 0 M7 R" X4 w- p  }8 B9 x+ s7 f
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 A! V- L; V5 e$ i& ^3 J3 v
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) * [8 K6 u/ X: X
Next 3 k, s9 b$ O" G- O" R5 m/ _
End Function   v, Z) L7 V0 m6 |, Z% N  E! a
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 6 |, n9 N+ _# q2 j4 G2 I- o8 F
Dim lLngMaxIndex , F8 R) f" A- y& p! o+ Y' t
Dim lLngEncryptedData   ^: |7 N# K6 r5 l* M
Decode = "" 5 J: i6 X3 R+ Q2 e. \: Z, I: N8 f
lLngMaxIndex = Len(pStrMessage) 8 m0 p' G, d% u% j
For lLngIndex = 1 To lLngMaxIndex Step 4 # H, E3 k. L! f, @9 ~8 U9 U
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next ; p' j0 |, h# R& L1 L7 o% P: @
End Function 0 ^+ \* y6 \, c& A' q+ M, k9 ?
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 8 M4 {) C- S3 g4 K8 u, g. Q8 N
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)   ?* R2 U3 {; A+ W) @$ N
HexToNumber = CLng("&h" & pStrHex) " r+ r% R  s; z7 Y5 T
End Function
End Class ! {. I" ]2 Q4 E. v; T3 ?
function Encryptstr(Message) 4 j2 y# N1 Q% y9 T: P
Dim LngKeyE 8 m4 j5 E8 P; @2 {, s
Dim LngKeyD ! O& M7 y; g/ G7 \6 N
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 0 T0 c9 O4 z/ ?* W: ?
LngKeyE = "32823"
LngKeyD = "20643" ; G7 x% N, g+ ]9 `: U
LngKeyN = "29893" ; D* X" b3 R9 \! [- z/ b- n
StrMessage = Message
Set ObjRSA = New clsRSA ' O/ |8 z$ b' q5 h# h' u
ObjRSA.PublicKey = LngKeyE " y! Q# J" S8 K3 h% O+ {1 ^
ObjRSA.Modulus = LngKeyN # f% \& j/ s, e( `' B9 i
Encryptstr = ObjRSA.Encode(StrMessage) 9 C+ ^' k$ l0 Y* X% L' n" f
Set ObjRSA = Nothing & F! h2 i* j$ [+ U8 ]4 Q
end function$ ]. j0 V# T9 [) {& s$ t
Function Decryptstr(Message) 2 |7 L$ g3 C, a' S8 q! m
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 6 Y/ E. n1 v% o9 L  E
Dim ObjRSA
LngKeyE = "32823" ! K/ R. A% j0 q! X$ F% Y0 N4 ^' b
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message . x5 [$ p4 X) b& x% y, ^, {
Set ObjRSA = New clsRSA 5 E% t3 Q# K1 L, N* U% L8 m# J5 E
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 9 J5 B/ O* L! w# X' L2 I
decryptstr=ObjRSA.Decode(StrMessage) # k' s" A' }. d' j$ p8 c+ L- M
Set ObjRSA = Nothing
end function
%>
===============================================* i/ ?! O3 j# S% I  x4 E( {3 d4 k
3 G; e$ B$ J1 H' c) F9 a
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下- {! Y& i- f! g$ i; Y0 T; {

<%
function Encryptstr(Message) $ [0 Y: _& W1 [  E, m% \: e
Dim LngKeyE
Dim LngKeyD % W; K& p3 ^4 }5 G  [5 n( p
Dim LngKeyN
Dim StrMessage , z& r4 V3 B( m) \& a" b
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : _2 j! J9 h1 h1 i
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ' E% T, G5 z1 ]
Encryptstr = ObjRSA.Encode(StrMessage) . O/ z% @4 \! ~; i; p
Set ObjRSA = Nothing 6 B$ L9 `- Z! l2 Z' M# k% W; x
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( N/ t( ]7 j7 @5 q2 D% P) |  Q: C# a
Dim ObjRSA
LngKeyE = "32823" . c7 M$ M7 P6 f5 F  E
LngKeyD = "20643" / @7 K6 s& J3 i% s; ]
LngKeyN = "29893" 9 j6 u( l  D4 V6 Q1 D% `3 ]; Q8 T" A
StrMessage = Message & S$ w& |! @$ E! I
Set ObjRSA = New clsRSA : G8 S8 r, f5 m0 ^/ H
ObjRSA.PrivateKey =LngKeyD / Y" l+ z5 ~1 y% M/ [
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) * T' p. Q2 t( H; r5 N" D$ n
Set ObjRSA = Nothing
end function 0 y4 g& E& ?5 n! E$ F' Y4 A
dim last,first . i/ @% T* Z0 e' C, c6 W# [
first="!@#$%^&*()"
Response.Write "加密前为:"&first + H  m$ ]5 H& P! i* B
last=Encryptstr(first)
Response.Write "加密后为"&last / I$ g$ l& y: z5 l" ?$ c: i
Response.Write "解密后为" &decryptstr(last) 3 ]& f, X5 U3 _
%> ==============================================) O# x& w* ~; t9 x6 W2 E+ I
剩下的就是字符的对照表了3 s: U- s) v  E" p# V' V7 c
===================字符集================
1_____6EBB
2_____5C1F, X2 P5 \) O6 V6 B& i1 c5 N3 S8 N
3_____4D758 W* k5 x2 H+ i& @$ M% ?
4_____26CC7 ~, p3 V6 P) T# o: q
5_____4F88. V/ |: [3 t4 d  o4 E
6_____3F4E* y; s, q7 ?- ]* J
7_____0A9D2 }0 u; [4 o( p0 G
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159$ U1 B# w% a* S4 h/ Z6 ~
c_____35173 C' W3 f* u+ N# J
d_____419C' O9 p/ J9 B0 E: K* n/ R% [6 f1 W- H
e_____615C
f_____556F
g_____2B7F. T/ m! M& u1 Q+ E& y4 C
h_____0F9C" r6 I( k/ N6 h
i_____00FA
j_____5A50
k_____2850
l_____3E7B) r/ H# Z2 h' ]( u
m_____71C5  N& l" E- C: Z. b
n_____1FC8
o_____74C19 v; t- ?6 Z7 ^# ]/ [' G
p_____5FB8
q_____6085$ {$ @2 ~! @( m5 n0 I7 a
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A3 G- F% T" l  O' s
x_____16F8
y_____2EE7
z_____5CF3; F7 i9 N$ Z1 z  q  F/ w+ F
!_____62335 K; ]& f2 N& J; T; E/ z
@_____3A45
#_____2291) m2 c- ?8 }/ d5 N
$_____5D5C
%_____09B96 c# s" Z9 Z0 r
^_____43EA
&_____62B9
*_____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 分享给朋友]