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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 a# V+ E* Z  ?/ W7 K8 \) K
原始出处：http://www.3ast.com.cm
$ }1 R! ^) M$ P8 A: e
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
% g/ t! ?8 S4 h! j# d' b
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法# p# p. s% b5 K" A$ S0 T
以下是RSA算法文件

文件名RSA.ASP- ^7 b9 V# K) z7 L( R* `1 P" l
===============================================7 `" \, B8 n( r
<% / q6 l4 C9 T6 r% R
Class clsRSA
Public PrivateKey * o; x4 m- r* {3 o0 D: D
Public PublicKey 2 u% |$ x3 X5 F0 B5 F% m; E
Public Modulus + C/ s1 N" H5 [9 G5 D9 e! Y
Public Function Crypt(pLngMessage, pLngKey) 4 {8 Y$ `/ M  \+ _( N
On Error Resume Next / U  w5 j+ _7 ?, q4 x$ ?
Dim lLngMod
Dim lLngResult ; Q, p! v7 S& U( ^" N
Dim lLngIndex " R7 w5 w  V7 u
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 6 B, T  q7 w% |( t
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus : o2 N. ]% p% X! B) o
If Err Then Exit Function
Next 7 d7 a5 ~9 {" W: P' G
Else + g# u4 q  ^3 n" |
lLngResult = pLngMessage - ?6 `0 |8 }. l- W
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 \- S( G; T2 m" b  p- v; U
On Error Resume Next ; o4 p- O6 g4 L9 d6 o0 o
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " v  `8 c" k5 q
Next 3 v2 a) D, _4 B$ C& n! ]
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) # y2 o  {4 S1 w0 J" ~. \
Dim lLngIndex 5 T/ q# \. i3 l) ]5 g
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function & z2 N( T0 e0 S6 y, X9 n0 J
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( |( s2 M/ z: k
lLngEncrypted = Crypt(lBytAscii, PublicKey) 2 K2 r1 R! p) D2 i* C7 A* r
Encode = Encode & NumberToHex(lLngEncrypted, 4) % |2 e5 c; X" |& K4 S- A: A
Next 0 Q. Q1 u( A3 y# l6 M8 |
End Function ( Z0 D/ c8 I  z: S4 C1 l# t
Public Function Decode(ByVal pStrMessage) # m6 l( E, {; ~
Dim lBytAscii # Z  i, o$ Q( e6 M; k/ h1 P9 ?
Dim lLngIndex % `1 S% w( x. b5 s# W! h- |) R1 {
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" : B) c! D+ w% w; I, s& q
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ) f0 M% K6 F" p1 A6 z- {7 h
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) l$ ?6 }" E, w9 [9 G
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 j4 f% ?" |: ?: l, b& i; U
Decode = Decode & Chr(lBytAscii)
Next
End Function : \9 j. h; Q9 ^, z2 f  r9 U
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function   g: S3 l$ e. e; e7 @  l7 r% v2 ~* `6 ^
Private Function HexToNumber(ByRef pStrHex) 4 g6 F, K3 I. q* N# x+ W# ^  A
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 O* y: F* S6 l
Dim StrMessage
Dim ObjRSA 0 J; C7 ~* r7 w
LngKeyE = "32823" ( Z" a8 r+ _* I
LngKeyD = "20643"
LngKeyN = "29893" + ?8 f- e/ H- H
StrMessage = Message   X( n( J7 ^& Y, r+ N. h! P" r
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN " m8 G; c& j& q% Y8 I% z" j9 t
Encryptstr = ObjRSA.Encode(StrMessage) ! m+ M" S  l9 s# m$ z1 P. z/ I& B
Set ObjRSA = Nothing
end function! T8 p- F$ W$ F3 u) r
Function Decryptstr(Message)
Dim LngKeyE 9 m  a1 K9 H3 H7 v) P
Dim LngKeyD ( J9 R3 D# b0 M# g. V
Dim LngKeyN
Dim StrMessage   j5 ?+ q& P0 J- j
Dim ObjRSA % N, z3 r2 p# n- L
LngKeyE = "32823"
LngKeyD = "20643" * c! G% A% B" R, _% X- |" M
LngKeyN = "29893" # ]$ Y: s! x6 o% g
StrMessage = Message : W; |; u7 p3 w6 ?2 [7 A
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD / c8 J5 J6 v% H
ObjRSA.Modulus=LngKeyN 2 c* S: ?' T% V8 W7 r
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 3 |% @) p5 M( ]
end function & @! l, X' R) A1 U" q5 {4 R
%>6 ~: a0 }2 v- D* H* b8 w7 W( r* f
===============================================" ^) X8 ?+ H2 U: @
4 d" N' K* k/ D# @9 j; d
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下  L1 M6 T' \) X5 L9 R4 O7 G

<%* `7 o6 m- a! k; G; Q$ O
function Encryptstr(Message)
Dim LngKeyE 3 r. a2 D+ U* a! K- N7 _' [8 F2 Y
Dim LngKeyD 5 f1 ?/ y! C2 O7 Z
Dim LngKeyN
Dim StrMessage
Dim ObjRSA # ~2 C3 k/ i) u
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 9 t& w$ x4 I8 y
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 P4 D" a# Y, s! z- i/ z1 v$ U
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing % A# Z* V4 T& U  z8 n2 n
end function
function decryptstr(Message)
Dim LngKeyE - S5 k) v) z! V
Dim LngKeyD # Z: I0 S$ i( t
Dim LngKeyN 1 n% p# k9 J% e9 D1 [
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 [, s0 q7 U) I' M3 x" r8 W$ T$ U
LngKeyD = "20643" + ~1 @+ Y$ M# _' l3 T; j/ x. S
LngKeyN = "29893" 9 @! f! Z9 q* s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) - W6 j7 C! _* \# i. z7 P$ P
Set ObjRSA = Nothing
end function / P# P$ {! ]0 O
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) " U1 W7 r; z# R+ ^" ~
%> ==============================================
剩下的就是字符的对照表了
===================字符集================$ n  n1 `" l- b& _" _( b
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC5 s0 x1 {! I# Z/ a2 h. W
5_____4F88; `' Q# w0 D6 ~/ X6 ?! r
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E/ F& t5 B! e& F+ x0 X
b_____31595 ^: c4 C  }1 ?& [. _
c_____35171 o$ j8 V8 H% d: Q4 I; c0 \
d_____419C) z# b/ h- D: w
e_____615C* n' Q2 Y8 ?+ N% w( }
f_____556F
g_____2B7F- U! z+ E, K# F. y! B1 Q6 N8 @9 L
h_____0F9C
i_____00FA+ P  q9 k1 }6 M6 K
j_____5A50
k_____2850
l_____3E7B
m_____71C5; o2 `( R3 @! L3 T- K; }8 c- n, @
n_____1FC8* L2 t; Y4 u9 o- Z0 z/ P  R4 [5 ?
o_____74C1
p_____5FB8, k: R  |* s8 `$ p+ `3 k
q_____6085
r_____3AC47 s. m& o( n3 }3 w9 y
s_____2F50
t_____36F85 x3 L: ?8 G# g# S4 c
u_____7010
v_____0B427 |4 r# e: z0 s$ Q& P
w_____1C7A
x_____16F8$ `, X) i" r: b- P; Q, j
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9' Y3 v. [( t3 d2 g; N4 R
^_____43EA
&_____62B91 I/ u$ f4 ]+ Q' ]. x
*_____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 分享给朋友]