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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 N4 G, x9 w. F7 P; ~/ h
原始出处：http://www.3ast.com.cm
  j1 v  B- A0 w9 H' q
看不懂的直接绕过# O' \8 K4 m  @, [
加密前为:hwy1234563 M& W$ n9 z6 o" V
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ t( L6 m% u" {8 \! k9 j" y

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件0 ]% @7 b0 n, d  T+ O6 Y
: N: a) K) U# f  d
文件名RSA.ASP
===============================================, A( p/ f3 j, m+ Q/ z6 I1 M$ A& j
<% . e/ F# U2 h* Z: {4 y
Class clsRSA
Public PrivateKey
Public PublicKey 2 o/ v- \' T9 |  t- v0 g
Public Modulus 4 z1 g: I% Z; r0 V; u+ w: y5 T
Public Function Crypt(pLngMessage, pLngKey) " f! v: \/ l0 I# h6 T3 W
On Error Resume Next " l5 G, d" m# O
Dim lLngMod % q2 O5 L  ^; U- S+ H* M
Dim lLngResult 6 ~8 Q+ `2 |+ }" G; I2 m4 G3 C
Dim lLngIndex
If pLngKey Mod 2 = 0 Then - Z# `0 }6 h* u9 v
lLngResult = 1 1 O/ O" F# _1 W& O0 O
For lLngIndex = 1 To pLngKey / 2 2 K* J7 [* b$ ]% {7 F% ^
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 B3 @( f+ M( Q! R) P
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next # i: g0 y5 K) m5 }) {
Else # q3 b1 N0 G+ }' w1 M
lLngResult = pLngMessage 1 V% s/ j! a  V6 g% [, \
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus . `2 N/ d) w2 B0 v, V7 \* t
On Error Resume Next 7 A4 y! i, U( Y% B! B
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
5 r; p; ^3 c3 M* P7 b" d
Public Function Encode(ByVal pStrMessage) 0 M6 E: M. G. L$ c: G: n
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii * N9 ^. m; s& h! o8 j& [
Dim lLngEncrypted + C( {- I8 H0 w1 Q; ]+ {
lLngMaxIndex = Len(pStrMessage) ! q5 F, }8 x/ v4 q7 v
If lLngMaxIndex = 0 Then Exit Function 0 R6 |! C& U+ n# Z
For lLngIndex = 1 To lLngMaxIndex 8 M/ O* D* d4 ~
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) + F  {; }$ n% d& N3 H+ i1 v
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next . z$ d# {2 P5 G
End Function
Public Function Decode(ByVal pStrMessage) 2 e/ A9 d. H# T8 Z. e( |
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 6 ^' q0 g, e) o! {( ?. I
Dim lLngEncryptedData 9 j/ I- N0 ~6 z* c. Q( C4 P
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 6 \% ~- g3 f8 {6 Q( W9 k3 X! b0 x3 P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) ^) ]) \( k: z) c+ H6 U
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
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) , u8 j( P6 s+ d3 Y6 E; b$ t
HexToNumber = CLng("&h" & pStrHex) 5 n) H. Y% j8 C0 ^
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD $ H/ C6 q* a4 T" F% d$ E8 K: N
Dim LngKeyN 0 J2 K% \9 }. c
Dim StrMessage
Dim ObjRSA 2 a, V( ?, a, F
LngKeyE = "32823"
LngKeyD = "20643" + t) T. x3 J. b/ Z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % B  \  c8 D5 Y7 r/ o: n4 A
ObjRSA.PublicKey = LngKeyE - f: _% v( Y+ ?/ p$ T* z1 y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) . T9 K& g* E; G3 i* ?# R' N
Dim LngKeyE
Dim LngKeyD 4 v5 N. d) H2 k* {; d
Dim LngKeyN
Dim StrMessage 2 U# O7 m; o* E# ]9 J
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) ^" A) B$ O( b9 G$ L
LngKeyN = "29893"
StrMessage = Message % g7 R+ l7 `  y, m
Set ObjRSA = New clsRSA ( I% s+ }. b3 i$ O% T4 P
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 6 V/ a# A+ c. H: U7 Y
decryptstr=ObjRSA.Decode(StrMessage) . Y9 x$ ~- M& V# W8 F. |+ J
Set ObjRSA = Nothing
end function
%>
===============================================6 \. n4 i# k; [! d

还有一个用于测试这段代码的test.asp0 W& i2 A) b3 d% k3 ]. `1 P% b4 Z! J
有兴趣的自己搭建个IIS测试下( a# L+ ~/ H0 v- f1 X$ M: L

<%
function Encryptstr(Message) ! V1 ]3 f( A9 n/ d
Dim LngKeyE
Dim LngKeyD ! r, y6 q% H& V7 Z3 C3 z: I. H0 i
Dim LngKeyN $ [$ _0 r1 ]; k$ I3 m/ I
Dim StrMessage " T8 a6 h! ^; ?, S# ~; `
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) d& X# _8 Z% Y
LngKeyN = "29893" : _/ f1 S, Y- b9 k6 q+ d
StrMessage = Message
Set ObjRSA = New clsRSA ) J& B7 k# d7 D2 l" q  y5 H$ y1 Z
ObjRSA.PublicKey = LngKeyE # C! u# o8 D0 |2 q, b% O. J
ObjRSA.Modulus = LngKeyN 2 [. V& h4 n0 Y( I
Encryptstr = ObjRSA.Encode(StrMessage) ; G. C: M  m) u4 @1 p8 W( I
Set ObjRSA = Nothing
end function 0 S. z4 _" E4 s
function decryptstr(Message) 7 s5 t; _$ G8 u& \" l; e' F" Y1 i
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( _& T: b! H. N& d/ u
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 7 C& @7 w/ w% j' u/ X" d
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 0 i1 G6 D5 A2 V+ n! ~; o
ObjRSA.Modulus=LngKeyN : b/ p( X4 a3 D/ m" h+ A
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first ; L( h7 p, ^- s% R0 \! E
first="!@#$%^&*()" $ L- a5 p( X( g) C; I: ]* R; {9 `
Response.Write "加密前为:"&first " e! l' Q$ X8 }8 M0 t
last=Encryptstr(first)   I0 s0 Q  F/ G2 ]
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 2 `$ V. P9 T* Q# a" n' b8 ?% h/ X
%> ==============================================
剩下的就是字符的对照表了# [/ Y2 d2 v; Z! e0 [8 {9 o
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C9 V, T- M- n& y# l
9_____6D20& N, C+ ?: C# n8 S
0_____1089* c9 P4 d# Q' V2 C- O& q
a_____0F3E
b_____3159
c_____3517. {4 j1 z, ]' c) G) V, o# J9 G0 q
d_____419C
e_____615C
f_____556F$ u5 D; }( q, k5 [! D$ E
g_____2B7F
h_____0F9C
i_____00FA/ y; d( u* j; X, d- a1 T
j_____5A50
k_____2850. U1 |- `$ f& ~
l_____3E7B
m_____71C5" c; c- q$ X! A( L4 D& O
n_____1FC8
o_____74C1
p_____5FB8: o! u( V+ x3 }% [: t  [: r$ C
q_____6085
r_____3AC4( {4 ]7 a; q" v" I" {; J! P0 Y
s_____2F50# Z, ]2 j. l: r2 }" s
t_____36F8
u_____7010
v_____0B42
w_____1C7A5 g6 B& O$ w6 |8 X( u( Y
x_____16F8
y_____2EE7  w" g, J, Z* B
z_____5CF33 U! e3 P3 ^" a- m9 H, {0 `' u
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA. [3 s9 M1 O; Y9 v3 x/ X" a# J
&_____62B9* y; b, A! `2 C3 k' x6 c
*_____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 分享给朋友]