Crack MyBusiness POS

Hace alrededor de 3 meses que anduve por Abasolo, Tamaulipas, trabajando en una ferretería, usaban un ERP que se llama MyBusiness. Había un problema en específico con este ERP, ya que si no adquiría una licencia, cada X cantidad de segundos preguntaba si desea activar, así que me dí a la tarea de intentar crackearlo.

El software lo pueden descargar de la página del fabricante http://www.mybusinesspos.com/ y el crack lo hice en 2 versiones, ya que algunos antivirus bloquean scripts o EXEs.

El código del VBS es el siguiente:

------------------------ CODE ------------------------

Dim oReg

Set oReg = CreateObject("WScript.Shell")

oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\InitialDate", Date & " 12:00:00"
oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\LastRunDate", Date & " 12:01:00"
oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\Counter", "0"

Set objCopy = CreateObject("Scripting.FileSystemObject")

objCopy.CopyFile ".\Crack_MB.vbs", oReg.ExpandEnvironmentStrings("%WinDir%") & "\Crack_MB.vbs"

oReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\crack", oReg.ExpandEnvironmentStrings("%WinDir%") & "\Crack_MB.vbs"


MsgBox "Cracked by YoRcH", 0, "MyBusiness POS"

------------------------ CODE ------------------------

El código de la Aplicación en VB6 es el siguiente:

------------------------ CODE ------------------------

Public Sub Main()
Dim oReg
Dim separador

separador = ""

If Len(App.Path) > 3 Then
separador = "\"
End If

Set oReg = CreateObject("WScript.Shell")

oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\InitialDate", Date & " 12:00:00"
oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\LastRunDate", Date & " 12:01:00"
oReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\MyBusiness RDN 232906046973 DELTA\ActiveLock\Counter", "0"

FileCopy App.Path & separador & App.EXEName & ".exe", Environ$("windir") & "\" & App.EXEName & ".exe"

oReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\crack", Environ$("windir") & "\" & App.EXEName & ".exe"

MsgBox "Cracked by YoRcH", 0, "MyBusiness POS"
End Sub

------------------------ CODE ------------------------

Acontinuación mi Descargo de Responsabilidad:

Descargo de Responsabilidad.
Hago entrega de 2 archivos cuya función es retardar el periodo
de prueba del Software MyBusiness Delta, cabe mencionar, que no se busca
perjudicar al autor de dicho software, solamente se pretenden evitar los
efectos de la expiración de la licencia. Queda a conciencia del usuario
el uso de dichos programas (cracks) y la posterior obtención de la
licencia del software.

Uso de los programas.
Solo basta con dar doble click sobre alguno de ellos para crackear
el software y dejar preparado tal, para su posterior ejecución al inicio
de sesión de cada computadora.

Notas.
Algunos antivirus, en este caso Norton bloquea la ejecución de
los scripts WSH, en este caso ejecutará el archivo Crack_MB.exe. En el
caso del antivirus Nod32 detecta el programa anterior como código malicioso
y en este caso ejecutará el archivo Crack_MB.vbs.


Espero que a alguien le sirva.

P.D. Salu2 a To2