Temas

Tengo un problema con un programa que estoy desensamblando.
En una parte tiene una division
DIV BL
Segun lo que tengo entendido esto divide AX por BL y guarda el resultado en AX. En AL el entero y en AH el resto.
Mi problema es que no puedo calcular el resto que aparece en AH ya que no es el resto que da en una divison comun.
El valor de BL es constante siempre es 14h.
Por ejemplo en uno de los casos divide 31h(49)/14h(26) = 1.8846..
En AL aparece 01 pero en AH me aparece 10.
Alguien sabe porque pasa esto? Tengo que dividir de alguna forma especial o que estoy haciendo mal?

Cuando abro uno de los crackme que vienen con el curso de raton,
el crackme 3 capitulo10, me dan varios api error 120 (Esta funcion solo es valida en modo win32).
Uo de esos errores me lo da en el comparestringw por lo que no me compara el serial mio con el original.
¿Alguien sabe como solucionar este problema?
Gracias

Aca esta el programa lo hice para ver el estado del winsock.
Una vez que esta conectado el estado tendria que ser 7 = sckConnected pero cuando se conecta el estado es 6 = sckConnecting. ¿Esto es asi o el codio tiene algun problema?
Apesar de que esta en 6 y no en 7 manda los datos igual.

Aca el codigo:

Private Sub Command1_Click()
Dim dato As String
dato = Text1.Text
send.SendData dato
End Sub

Private Sub Command2_Click()
listen.LocalPort = 9000
listen.listen
End Sub

Private Sub Command3_Click()
send.RemoteHost = "127.0.0.1"
send.RemotePort = 9000
send.Connect
Label2.Caption = send.State
End Sub

Private Sub listen_ConnectionRequest(ByVal requestID As Long)
listen.Close
listen.Accept requestID
End Sub

Private Sub listen_DataArrival(ByVal bytesTotal As Long)
Dim data As String
listen.GetData data
Label1.Caption = data
End Sub

He visto varios codigon en ASM q empiezan asi:
push ebp
mov ebp,esp
¿Cual es el objetvio de guardar la dirrecion actual de la pila en el registro ebp y para que se pushea ebp?

Estoy tratando de hacer un joiner, pero tengo un problema con el codigo. Me une los dos archivos, se nota el cambio de tamaño en el archivo, pero solo se ejecuta uno el primero, en este caso pj64. Alguien puede ayudarme para que se ejecuten los 2.
Aca esta el codigo:

Dim Buffer As String
Dim Buffer2 As String
Dim buffspace As Long
Open "C:\pj64.exe" For Binary As #1
buffspace = LOF(1)
Buffer = Space$(buffspace)
Get #1, , Buffer
Close #1
Open "C:\vb.exe" For Binary As #1
buffspace = LOF(1)
Buffer2 = Space$(buffspace)
Get #1, , Buffer2
Close #1
Open "C:\out.exe" For Binary As #1
Put #1, , Buffer & Buffer2
Close #1

¿Como hacer para que un programa cuando lo ejecute se copie a otro lado?

Cuando trato de instalar el SoftIce para Windows Xp (o sea el para Nt) me dice
You must turn off the read-only memory proteccion.
¿Es esto seguro, o le va a hacer algo a la compu????