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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过7 \: G; \+ z  a+ m( ^! ]! d
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 w! E1 x5 G2 t) e1 }( u/ s- o/ |: M

============================================- n' F3 I- T) O
上面是当时自己校内的心情。现在已经解破出来了，分享给大家) Y2 O- l! y) k" n
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
9 ], a/ h9 A- v$ N
文件名RSA.ASP/ x/ ^2 W4 |- D. q- |7 d
===============================================
<% 1 Z* I6 O& a* z, |" i( k
Class clsRSA
Public PrivateKey
Public PublicKey * G& q3 S8 d: ~4 s% p2 W
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / _# V: m: K/ m) n* L" B
On Error Resume Next , @4 n6 J( c1 Y7 v9 I9 ?* m# n7 Y
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 " ]9 X2 C' V) {5 Q) l
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation $ u& \2 N- X; p, a+ \
lLngResult = (lLngMod * lLngResult) Mod Modulus & n! B  D" Z. x; |
If Err Then Exit Function
Next , X/ {8 H$ k/ R( Q9 F# H" X# R& A; |. [
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next # J% k% ?7 e: H& V
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus - L. x8 A4 h* m& P, _
If Err Then Exit Function
Next
End If 5 z9 T4 |/ P6 _5 Z' u
Crypt = lLngResult + |' R4 y3 ^0 i9 z5 G! w
End Function% c& Y& V& i2 h9 O, d& z) r

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ! a4 S. B1 ^$ D: K  n
Dim lBytAscii " j* Y% Y6 I7 y4 v' ?1 |1 q
Dim lLngEncrypted $ @: h$ q9 P+ Z
lLngMaxIndex = Len(pStrMessage) 4 R% i0 _+ y" e% s8 p; e
If lLngMaxIndex = 0 Then Exit Function 3 \' G# H1 V9 f0 a! [. o& L
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 B/ K# a0 z& e0 P5 J: u
lLngEncrypted = Crypt(lBytAscii, PublicKey) # `( @6 u- g/ Q  L, |0 k/ S- l; @
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ; x. N7 o" ]3 z0 o- [
End Function 5 ?: a) F" |/ j1 i
Public Function Decode(ByVal pStrMessage) & H& |4 E0 S$ n% X
Dim lBytAscii . ?& E/ t% u& J
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData   b! h8 v5 e* K8 w& Z
Decode = "" 7 D) A& k8 ^$ l6 c1 Y
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 6 r" |! F/ Y  M( J) C
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 B6 ?+ ~9 o( r1 {
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ) h3 y9 A; l0 F6 K" F
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 [' T6 W4 c, j, N" m+ P, h, F! R
End Function
Private Function HexToNumber(ByRef pStrHex) 9 n" z+ d3 h4 g2 N: ~% K. j
HexToNumber = CLng("&h" & pStrHex) - S, j! w- m( O
End Function
End Class
function Encryptstr(Message) 6 [- M0 q6 k6 D
Dim LngKeyE
Dim LngKeyD 7 h/ G4 t% B) g+ h& \
Dim LngKeyN
Dim StrMessage 4 N* o: d2 W9 y9 P
Dim ObjRSA
LngKeyE = "32823" " Z! d' X: K2 i* ^* F' s# h$ v
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - V, d' j. i/ I3 U1 l$ D
Set ObjRSA = New clsRSA & s* N! y  y3 p1 E+ z3 B' T! P' _
ObjRSA.PublicKey = LngKeyE ; @& M- d( X7 n  o. Q! p
ObjRSA.Modulus = LngKeyN ( F/ n+ V) h4 ?$ t
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ' p% i1 E9 h! L9 o- }) o
end function3 f* @3 X, ?+ M9 |
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" , w( }( Z* I) i; t6 @8 q
StrMessage = Message . Q! u$ W6 B% A  L1 k+ Z0 T
Set ObjRSA = New clsRSA   c7 j2 M2 u, {  ]& l7 u" R, G
ObjRSA.PrivateKey =LngKeyD # u8 P5 _2 K/ E3 |; u; B5 r7 u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! Y5 ~$ \2 O* p1 H
Set ObjRSA = Nothing
end function
%>0 s# F8 m7 n' @$ g8 T
===============================================

还有一个用于测试这段代码的test.asp( h  F" R- i! {; G
有兴趣的自己搭建个IIS测试下0 O. d2 Q, W( G

<%% _- U* l$ y  J$ K0 a7 r
function Encryptstr(Message) - P5 h' R0 ]! _$ J7 Y8 j
Dim LngKeyE
Dim LngKeyD # l, w0 V- f$ \, [
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ! J; p7 |. ?0 J! e
LngKeyE = "32823" 3 a( N! m9 K2 H, e
LngKeyD = "20643" 9 I" F) l+ g0 _: v( m
LngKeyN = "29893" " u5 K  K1 O3 t/ M' ]4 N0 Z( O
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 b- a- x& z6 Q- t5 I4 v$ H7 r
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 y0 s0 Z. q3 f5 z8 y- i( l0 _
Set ObjRSA = Nothing 3 d7 E7 ?* G+ k9 b7 Y4 V; X% O
end function ; Z. m7 ^& M) Q, \
function decryptstr(Message) - h  g& Q5 V% W' C
Dim LngKeyE 1 E4 ?" N2 h- `5 G! F* O' J
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 }5 F! H, M: A+ L6 M9 Y9 Y
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 m- B3 s4 a$ \
StrMessage = Message
Set ObjRSA = New clsRSA 8 O2 s/ P/ d0 B$ P" |, x
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 p, ^8 d# r/ P4 b0 E  ?' z
Set ObjRSA = Nothing
end function " n" b- J; ]2 E4 J
dim last,first   D/ I, w5 N5 Y0 X3 m3 ?
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 7 j' L: a4 A) ~" p1 s: l! l
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了  G4 ~$ G, @1 K  \1 D$ Q
===================字符集================
1_____6EBB
2_____5C1F
3_____4D750 [9 V" m! h# t1 q  j
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20: l* t. x# Q: D
0_____1089
a_____0F3E0 b+ U8 j3 K$ w* D
b_____3159% `) k2 R  D0 t! b5 }
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F4 e7 H, L( v1 s) f+ i$ O3 U
h_____0F9C
i_____00FA
j_____5A50
k_____28508 o8 i) ^3 C  l. A. a
l_____3E7B
m_____71C5  {9 Z# x' v/ l0 p; o& x# ?3 a7 v
n_____1FC8
o_____74C1
p_____5FB8# @: A/ A; U# P" s* ?& W% A
q_____6085
r_____3AC4
s_____2F50
t_____36F8) q! d7 A! X" ~1 D  U0 n  T
u_____7010
v_____0B42; {4 m7 A: G) K/ }4 p0 m2 e5 ?" B
w_____1C7A2 r: [, u5 j9 p4 B
x_____16F8' u  a3 Y& ^5 ~" @8 y
y_____2EE7
z_____5CF3
!_____6233, z8 ]) q2 Z( {! S" Q: f4 h+ T7 B9 x
@_____3A45$ a+ y. w& b- X* S. o) o
#_____22915 ?2 G9 X, |: w6 m
$_____5D5C) N& v$ B4 Z; g7 h
%_____09B9
^_____43EA* B1 I) V% f2 n/ E# m
&_____62B98 E: y3 m) w* N6 s# @" {
*_____6301# \" H! w: }0 c
(_____4659. F/ L/ q0 r6 j
)_____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 分享给朋友]