MU Version Converter

[theone8x]

Thấy bên này có post rồi mà phiên bản No-Gui.
[Only registered and activated users can see links. ]

Nghịch nghịch nên code cái bằng autoit cho bạn nào thích
Có thảm khảo cách tính verison của bác bên này
[Only registered and activated users can see links. ]

Chức năng thì chả có chức năng gì nhiều ngoài đổi version từ MU sang dạng trên Main và ngược lại

Ảnh
[Only registered and activated users can see links. ]

VirusTotal
[Only registered and activated users can see links. ]
Code bằng autoit nên nó hiện vài cái chả biết sao.Kasper với NOD thì vẫn bt chả báo gì

LinkDown

[Only registered and activated users can see links. ]

[Trong]

Em cũng dành AutoIt lắm nhưng tại nó hay bị Anti chém lên ít sài

MU Version Converter Source GUI Version:

Global Const $gui_event_close = -3
Global Const $mb_systemmodal = 4096
$form1 = GUICreate("Version Mu converter", 363, 99, 192, 124)
$label1 = GUICtrlCreateLabel("Version Mu", 24, 16, 57, 17)
$label2 = GUICtrlCreateLabel("Version in Main", 24, 56, 76, 17)
$version1 = GUICtrlCreateInput("", 112, 16, 121, 21)
$version2 = GUICtrlCreateInput("", 112, 56, 121, 21)
GUICtrlSendMsg($version1, 5377, True, "1.02.03 hoặc 10203")
GUICtrlSendMsg($version2, 5377, True, "22548")
$btncvt = GUICtrlCreateButton("Convert", 264, 16, 75, 25)
$btnucvt = GUICtrlCreateButton("Unconvert", 264, 56, 75, 25)
GUISetState(@SW_SHOW)
$hwnd = WinGetHandle("Version Mu converter")
While 1
	$nmsg = GUIGetMsg()
	Switch $nmsg
		Case $gui_event_close
			Exit
		Case $btncvt
			convert()
		Case $btnucvt
			unconvert()
	EndSwitch
WEnd
Func convert()
	$string = ControlGetText($hwnd, "", $version1)
	$string = StringReplace($string, ".", "")
	If (StringLen($string) <> 5) Then
		MsgBox($mb_systemmodal, "Warning", "Bạn thử lại xem nhập đúng version chưa")
	Else
		$achar = StringToASCIIArray($string)
		For $i = 0 To 4 Step 1
			ConsoleWrite("-"&$achar[$i]& " >> " & $i&@crlf)
			$achar[$i] = ($achar[$i] + $i + 1)
			ConsoleWrite("+"&$achar[$i]& " >> " & $i&@crlf)
		Next
		$stringkq = StringFromASCIIArray($achar)
	EndIf
	ControlSetText($hwnd, "", $version2, $stringkq)
EndFunc   ;==>convert
Func unconvert()
	$string = ControlGetText($hwnd, "", $version2)
	$string = StringReplace($string, ".", "")
	If (StringLen($string) <> 5) Then
		MsgBox($mb_systemmodal, "Warning", "Bạn thử lại xem nhập đúng version chưa")
	Else
		$achar = StringToASCIIArray($string)
		For $i = 0 To 4 Step 1
			ConsoleWrite("-"&$achar[$i]& " >> " & $i&@crlf)
			$achar[$i] = ($achar[$i] - ($i + 1))
			ConsoleWrite("+"&$achar[$i]& " >> " & $i&@crlf)
		Next
		$stringkq = StringFromASCIIArray($achar)
	EndIf
	ControlSetText($hwnd, "", $version1, $stringkq)
EndFunc   ;==>unconvert

Chắc cũng làm 1 bản quá

[theone8x]

Bảo mật kém quá ah
Dịch ngược công cụ nào hay thế

[Trong]

Exe2Aut các chuơng trình của em áp dụng đc nhé