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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
6 x. U. t& l4 v0 _4 B原始出处：http://www.3ast.com.cm7 [) Q* R: i8 b" T1 A: H8 c4 O7 _
. y9 |$ T2 b( p/ N6 X$ M
看不懂的直接绕过
- |8 c* `  H: M8 P加密前为:hwy123456  c( l9 L' P+ s, \0 u, Y( D
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
1 I8 U2 E- P+ T9 `+ w
: ^! \- A6 W4 U- _3 h/ B5 o. c============================================/ p$ D- m4 h* |. R( P3 w
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
/ ?' w* Q# b/ c& Q% g0 U- g* M也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法- o9 b* i9 B' `) P
以下是RSA算法文件9 T" \6 ?+ Y8 a3 i$ e' z! d% x
. k7 H, b  b' C# J3 N
文件名RSA.ASP4 Z' z; F  h. M& k! A
===============================================
7 B/ q- G* C3 P% `) y3 E! q5 D<%
4 S6 _# Q) c; ]% F+ vClass clsRSA % N7 `" J5 I) f9 [8 R
Public PrivateKey . d+ A2 l* I2 u" L- P
Public PublicKey
7 A2 t8 x" I& L) w* }Public Modulus
$ G1 v4 `9 Q3 q) }+ WPublic Function Crypt(pLngMessage, pLngKey) / \8 T; V: ~. k* @7 O
On Error Resume Next
7 P- ~1 a, e$ x1 [7 YDim lLngMod 5 R3 ~$ m7 Q9 l% t
Dim lLngResult 7 G* A) T3 Q$ {- Y) {# [
Dim lLngIndex 4 p( A) q: l' A
If pLngKey Mod 2 = 0 Then
. x( @1 v4 m3 E3 _. vlLngResult = 1
* @2 ]9 p+ n% e; {8 p& b2 r' }7 K/ @4 iFor lLngIndex = 1 To pLngKey / 2 ( x. Z2 U6 N; N4 X9 y" [4 v
lLngMod = (pLngMessage ^ 2) Mod Modulus
. P- K! G+ ^0 ~& t6 T: A% }4 r' Mod may error on key generation 0 [/ J7 V+ P  u! \- n
lLngResult = (lLngMod * lLngResult) Mod Modulus
8 p! `2 g* S/ f/ a' @* s: q( t( EIf Err Then Exit Function
1 ?9 q2 R, S" c: y( S( a; `9 GNext : ~5 X# `' b- z' {
Else
, S7 o$ G7 t$ S  K  m+ _  @lLngResult = pLngMessage
$ s* S2 o3 x3 u, }' N/ h2 j5 xFor lLngIndex = 1 To pLngKey / 2
9 t+ x8 K9 `$ u9 X6 E. n) m" n+ QlLngMod = (pLngMessage ^ 2) Mod Modulus " H" h' R# @; A& k
On Error Resume Next * B9 G2 c0 |. \: ~% N
' Mod may error on key generation
5 K5 q: J/ D1 k. jlLngResult = (lLngMod * lLngResult) Mod Modulus
  q5 i& f5 N/ tIf Err Then Exit Function " k+ s, k5 F  O
Next
  |( |2 a9 b% i; n" o1 mEnd If
4 h# z( G* _  C9 w7 tCrypt = lLngResult
* j% m) C8 g: c6 t( `$ J+ P9 JEnd Function
9 \. s& j# {8 Q. v$ o3 {
+ g; M' r  c3 |/ xPublic Function Encode(ByVal pStrMessage) ( n1 o9 a6 h. i1 _* `' H9 o
Dim lLngIndex 3 o7 j$ W( v7 p0 `: u( e
Dim lLngMaxIndex * Z' A! l0 q+ B, v/ X# I; P" ]
Dim lBytAscii
. {, D$ l2 v7 n) T0 kDim lLngEncrypted 6 ?* g/ }3 p6 P* _  ]2 z: D1 _+ n7 ~1 S
lLngMaxIndex = Len(pStrMessage) " j7 b( Q& s# e6 G; Z( h, w
If lLngMaxIndex = 0 Then Exit Function
7 p* ^) J+ s) c. n+ d/ a3 D( yFor lLngIndex = 1 To lLngMaxIndex 1 g( j6 N. H7 S/ p9 D1 X2 u
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! B+ |# U5 M3 B
lLngEncrypted = Crypt(lBytAscii, PublicKey)
0 f( ]4 W0 G5 k- _Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 t4 c: r/ S- F; v
Next
" V- j+ U9 C( s6 D. GEnd Function 5 s& D& G4 z  J4 C( G0 N4 q
Public Function Decode(ByVal pStrMessage)
6 o% m# V- ]0 m8 S/ L9 V- vDim lBytAscii
- x# O' \4 \4 q: H; s' pDim lLngIndex
5 v) C& |1 Q3 \; J* \3 {/ U/ q" KDim lLngMaxIndex
. S) Z  d+ e4 v  aDim lLngEncryptedData : |" w4 f4 ?: \. F: L/ R8 ]
Decode = ""
( [/ R- N$ e8 F, U! nlLngMaxIndex = Len(pStrMessage) % }8 m. F% t% G/ Q$ z. |
For lLngIndex = 1 To lLngMaxIndex Step 4
: N; d; P8 q6 E) UlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 ?& ^% C) A5 D6 q
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
+ r1 u* D( P, G2 S4 cDecode = Decode & Chr(lBytAscii) ! R; Q6 F1 R: ~4 \) B" S
Next
2 y- L$ I" n" UEnd Function
& R1 r* `" c, I0 y4 ?9 Y5 ?) QPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
) h! g" F1 `0 J$ @8 SNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( Z: d# y2 Y5 V+ s
End Function 6 }6 R/ a& J( W9 M7 f
Private Function HexToNumber(ByRef pStrHex) 6 u: q! ]5 i' N! G1 X
HexToNumber = CLng("&h" & pStrHex)
9 J- c" r& _' s/ @End Function ' q0 a% ^. Q9 k/ l8 K
End Class
3 ]7 y; z6 g# Dfunction Encryptstr(Message) * G5 N. Y% I& I% a7 G! P5 B
Dim LngKeyE   r# u, v  C* F) U/ z1 z% c
Dim LngKeyD
: A' ^3 r* ~- b/ Y2 m  z6 }" U: H5 p5 VDim LngKeyN 5 e8 n) v4 ?/ V/ i8 Y3 g
Dim StrMessage " ~  K- G; f& U
Dim ObjRSA & }" h; K3 q% z2 k; P, s
LngKeyE = "32823" ! A' S4 S& `3 [) H9 t' i0 Q
LngKeyD = "20643" 0 N( D5 }+ w3 @/ G  A
LngKeyN = "29893"
2 o/ I0 m% v* b; v( m( h% t7 `StrMessage = Message ; Z1 b' j% M- m* f
Set ObjRSA = New clsRSA
+ }0 q" Q* p  [, M5 ]* TObjRSA.PublicKey = LngKeyE . Z- z8 F4 x9 r1 i) C1 ?( r7 \
ObjRSA.Modulus = LngKeyN ! Y; B% U, n2 [- _
Encryptstr = ObjRSA.Encode(StrMessage) : v) m3 {* }% H/ z% o" |6 h4 @
Set ObjRSA = Nothing : _7 M( Y; l4 t
end function/ H$ Z8 f/ v$ M$ W+ h# A
Function Decryptstr(Message)
- u' |8 L# q& v- }: |2 j9 kDim LngKeyE ) V4 [* U  R6 z: u
Dim LngKeyD 7 R0 S! V" k3 b( [
Dim LngKeyN
. X! U/ u8 V! t/ WDim StrMessage - e3 {) E+ ^0 @. K
Dim ObjRSA & S, E0 {7 L1 ^0 {% t- W
LngKeyE = "32823" % V, m& O: |  B6 B2 \
LngKeyD = "20643" ! W! R6 @# |4 d7 e: Z- S/ B8 H
LngKeyN = "29893"
& J$ |+ M- u$ DStrMessage = Message
0 U3 C7 ?4 o& b' Q+ }Set ObjRSA = New clsRSA * g( y( V1 H$ n
ObjRSA.PrivateKey =LngKeyD 6 R* v0 c2 ?* K) F9 V
ObjRSA.Modulus=LngKeyN
  d/ B3 K+ ]/ ?decryptstr=ObjRSA.Decode(StrMessage) : n! J1 c. z# `; Y4 {
Set ObjRSA = Nothing
& z; c$ c: a+ ^8 L! w( J6 @& Iend function
- y9 P: O9 K2 u%>
" H: w1 v+ M4 H, ]& Z3 |===============================================
% p; p' Z* y2 C# ~0 I$ F  W$ T
+ }# H) y' j: }7 b还有一个用于测试这段代码的test.asp
1 J) a" U' d4 |! Q; X- m( C有兴趣的自己搭建个IIS测试下: l: {# ]2 H0 W" T" u. C( a
<!--#INCLUDE FILE="RSA.asp"--> & Y" m! ~6 z, O. x' z& H5 |+ u
<%
3 i! G+ J6 {) e/ R' i0 q+ Afunction Encryptstr(Message) 1 g; m" w# x$ T2 ^, r" B
Dim LngKeyE 0 U, v+ b1 h0 K
Dim LngKeyD
) y2 K' u! ]1 T' o, m0 \Dim LngKeyN
- _* r! s: c, w4 @Dim StrMessage
$ }8 e: L* I* [; f' t6 G* uDim ObjRSA   g+ ]* r8 v6 H* q, T: W5 [
LngKeyE = "32823" 7 c0 O* a! R/ z2 U
LngKeyD = "20643"
1 `0 `) h  s8 P/ c8 R- NLngKeyN = "29893" 0 @. T. g0 ?7 t/ J: v% Z% h
StrMessage = Message ' G& [$ O7 t& g6 B. ~! X! R
Set ObjRSA = New clsRSA
7 {6 f6 S( ?# O% U* \ObjRSA.PublicKey = LngKeyE
" j0 G; T9 j$ jObjRSA.Modulus = LngKeyN
" j, a( `4 N1 Y% D, G( uEncryptstr = ObjRSA.Encode(StrMessage) 1 l% L3 D- }, T3 X4 W
Set ObjRSA = Nothing
- e$ q' `! d! Z+ j% [  l! y( Nend function
9 V( Y5 D1 `) K5 xfunction decryptstr(Message)
7 ?$ f' i8 A! n( fDim LngKeyE
" m; z# ^8 h, z3 d* ?1 Q( ?2 jDim LngKeyD + q& c1 ^( K3 s8 W
Dim LngKeyN " A! v$ y! h( {2 M; [
Dim StrMessage 2 O+ c! t6 H1 L4 p" @: W( M
Dim ObjRSA $ k' b* \& Q# X7 e7 P
LngKeyE = "32823"
+ f  J9 e  c3 X* ?& {5 K! N$ bLngKeyD = "20643" : A' ~5 q$ U# n5 H' V, E
LngKeyN = "29893"
4 m0 L' e5 t* P! q7 p% iStrMessage = Message & }9 H9 Y/ K+ C0 |3 A. N
Set ObjRSA = New clsRSA 7 o0 Y1 ~* b/ I
ObjRSA.PrivateKey =LngKeyD ) F; N" A$ M5 y
ObjRSA.Modulus=LngKeyN , J0 r0 G! B! \0 K' b) Z: c
decryptstr=ObjRSA.Decode(StrMessage)
5 \. l! L9 ~* {- H$ O( a" ^7 ]Set ObjRSA = Nothing - H* X6 k; h/ S, J' \
end function % D$ y5 J$ U6 s. @
dim last,first 8 @3 y1 ]+ Z* P$ N; c' m% w
first="!@#$%^&*()" ) @. f7 G( k, o2 W
Response.Write "加密前为:"&first : m9 Y6 d* V& l/ `# W  T3 y
last=Encryptstr(first)
8 J; ]' m: F" Z' c; o+ v5 cResponse.Write "加密后为"&last
! [- J3 p( z( f; VResponse.Write "解密后为" &decryptstr(last)
' s) r! R, w: L) X; M6 l6 b%> ==============================================
6 p! O, X8 f# ?! J9 l4 m2 a剩下的就是字符的对照表了( q0 ]& e7 `9 b& Y2 [: V' [
===================字符集================( V: a/ n' I" n! f; f; }) ]
1_____6EBB
2 j- w8 y0 A3 E! D2_____5C1F4 V& l3 y6 b; B2 f' x9 a
3_____4D753 g+ @  a% |) R# }; h
4_____26CC
' g1 |0 C. |. T' ]5_____4F886 l* v: p4 n0 b7 G- Z
6_____3F4E' M* [1 J( E/ Z( E
7_____0A9D& A; l. {# e7 C4 j- {) @% v
8_____1A1C
" S+ |+ N( i4 t9_____6D208 ^6 F: V1 l% \: ?# B; n8 Y0 z
0_____1089
, q' R% W: \; t& q/ T* }a_____0F3E, y. y% t5 K1 `8 \( r
b_____3159% `6 N/ ?: N# S" f" D, j' s
c_____3517
# C4 n" U) _( V, rd_____419C
5 h2 ^) _: E! W& `& ~: U/ pe_____615C: U+ T+ L7 V) X3 K1 p  d- @
f_____556F
  P8 f  |) O* s$ fg_____2B7F2 P3 G) @$ f2 W: V/ R6 T
h_____0F9C4 ^) T; m; m$ ~: _/ S# I
i_____00FA8 `: S$ |5 T; g
j_____5A50
1 R# {. o- g5 Q4 y+ Ck_____2850
0 Z2 p+ v$ M- n- p: C* ll_____3E7B
; L4 m, M, F& F& F7 ]& o' |6 ]( `' [m_____71C59 D% _2 x  y3 Q9 \& W+ a% T
n_____1FC8
$ N  J5 n/ ~2 ]7 @$ S5 so_____74C1
" ^# h) c/ X/ dp_____5FB8
- ?5 u' J8 g" y9 o# r9 t( Hq_____6085
) T' k  V. U2 D8 M* ^& \* n' dr_____3AC4+ T; W. l/ h' d/ H
s_____2F50
3 O' v9 p- B' t4 `0 F8 u+ |t_____36F8
1 z( A2 O/ \$ n  U1 Qu_____7010' c$ x1 G8 j; E! {! G
v_____0B42
, D4 _9 Z) P5 R7 _/ q6 tw_____1C7A( S- E. z: Y( b$ u  @
x_____16F8
5 G& G4 p5 S( d7 Wy_____2EE7$ P5 d1 O6 H- S
z_____5CF3
9 T3 q) M7 ^6 [1 D" F4 B4 D!_____6233( D) X# ]: R- J
@_____3A45
9 J5 A3 B& ~+ L- [+ g/ ^( e( T#_____2291: f, M0 W) }, }0 F- U5 c- x
$_____5D5C& O5 z' S( B+ w9 I4 [! ^
%_____09B9
, @& r6 \* k! m! s# e2 `^_____43EA- N2 M, J' j( d. a" [- q
&_____62B9
  ?* {0 k  V5 ~8 R4 |*_____6301
+ C# R) v8 N" V; q(_____4659+ C* Q3 f7 e! ~$ X4 @2 c7 C
)_____5C82

鱼儿无心

收藏了。。。。。。。。