Suscripción al boletín mensual de elhacker.net
Autor
Código:
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private Sub Form_Load()
Dim SInfo As SYSTEM_INFO
Me.AutoRedraw = True
'Get the system information
GetSystemInfo SInfo
'Print it to the form
Me.Print "Number of procesor:" + Str$(SInfo.dwNumberOrfProcessors)
Me.Print "Processor:" + Str$(SInfo.dwProcessorType)
Me.Print "Low memory address:" + Str$(SInfo.lpMinimumApplicationAddress)
Me.Print "High memory address:" + Str$(SInfo.lpMaximumApplicationAddress)
Me.Print "Processor:" + Str$(SInfo.dwReserved)
End Sub
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private Sub Form_Load()
Dim SInfo As SYSTEM_INFO
Me.AutoRedraw = True
'Get the system information
GetSystemInfo SInfo
'Print it to the form
Me.Print "Number of procesor:" + Str$(SInfo.dwNumberOrfProcessors)
Me.Print "Processor:" + Str$(SInfo.dwProcessorType)
Me.Print "Low memory address:" + Str$(SInfo.lpMinimumApplicationAddress)
Me.Print "High memory address:" + Str$(SInfo.lpMaximumApplicationAddress)
Me.Print "Processor:" + Str$(SInfo.dwReserved)
End Sub
vb6
pienso insertar mas de 50 saltos se podria crackear de forma rapida ademas claro comprimido
Pienso formar una serie aleatoria entre esos datos expulsados y comprobarlos de diferentes formas en varias condicionantes de mi aplicacion if while etc..
hay forma que estos datos sean iguales con el mismo procesador?
Gracias Saludos
En línea
