[Question] Xin hướng dẫn crack và dịch ngược code tool này |
08/06/2014 15:32:59 (+0700) | #1 | 280788 |
mingxin
Member
|
0 |
|
|
Joined: 04/07/2007 12:34:08
Messages: 3
Offline
|
|
Mò hoài mà crack không được.
Nó bi giới hạn lần sử dụng, dùng thử được 4 lần là hiện lên thông báo này,
search code mãi mà không tìm thấy thông tin của from đăng ký.
nhờ can nhân chỉ giáo....thanks
link load tool
http://down.remouse.com/ReMouseStandard-Setup.exe |
|
|
|
|
[Question] Xin hướng dẫn crack và dịch ngược code tool này |
24/07/2014 15:45:18 (+0700) | #2 | 281074 |
hoangcuongflp
Member
|
0 |
|
|
Joined: 21/03/2014 06:42:47
Messages: 24
Offline
|
|
mình chỉ có thể dịch ngược lại phần mềm này giúp bạn. Còn việc crack mình sẽ chỉ cho bạn hàm kiểm tra Serial. Bạn tự đọc code và tìm ra key cho mình.
chương trình này được viết bằng AutoIT. không pack, việc reverse có vẻ dễ dàng, nhưng nó được Obfuscated, nên sẽ khó khăn hơn một chút.
Bạn download mã nguồn đã được làm rõ một phần tại:
https://www.dropbox.com/s/s2c122qcp1cts8v/ReMouse_.au3
Mã chương trình kiểm tra serial là
Code:
Func Fn009C()
Local $Local00AC = Fn00A8()
If $Local00AC < 0 Or @error Then
Select
Case $Local00AC = -1 Or @error = 1
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Unable to get hardware parameters!")
Return
Case $Local00AC = -2 Or @error = 2
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 01 !")
Return
Case $Local00AC = -3 Or @error = 3
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 02 !")
Return
EndSelect
EndIf
Local $Local00AD = GUICtrlRead($Var1698)
$Local00AD = StringStripWS($Local00AD, 3)
Local $Local00AE = GUICtrlRead($Var1699)
$Local00AE = StringStripWS($Local00AE, 3)
If $Local00AD = "" Then
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Please enter your Email!")
Return
EndIf
If $Local00AE = "" Then
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Please enter your license!")
Return
EndIf
If StringInStr($Local00AD, "@") = 0 Or StringInStr($Local00AD, ".") = 0 Or StringInStr($Local00AD, "@remouse.com") Or StringInStr($Local00AD, "@ghost-mouse.com") Then
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Email format error!")
Return
EndIf
If StringLen($Local00AE) = 0x003C Then
Fn009D("Verifying license key...")
Local $Local00AF = Fn00A4($Local00AE, $Local00AD)
If $Local00AF < 0 Or @error Then
Select
Case $Local00AF = -1 Or @error = 1
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Unable to get hardware parameters, Registration failed!")
Fn009E()
Return
Case $Local00AF = -2 Or @error = 2
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 01, Registration failed!")
Fn009E()
Return
Case $Local00AF = -3 Or @error = 3
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 02, Registration failed!")
Fn009E()
Return
Case $Local00AF = -4 Or @error = 4
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Failed to create network object, Registration failed!")
Fn009E()
Return
Case $Local00AF = -5 Or @error = 5
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Network object returned null, Registration failed!")
Fn009E()
Return
Case $Local00AF = -6 Or @error = 6
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "network object parameter is NULL, Registration failed!")
Fn009E()
Return
Case $Local00AF = -7 Or @error = 7
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Network Object Database Error, Registration failed!")
Fn009E()
Return
Case $Local00AF = -8 Or @error = 8
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Network object version error, Registration failed!")
Fn009E()
Return
Case $Local00AF = -9 Or @error = 9
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Invalid License, Registration failed!")
Fn009E()
Return
Case $Local00AF = -10 Or @error = 10
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "The license has been used by another Email, Registration failed!")
Fn009E()
Return
Case $Local00AF = -0x000B Or @error = 0x000B
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "The license has been used by another computer, Registration failed!")
Fn009E()
Return
Case $Local00AF = -0x000C Or @error = 0x000C
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Network object return exception, Registration failed!")
Fn009E()
Return
EndSelect
EndIf
Else
Local $Local00AF = Fn00A5($Local00AE, $Local00AD)
If $Local00AF < 0 Or @error Then
Select
Case $Local00AF = -1 Or @error = 1
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Unable to get hardware parameters, Registration failed!")
Return
Case $Local00AF = -2 Or @error = 2
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 01, Registration failed!")
Return
Case $Local00AF = -3 Or @error = 3
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Feature file error: 02, Registration failed!")
Return
Case $Local00AF = -4 Or @error = 4
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "Incorrect License, Registration failed!")
Return
EndSelect
EndIf
Fn009D("Verifying license key...")
Local $Local00B0 = Fn00A6($Local00AD)
If $Local00B0 < 0 Or @error Then
Select
Case $Local00B0 = -1 Or @error = 1
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "An Internet Connection is Required!")
Fn009E()
Return
Case $Local00B0 = -2 Or @error = 2
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "An Internet File is Required!")
Fn009E()
Return
Case $Local00B0 = -3 Or @error = 3
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "This version has stopped registration, please download the new version!")
Fn009E()
Return
Case $Local00B0 = -4 Or @error = 4
ToolTip("")
MsgBox(0 + 0x0040 + 0x2000 + 0x00040000, "Info", "This Email has been abused and will now close!", 10)
Fn009E()
Exit
EndSelect
EndIf
EndIf
Local $Local00B1 = FileOpen($Var140B, 2 + 8)
FileWrite($Local00B1, $Local00AF)
FileClose($Local00B1)
IniWrite($Var1409, "info", "user", $Local00AD)
ToolTip("")
GUISetState(@SW_ENABLE, $Var1669)
Fn00B7()
WinActivate($Var1669)
GUISetState(@SW_HIDE, $Var1697)
If MsgBox(4 + 0x0020 + 0x2000 + 0x00040000, "Info", "Thank you! Whether to restart the software to complete the registration?") = 6 Then
AutoItWinSetTitle($Var0002)
Run(@AutoItExe, @ScriptDir)
EndIf
EndFunc ;==>Fn009C
|
|
Mình là 1 con gà trong công nghệ.
Nếu mình có nói gì làm bạn không vui thì mong bạn bỏ qua cho, vì cá nhân mình còn gà lắm, và mình có ý tốt thôi. |
|
|
|
[Question] Xin hướng dẫn crack và dịch ngược code tool này |
27/07/2014 00:24:22 (+0700) | #3 | 281092 |
|
van7hu
Member
|
0 |
|
|
Joined: 03/07/2010 02:38:47
Messages: 63
Location: Thuỷ điện Hoà Bình
Offline
|
|
Làm sao mình biết nó viết bằng ngôn ngữ AutoIt vậy bạn? mình cảm thấy tò mò. |
|
https://www.facebook.com/buivan.thu.94
Được phục vụ cho tổ quốc, đó là một niềm vinh hạnh lớn lao.. |
|
[Question] Xin hướng dẫn crack và dịch ngược code tool này |
29/07/2014 13:04:45 (+0700) | #4 | 281135 |
hoangcuongflp
Member
|
0 |
|
|
Joined: 21/03/2014 06:42:47
Messages: 24
Offline
|
|
Bạn có thể sử dụng rất nhiều cách để "phát hiện" ra chương trình này được viết bằng AutoIT.
1. Disassembly rồi đọc code. Có nhiều đoạn "string" có "dấu hiệu" là : Autoitcode,...
2. Sử dụng các tool detect như: PeID, ProtectID, PE Detector,...
3. Kinh nghiệm cá nhân. |
|
Mình là 1 con gà trong công nghệ.
Nếu mình có nói gì làm bạn không vui thì mong bạn bỏ qua cho, vì cá nhân mình còn gà lắm, và mình có ý tốt thôi. |
|
Users currently in here |
1 Anonymous
|
|
Powered by JForum - Extended by HVAOnline
hvaonline.net | hvaforum.net | hvazone.net | hvanews.net | vnhacker.org
1999 - 2013 ©
v2012|0504|218|
|
|