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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
" q8 |1 C5 ^0 N( `) T# J$ X
看不懂的直接绕过
加密前为:hwy123456' ?% j, \, C" p; W* C
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 R- |3 W0 g& L0 ]) g# j) x1 g

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家- K2 ^( z- Z3 y, z( B
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件8 t4 w# H" o8 B, n3 g
& p9 L9 \! `9 |6 {; Y
文件名RSA.ASP
===============================================% @' \" n4 }0 `5 |" A2 }
<% 5 ?# J( u) u: {, A
Class clsRSA
Public PrivateKey
Public PublicKey 5 {! M- J8 ^7 `
Public Modulus ; v0 C3 n$ Q  M/ l0 s
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod , |# z6 ~- _" H- u$ P3 R5 E
Dim lLngResult * q+ B3 f( W+ ?; w9 X' {3 h6 j
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 9 P9 k+ p" {" H% l
For lLngIndex = 1 To pLngKey / 2 : W: e) H: i  N8 K" M; Z9 P
lLngMod = (pLngMessage ^ 2) Mod Modulus   J- Z% Z1 B9 J, y( S9 p, X
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ) r) Q$ h- o3 X/ X1 d9 ^
If Err Then Exit Function * g2 v8 L8 C  F% \% I. F
Next ( x2 b; s1 f% t
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 0 j9 Z) V3 m/ R
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus , e3 A& m( T1 |
If Err Then Exit Function - T4 z& t! e* z6 k& f
Next 6 ^% i$ d7 Z/ q! [! f1 {
End If ( |# d, j: o# ^4 ~- ^6 V: }
Crypt = lLngResult 2 ^) Y: o% A- V: l
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex # u+ E0 G8 p, M
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function * O3 s' W7 f; N+ a' _
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ! k8 Z; u4 s7 J
Next ( [0 J3 Z% O/ H2 O! N6 ~( W8 G  M
End Function ) P3 R9 V% Q9 _, R& o( _6 G+ t
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData * ^' V6 w$ @6 i/ D2 g3 Q5 {
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ! G) @! D& q# g/ ~. _. O# ]
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 A, n, C. x0 R1 D* \9 D: ?
Decode = Decode & Chr(lBytAscii) $ V( p4 i1 J( c$ i# z( L
Next : S5 G3 R# v$ I9 w% K. U
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . }, w6 f% m3 w% J, q% ]2 \
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function $ v) m. F* C7 g9 D  _" _. I# C8 s
Private Function HexToNumber(ByRef pStrHex) " ?! Q1 }6 W+ ~
HexToNumber = CLng("&h" & pStrHex) 8 b0 w" x+ ?6 O+ f( a
End Function 2 G% N( f; S- w( ?7 g4 `$ O
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" $ K. b; o; K6 r7 H+ F5 @
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE . J; C1 N) V' J* v% i0 s
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 5 `, m) i7 h# R  }  q+ l4 Q" S2 K
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 2 y, n3 h2 S1 r2 C( j
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" , L  n0 J1 X* G' x; x, {$ M2 i% f1 d" y
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 Z4 R0 T% Z% [; }- X6 J
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 H) k3 y0 i0 _9 b1 R: |% y/ |
end function
%>
===============================================& k% C) N9 c5 a9 p: `/ t' U1 J
3 v1 V: x/ ~9 Z  n' Y* E( N3 O# u4 W; ]
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 9 k; ^! l- P( |/ T. G: H
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD - U4 C/ d4 K/ B/ J
Dim LngKeyN ' x/ h4 x1 B/ q
Dim StrMessage ) Q  c4 u7 y% u4 ~9 @
Dim ObjRSA ( @2 l" }$ w- S) J
LngKeyE = "32823"
LngKeyD = "20643" ( \9 }0 l5 a' H( k5 Q
LngKeyN = "29893"
StrMessage = Message ) F8 [9 V/ B: E' ~7 z8 B7 i1 E
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE , ^- O* I  V: Y- [8 d0 f
ObjRSA.Modulus = LngKeyN ' n9 E0 t8 X8 U; \% M3 o0 D
Encryptstr = ObjRSA.Encode(StrMessage) ' j; s1 h# a1 }' |6 n: ]
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 3 I5 ?0 Q. f9 L* K3 |& k
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 6 Z8 H. Q# `: w9 ^# h
LngKeyN = "29893"
StrMessage = Message 5 x9 ^- T* L# q+ P# j, O
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 v9 _4 [' J4 ~6 `( Q3 O
ObjRSA.Modulus=LngKeyN 1 s6 I( B! ]  j; A% [
decryptstr=ObjRSA.Decode(StrMessage) * [' f' n) E: ]) r/ I  |
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) 7 y0 L1 n' W4 N) P% b2 ?
Response.Write "加密后为"&last   W. Q" Q, u7 r: U" Q
Response.Write "解密后为" &decryptstr(last)
%> ==============================================! ?! K& V: x2 ^1 `) \7 `2 j# B
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88# P; t8 ]* {1 ?# H3 V/ T; f) w3 {
6_____3F4E" P: u- d8 |" Y
7_____0A9D
8_____1A1C
9_____6D20# ~, _; g) {" o+ O# H# i
0_____10893 T! @( c2 c! d& G/ i0 M
a_____0F3E
b_____3159
c_____3517' T4 [: x. W+ u. }" u5 ~- {; Y
d_____419C
e_____615C
f_____556F4 m  n; @0 m- S
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850. Y" h8 s+ }& S" i$ [, O' l
l_____3E7B( E* c$ K1 ]" Z" G" O
m_____71C5
n_____1FC8
o_____74C13 \( [+ P! f. N* k1 ~
p_____5FB87 W; ]7 D. |' ^2 ^9 M3 j
q_____6085! @) y7 H# j7 h+ t+ M! J
r_____3AC4
s_____2F503 G1 Y. `" q3 I  B
t_____36F88 u9 ?% }$ a8 @) ~) W, s
u_____7010
v_____0B42* w! I' m0 k7 f( D' r& }  H9 @1 d
w_____1C7A2 T& Y' g3 W+ E
x_____16F8
y_____2EE7
z_____5CF3! ?7 {' Z0 V( z$ ^$ _' v6 r( f
!_____6233
@_____3A45
#_____2291. `  n1 W9 \6 p( u0 {
$_____5D5C" }: s2 K. J" M; }& }/ D% x; ^
%_____09B9
^_____43EA4 v! z  p  U. S, h, ]$ Q3 E9 ]
&_____62B9
*_____6301; @" G! ~8 k5 R, T! l) a1 m$ O4 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 分享给朋友]