Đơn giá của DT Acitt bị mã hóa

English | Vietnamese

Rules

Main Forum

Portal

Member Listing

Statistics

Search

Reading Room
[Register]

Login [ | https ]

Forum Index

Thảo luận hệ điều hành Windows

Đơn giá của DT Acitt bị mã hóa

[Question] Đơn giá của DT Acitt bị mã hóa	29/05/2007 02:34:04 (+0700) \| #1 \| 62064

htvu123
Member

Joined: 26/05/2007 14:50:49
Messages: 1
Offline

Tôi đang có cái đơn giá của DT ACITT 2007, nhưng nó bị mã hóa nên không dùng được. Vừa rồi có người bạn gởi cho cái này mà không biết cách dùng làm sao. Mong các cao thủ chỉ giáo

Function Decrypt_dutoan(key As Long, salt As Boolean, s As String) As String

' Dim dlg As Object
' Dim strResult As String

' Set dlg = CreateObject("tdutoan.Decrypt_dutoan")
' strResult = dlg.Show(key, salt, s)
' Decrypt_dutoan = strResult
' Set dlg = Nothing

Decrypt_dutoan = StrDecode(s, key, salt)

End Function

Function Encrypt_dutoan(key As Long, salt As Boolean, s As String) As String

' Dim dlg As Object
' Dim strResult As String

' Set dlg = CreateObject("tdutoan.Encrypt_dutoan")
' strResult = dlg.Show(key, salt, s)
' Encrypt_dutoan = strResult
' Set dlg = Nothing

Encrypt_dutoan = StrEncode(s, key, salt)

End Function

Function StrEncode(ByVal s As String, key As Long, salt As Boolean) As String

Dim n As Long, i As Long, ss As String
Dim k1 As Long, k2 As Long, k3 As Long, k4 As Long, t As Long
Static saltvalue As String * 4

If salt Then
For i = 1 To 4
t = 100 * (1 + Asc(Mid(saltvalue, i, 1))) * Rnd() * (Timer + 1)
Mid(saltvalue, i, 1) = Chr(t Mod 256)
Next
s = Mid(saltvalue, 1, 2) & s & Mid(saltvalue, 3, 2)
End If

n = Len(s)
ss = Space(n)
ReDim sn(n) As Long

k1 = 11 + (key Mod 233): k2 = 7 + (key Mod 239)
k3 = 5 + (key Mod 241): k4 = 3 + (key Mod 251)

For i = 1 To n: sn(i) = Asc(Mid(s, i, 1)): Next i

For i = 2 To n: sn(i) = sn(i) Xor sn(i - 1) Xor ((k1 * sn(i - 1)) Mod 256): Next
For i = n - 1 To 1 Step -1: sn(i) = sn(i) Xor sn(i + 1) Xor (k2 * sn(i + 1)) Mod 256: Next
For i = 3 To n: sn(i) = sn(i) Xor sn(i - 2) Xor (k3 * sn(i - 1)) Mod 256: Next
For i = n - 2 To 1 Step -1: sn(i) = sn(i) Xor sn(i + 2) Xor (k4 * sn(i + 1)) Mod 256: Next

For i = 1 To n: Mid(ss, i, 1) = Chr(sn(i)): Next i

StrEncode = ss
saltvalue = Mid(ss, Len(ss) / 2, 4)

End Function

Function StrDecode(ByVal s As String, key As Long, salt As Boolean) As String

Dim n As Long, i As Long, ss As String
Dim k1 As Long, k2 As Long, k3 As Long, k4 As Long

n = Len(s)
ss = Space(n)
ReDim sn(n) As Long

k1 = 11 + (key Mod 233): k2 = 7 + (key Mod 239)
k3 = 5 + (key Mod 241): k4 = 3 + (key Mod 251)

For i = 1 To n: sn(i) = Asc(Mid(s, i, 1)): Next

For i = 1 To n - 2: sn(i) = sn(i) Xor sn(i + 2) Xor (k4 * sn(i + 1)) Mod 256: Next
For i = n To 3 Step -1: sn(i) = sn(i) Xor sn(i - 2) Xor (k3 * sn(i - 1)) Mod 256: Next
For i = 1 To n - 1: sn(i) = sn(i) Xor sn(i + 1) Xor (k2 * sn(i + 1)) Mod 256: Next
For i = n To 2 Step -1: sn(i) = sn(i) Xor sn(i - 1) Xor (k1 * sn(i - 1)) Mod 256: Next

For i = 1 To n: Mid(ss, i, 1) = Chr(sn(i)): Next i

If salt Then StrDecode = Mid(ss, 3, Len(ss) - 4) Else StrDecode = ss

End Function

Bạn đó nói cái này dùng để giải cái đơn giá bị mã hóa đó. Giờ tôi không liên lạc được nên đành nhờ các bạn vậy.

[Question] Đơn giá của DT Acitt bị mã hóa	29/05/2007 02:36:18 (+0700) \| #2 \| 62066

hoanganhloc
Elite Member

Joined: 05/04/2003 16:47:35
Messages: 28
Offline

trông như viết bằng vb.

Go to:

Users currently in here
1 Anonymous