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

Noches de Boda

Excelente canción de Sabina.

Que el maquillaje  no apague tu risa,
que el equipaje no lastre tus alas,                                                      
que el calendario no venga con prisas,
que el diccionario detenga las balas,
Que las persianas corrijan la aurora,
que gane el quiero la guerra del puedo,                                   
que los que esperan no cuenten las horas,
los que matan se mueran de miedo.
  
Que el fin del mundo te pille bailando,
que el escenario me tiña las canas,        
que nunca sepas ni cómo, ni cuándo,
ni ciento volando, ni ayer ni mañana         
Que el corazón no se pase de moda,
que los otoños te doren la piel,         
que cada noche sea noche de bodas,
que no se ponga la luna de miel.
Que todas las noches sean noches de boda,
que todas las lunas sean lunas de miel.

     
Que las verdades no tengan complejos,
que las mentiras parezcan mentira,
que no te den la razón los espejos,
que te aproveche mirar lo que miras.

Que no se ocupe de tí el desamparo,
que cada cena sea tu última cena,
que ser valiente no salga tan caro,
que ser cobarde no valga la pena.
Que no te compren por menos de nada, 
que no te vendan amor sin espinas,
que no te duerman con cuentos de hadas,
que no te cierren el bar de la esquina.

Que el corazón no se pase de moda,
que los otoños te doren la piel,
que cada noche sea noche de bodas,
que no se ponga la luna de miel.

Que todas las noches sean noches de boda,
que todas las lunas sean lunas de miel.

Joaquín Sabina

Donde el azúcar es más dulce

Nací donde el azúcar es más dulce
y las jugosas cañas crecen más;
en donde el cielo eternamente luce
azul y las aves no cesan de cantar.
Allí donde los hombres son más hombres;
la mujer de belleza angelical;
en donde más felices son los pobres:
en pleno paraíso tropical.

Y crecí al compás de la molienda...
y le robó la música a mi lira
al sordo rechinar de las carretas
y ala tronchada caña que suspira
porque le duele abandonar la tierra
que la llenó de azúcare y de vida.

En mi niñez, soñando me sentaba
a contemplar como se ocultaba el sol
tras la verde y larguísima muralla
de la enorme Sierra de Cucharas.
Sentía de miel el singular olor
y a la brisa veía peinar las cañas.

Los canales reventando de agua
y mil aves de regreso al nido...
El humo de la fábrica se alarga,
con salvas de silbatos y de ruidos,
como bandera que se pone en zafra.

Por caminos sinuosos y apartados
rodar al malacate de carretas;
los bueyes que las tiran, agachados,
escuchan el silbar del carretero
y palomas moradas que se quejan.

Lugar de ensueño para inspiración
en pleno roce son la naturaleza:
la música invadió mi corazón
y sentí la emoción de los poetas
y la Santa Presencia del Creador

Con pujante fuerza mi Mante crecía;
se hizo moderno y crece todavía.
Y en el campo culivado hasta parece
un huerto enorme que admirado deja
a aquel que con deleite lo contempla.

Hoy mi lira se llena de ternura
y al tratar de cantar tanta hermosura
siento el placer que la emoción produce;
y al ver a mi región más me convence
que orgulloso gritar puedo muy fuerte:
yo nací donde el azúcar es más dulce

Carlos R. Fantini Almazán
(Poeta Mantense)

No es nada de tu cuerpo

No es nada de tu cuerpo
ni tu piel, ni tus ojos, ni tu vientre,
ni ese lugar secreto que los dos conocemos,
fosa de nuestra muerte, final de nuestro entierro.
No es tu boca -tu boca
que es igual que tu sexo-,
ni la reunión exacta de tus pechos,
ni tu espalda dulcísima y suave,
ni tu ombligo en que bebo.
Ni son tus muslos duros como el día,
ni tus rodillas de marfil al fuego,
ni tus pies diminutos y sangrantes,
ni tu olor, ni tu pelo.
No es tu mirada -¿qué es una mirada?-
triste luz descarriada, paz sin dueño,
ni el álbum de tu oído, ni tus voces,
ni las ojeras que te deja el sueño.
Ni es tu lengua de víbora tampoco,
flecha de avispas en el aire ciego,
ni la humedad caliente de tu asfixia
que sostiene tu beso.
No es nada de tu cuerpo,
ni una brizna, ni un pétalo,
ni una gota, ni un grano, ni un momento.

Es sólo este lugar donde estuviste,
estos mis brazos tercos.

Jaime Sabines

Amor

Este es de mis preferidos ...

Amar es este tímido silencio
cerca de ti, sin que lo sepas,
y recordar tu voz cuando te marchas
y sentir el calor de tu saludo.

Amar es aguardarte
como si fueras parte del ocaso,
ni antes ni después, para que estemos solos
entre los juegos y los cuentos
sobre la tierra seca.

Amar es percibir, cuando te ausentas,
tu perfume en el aire que respiro,
y contemplar la estrella en que te alejas
cuando cierro la puerta de la noche.

Salvador Novo

Como Amar

Como amar
como verde amar y las lagunas,
sin sentir y sin sentido.

Como amar
profundo tibio y cielo,
sin pasión y sin medida.

Como amar
incandescente y tardío,
desentrañable y cronológico.

Como amar
repetitivo y poético,
recurrente y sin amor,
esa es tu forma: mi mar.

Edel Juárez

Pobrecito mi patrón

Este es el intro de la canción de Alberto Cortez ...

El diablo fué al mar
a escribir la historia del mundo
pero no había agua
Dios se la había bebido.

Juan Comodoro
buscando agua,
encontró petróleo
pero se murió de sed.

...
Alberto Cortez