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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm4 w5 N$ r/ I$ |; W3 g4 s0 r0 {
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E4 f3 \0 Q0 A3 z6 d0 j$ Z5 S" S

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

文件名RSA.ASP. {( L; h" v( I: |5 i
===============================================
<% 5 I7 s% N7 i2 K9 K
Class clsRSA 8 }' p4 O" p9 i- c' F
Public PrivateKey
Public PublicKey # e. _8 L2 {! W3 N) P4 T
Public Modulus 2 y3 q% v. [  B
Public Function Crypt(pLngMessage, pLngKey) 0 [6 H. L5 K, z$ X% h9 L
On Error Resume Next
Dim lLngMod 9 q. B0 D: t, ?& z- u0 r' P
Dim lLngResult
Dim lLngIndex 4 V0 \% m* ]5 ~+ l, a5 U
If pLngKey Mod 2 = 0 Then 9 Y: e, h# x1 a/ p3 e
lLngResult = 1 9 o/ K* |+ Y- ?- D  n7 m/ S' g
For lLngIndex = 1 To pLngKey / 2 ! j; j9 X& ^& U: k. h( v# U1 h% a
lLngMod = (pLngMessage ^ 2) Mod Modulus % |, I, F. T: K- d3 u
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus . M/ I# y% Q/ Q4 f: k0 I7 [5 `
If Err Then Exit Function
Next
Else   r6 k1 B' Z% F8 j& E/ R% k
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 + ?. \. M0 T$ Q5 a
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next   I5 z1 x7 n; _% d6 G2 O
' Mod may error on key generation $ T( j" c) ^3 A5 E
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 d/ L- E5 H3 K# K. H) u- d
If Err Then Exit Function * T+ K; N. ^6 s( b# b4 e- l! `' o0 E
Next $ Y* f- D3 c5 i9 c
End If
Crypt = lLngResult 9 y4 ?. m* x# y
End Function
8 \* n+ w8 l4 a9 z
Public Function Encode(ByVal pStrMessage) 4 C: l6 L1 B5 b$ k  f# g
Dim lLngIndex 7 z3 `6 H3 M& t7 s) K
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted , T' ^2 n2 I+ X. M" B
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function / U9 V4 a* L" q3 O% _# T+ W' T7 N8 G: T
For lLngIndex = 1 To lLngMaxIndex " Y) D; _* T' O3 {" H+ s- y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ; ~/ h% P. j( _$ q0 z: F
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next " C& `- V5 f% e3 O* f5 B% g; G
End Function 5 N8 U, _6 f; p2 {$ U
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii : v9 E. i% H- t9 j. I. h
Dim lLngIndex
Dim lLngMaxIndex " l6 L  v: B* ^( E% K4 _' L  `0 S
Dim lLngEncryptedData ' H: Z8 h# l% @" l& v. ~9 W7 O1 N
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ' O5 z$ `7 m2 K: ], b1 [. K
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 6 U3 s) b$ N& y, j; [; G
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) $ L( ?+ K4 n3 G/ |
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) - F! C# ]& P* l1 D# Y& K+ r
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) 1 g$ `. ]1 Y! K/ ?: V) D
Dim LngKeyE ! C; ?' @" O. x9 s( E9 [) X
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 8 s5 b' r6 Y. L
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 2 D9 a. i( w( d0 i! L1 x4 n
Set ObjRSA = New clsRSA 7 K, v+ {3 V; F* D; |. Z! h& y
ObjRSA.PublicKey = LngKeyE - w) F$ \1 l% l. e  n* M
ObjRSA.Modulus = LngKeyN 2 c/ E0 Q2 V" M
Encryptstr = ObjRSA.Encode(StrMessage) 8 O2 q5 ]& L9 X) z3 G
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN , G% Q% z) F4 s" J
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 1 ]$ u0 G6 C9 H4 x1 Y8 e
LngKeyN = "29893"   {3 e  P: c1 \" k* Y+ ?* l
StrMessage = Message
Set ObjRSA = New clsRSA " D  D" Z# d# ?. q" Y" I
ObjRSA.PrivateKey =LngKeyD 4 s. S# P6 Z" I( v
ObjRSA.Modulus=LngKeyN ; K7 b. n, C1 F0 k! j/ ?+ a6 E
decryptstr=ObjRSA.Decode(StrMessage) 1 G8 q* |4 k7 k2 r
Set ObjRSA = Nothing
end function
%>5 i& v' ?0 k3 S
===============================================
# q/ T  n1 ^! y( M- h9 w
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 . [' ~/ n: j  g1 ^
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 l$ L8 n5 t2 M4 H2 d; X
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) [! v& I+ b) C( A( l. v" K% y
StrMessage = Message , l$ N" B. r/ D0 v1 c* c8 }
Set ObjRSA = New clsRSA ' s" U0 Y( v+ @# |
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ' q( d3 U4 D1 v
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 5 P. ^3 E; \! S) _( P# K, t- G, i
function decryptstr(Message)
Dim LngKeyE ' e; C; q2 ?' U7 p/ i
Dim LngKeyD
Dim LngKeyN ; [, C! v% l, I4 b- Z
Dim StrMessage ; V- \- D* R, {3 V% Y* e
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" " y% G1 V- V7 J; a( d. ?
LngKeyN = "29893" ' x# h  p' q! G+ a+ c& |
StrMessage = Message ! N4 m/ ~& v* M2 p' z5 Z
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD , Q1 a- s/ p1 T- M- s
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 4 O  N7 _5 \. v1 i7 L0 i) O
end function ' r' A* w0 Q6 U0 @4 ?& E9 y. v
dim last,first 9 H" F4 T5 h& T9 S
first="!@#$%^&*()" 4 u% W8 p) w3 ]# o* t
Response.Write "加密前为:"&first   j2 N% }2 m/ C% x) g
last=Encryptstr(first)
Response.Write "加密后为"&last $ G( A( l7 S3 b: [$ T. U
Response.Write "解密后为" &decryptstr(last) 6 a- G8 u; B2 q( ~4 P
%> ==============================================# V, \) p  T) _6 i) }
剩下的就是字符的对照表了
===================字符集================& s* i7 @6 U% l2 V0 D
1_____6EBB) B7 a. r/ W. e) e
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D203 J0 S. }( e( y* |
0_____10894 c. `' k8 K6 a
a_____0F3E. [, L6 |; E! V: M. R6 x- [
b_____31594 [; N" k$ w* r" A: E6 R
c_____3517
d_____419C7 P) F6 t( `* t/ \$ _1 R
e_____615C$ D4 B4 t0 l/ J! I# [
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5$ J. Z# n0 [9 W0 D. H
n_____1FC84 M0 A. i0 q9 e
o_____74C19 K: ]' D' j, u- E: [& S
p_____5FB8
q_____6085
r_____3AC45 B6 r" C/ j6 i9 y2 o3 [
s_____2F502 L1 E0 a2 y: d. x6 n7 }
t_____36F8
u_____7010% Y/ H* ^, L$ D+ S) v$ w" l
v_____0B420 n. H1 X1 Y; B! Y, X- S$ h4 [/ a
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF36 I0 \3 f. |4 m
!_____6233
@_____3A45$ \) Z: K0 A5 d/ ?
#_____2291( s3 V' \) S& Z* u/ j; ?
$_____5D5C% V5 M" V2 |* m8 K
%_____09B9
^_____43EA
&_____62B9: x4 N  ?; p$ e
*_____63018 K& o: D/ ~0 f: |& f" t) n- ^% q' s, O5 t" n
(_____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 分享给朋友]