Mundo Codes

Don't Question the authority

2009-09-08T10:56:00.000-07:00

Despedida de Fravia, traducida por google y un poquito por mi. (Un poco trade pero en fin...). - Adios a un grande

2009-06-06T04:05:00.000-07:00

Bueno, por lo que todas las curas que tuve que sufrir durante casi dos años: dos añoscompletos y los ciclos de quimioterapia muy debilitantes, 4 operaciones, muchas biopsias, incontables exploraciones de PET y MRIS, meses pasados dentro de una clínica de ... no funcionó.
La metástasis se escapó de la garganta: mi profesor neerlandés lograron detener todo pero no el tumor del hígado, y mi hígado está implosionando. Por lo tanto,es una cuestión de semanas, no meses.
Mis opciones restantes son para morir en una clínica, a morir en casa, o solicitar la eutanasia (el último, por supuesto, voy a hacer si surgen necesidades ... afortunadamente este es un país civilizado y no posee pensamientos religiosos secos -al menos por ahora- suficientes para anular mis derechos sólo para apaciguar y aplacar los supuestos deseos dudosos de "Godzilla").

Voy a ir para casa: al parecer (de nuevo: esta "parece" ubicua ) voy a morir durante el sueño. Voy "sólo" a tenerlos más débiles (amarillentos, caramba: nada como un tumor terminal para ser realmente feo) hasta que un día no voy a despertar más. Si es así, bastante justo: usted va con un suave soplo en su último viaje, una experiencia que suele ser, por cierto, como único e irrepetible :-)

De todos modos, si el universo y el tiempo son realmente infinito (me queda alguna duda), entonces la combinación casi "idéntica metempsicoticamente" de las neuronas se volverá a aparecer de nuevo en alguna parte, por ejemplo, en otra galaxia y otro planeta ... esperemos que con menos imbéciles.

Más realista, lamento no tener el tiempo para acompañar a mis hijos cuando entran a la universidad pronto. Una parte de mí que vivo a través de ellos, sin embargo, y creo que no consiguen darles algun potente arma y paracaídas (véase más abajo) para preparar el feo momento que cualquier persona con un cerebro por encima de la berenjena puede ahora ver fácilmente en contra del horizonte: Las facultades que de nuestra sociedad "tan buena" han logrado provocar la pirámide más grande en la historia económica (FMI, 21/04/2009: pérdidas bancarias en EE.UU. casi 3 billones; total mundial de 4 billones las pérdidas bancarias .. . cacahuetes que no pequeña!) con todo el dinero que -ça va sans dire- pobres y esclavos se han de reparar y devolver!
Como una ventaja adicional en la media de tiempo que también logró destruir irremediablemente-probablemente-la totalidad del ecosistema del planeta :-|

Ahora, con el coral ensordecedor de sus corruptos políticos y medios de comunicación estática coribantes, la única solución que proponen todos los felices (perdiendo aún más por su propio bien cientos de miles de millones que en realidad le pertenece a usted), es poner en marcha nuevamente el mismo ciclo de moronic forzoso de crédito | forzado consum ... en lugar de cuestionar un modelo de desarrollo totalmente fracasado y que ya está ahora (y con razón) mordiendo todos en el culo.
Pero por desgracia esto no es nada: me temo que las masacres, las guerras y los campos de concentración de las próximas décadas tendrá a nosotros recordar los horrores de la primera mitad del siglo XX con leve nostalgia. Nuestra "tan bonita y tan democrática" sociedad (donde hoy en día sólo soubrettes, el cuerpo de constructores, propietarios de medios de comunicación y "los más ricos en el estanque Bozo" tienden a ser elegidos por una población de esclavos felices y zombificados para correr como conejillos dentro de ruedas) están dirigidos a toda velocidad sobre una empinada pendiente resbaladiza hacia el abismo, donde se llevará a cabo-como de costumbre-a final como un salto mortal de tres y media vueltas invertido, entre los vivas! y viva! de sus medios de comunicación pagados, lacayos ... en voz alta ante las salpicaduras sobre el pavimento debajo de la realidad concreta.

Dulce ~ ~

Suficiente mensaje de castigo: para estar enojado, porque su muerte sólo sería infantil. Y, de hecho, ni siquiera estoy enfadado, simplemente analizo y canalizo en voz alta.
De todos modos (aunque débiles) las armas para defenderse a sí mismo, están a la vista de los que, esparcidos en la web profunda, son nuestra insondable cornucopia de conocimientos.
Lo más poderoso, en mi humilde opinión, es un buen conocimiento de la retórica (Nota 2)
Especialmente eufemismos, que en la actualidad puede traicionar hasta una sarcastica historieta ... y la exégesis, y quizás también algunos escucharon (si es áspero y de fabricación casera) el "Reality Cracking".
La poesía-y, más generalmente, una buena cultura general, son también muy útiles armaduras.
Aprenda a encontrar buenos libros (ver más abajo para algunas sugerencias), usted necesita-al igual que en el medievo, los monjes hicieron una vez un tiempo-mientras que los bárbaros queman todo y todos a la vista fuera de los muros.
Más en general, todas las ciencias nunca subestiman "en decadencia", que a menudo son muy poderosos re, consumir consumir y consumir ... perdiendo toda tu vida con el fin de poder comprar un coche un poco antes, de un color diferente.

Otros dos son posibles paracaídas, saber utilizar técnicas de ingeniería inversa de software (cuyo papel en nuestras sociedades, y de sus pequeños, está obligado a aumentar de manera espectacular los intentos de censuras), y un sonido de más, de aprendizaje "de sólo una" lengua extranjera. Estos "paracaídas" podría permitir a muchos lectores (quizás) estar en los pies.
Buena suerte de todos modos. Yo deseo todo lo mejor a cualquier persona con un cerebro.

Sin embargo, mis más queridos asesoramiento a todos los amigos es la siguiente: aprender a disfrutar de su contingente actual, no se obsesione por el futuro. Carpe diem, disfrutar de lo actual y las emociones: un cielo estrellado, un nuevo viento, los depósitos a la orilla del mar, su amor a su lado en la noche, una larga charla en la noche de penumbra con un amigo, la sonrisa de sus hijos. * * Que sustituir con un TV o una pantalla de computadora-es una muy mala negociación ... que es una de las pocas cosas que ahora estoy bastante seguro .

Adiós a todos mis lectores, un fuerte abrazo a los muchos amigos que hice en todo el mundo. Una gran experiencia para mí! Voy a continuar como lo que yo manejo, voy a intentar incluso celebrar una última charla en Colonia a finales de mayo, pero dudo que voy a manejar, de todos modos y pronto mis sitios no se actualizará más, a menos que mis amigos cuidará y elaboraran algún tipo de wiki / blog (y la vigilancia y las instalaciones correccionales) para permitir esto. Vamos a ver.
Pero no se preocupe en lo más mínimo: si no aprenden a búsqueda encontrará otros buenos recursos de todos modos. Hay abundancia de todo, después de todo.
Sí! Hay buena información en la web, aunque oculto y enterrado detrás o debajo de viscosa morasses de adornos inútiles, se desplazan las dunas de basura comercial y una increíble cantidad de contenido vacío y totalmente inútil "cebo" sitios de publicidad.
Sin embargo, la estructura misma web se hizo para compartir, no para la acumulación y seguramente no para "vender", que nunca olvidará! Por lo tanto, los usuarios pueden tomar ventaja de este ... Un buen conocimiento de los principales protocolos de la Web, un buen navegador y nuestra confianza Wireshark y nadie va a detener de un poderoso buscador para encontrar lo que fantaseas :-)

Concedido hay de hecho un montón de cosas sobre searchlores obsoletos, y-como ya se ha dicho-la-bizantino laberíntica estructura del sitio que se han racionalizado desde hace mucho tiempo.
Sin embargo, aunque en parte obsoleto (pero rara vez es verdadero conocimiento obsoleto, ¿no?) He decidido dejar en línea todos los que se reunieron y ofrecieron a lo largo de muchos años como es, y en la medida en que permanecerá en la web, porque creo que aún hay una gran riqueza de conocimiento libre de la búsqueda aquí, a la espera de esos entre mis visitantes que estén interesados en aprender y dominar el difícil arte de dos búsquedas en la web y la inversión de todo lo que encuentran.

Si-como dicen algunos-la gente de todo nuestro planeta hizo uso de aprender lo que ofrece, mi vida no se desperdicia: =)

http://penelope.uchicago.edu/Thayer/E/Roman/Texts/Rhetorica_ad_Herennium/home.html

De nuevo aqui con el brute

2009-04-09T09:38:00.000-07:00

Hola gente aqui dejo el brute force que habia posteado hace un tiempo, si bien no lo he mejorado mucho, algo le he cambiado... debido a mi falta de tiempo y un poco de vagancia ja... le he mejorado un poco al brute en si y le he agregado un port scanner.
Bueno el port scanner esta mas o menos comentado, creo que ya sabran que es un escaneador de puertos... en fin andar anda ja, eh hecho las siguientes pruebas y me han dado resultados. Probe con mi router la velocidad de respuesta, aunque parezca ilogico fue mas lenta que la velocidad de respuesta del server de mi isp :S... eso no lo entiendo todavia... Probe con el server de mi isp.. o sea para probar con 1 salto (o sea mi router), y luego con un server de cti para probar con mas de un salto. En todos logre respuesta en algunos puertos dandome los siguientes resultados:

Victima: Mi router
Puertos abiertos: 23,21,80
Respuesta:
21 : login

23 : Welcom to Vulcan ....

80: sin respuesta (esta bloqueado por configuración)
--------------------------------------------------------------
Victima: ns1.riotel.com.ar

Puertos abiertos:

22 Respuesta: SSH-2.0-OpenSSH_3.6.1p2

25 Respuesta: 220 smtp.riotel.com.ar ESMTP Postfix (Debian/GNU)

53 Sin Respuesta

80 no revise bien pero me dio sin respuesta a simple vista

110 Respuesta: +OK Hello there.

------------------------------------------------------------
Victima: claro.com.ar

Puertos abiertos:
21 y 80
Respuesta:

21: sin respuesta

80: pagina web

------------------------------------------------------------

En fin aca les dejo la descarga:

Algunos articulos y manuales de algoritmica, programacion, compiladores y programación orientada a objetos

2009-02-17T07:58:00.000-08:00

Bueno aqui dejo algunos artículos y tutoriales que vi en un espacio:

Bueno esto son la introducción para aprender a programar, luego ire posteando lenguajes y un poco mas avanzados.

Mi colección de E-Zines

2009-02-16T10:49:00.000-08:00

Bueno aca dejo mi colección de e-zines que he ido recolectando con el paso de los años:

aqui dejo los links:

Parte 1

Parte 2

Bueno aqui posteo la lista de e-zines que contiene mi colección:

0ri0n Team Venezuela ---> 1 a 4
7a69 ---> 1 a 15
ACID KLAN ---> 1 a 4
CDLR - Proyecto R ---> 1 a 11
CDT - Cultura Digital Team ---> 0 a 3
CIA ---> 1 a 7
DisidentS! Hack Journal ---> 1 a 8
EKO - EZKRACHO SECURITY TEAM ---> 1 a 4
Electron security team ---> 1 a 4
FIH - FOROS INFORMATICOS HISPANOS ---> 1 a 3
Gedzac ---> 1 a 3
HACKERSS ---> 1 a 3
HACKMEX ---> 1
HH - Hack Hispano ---> 1 a 3
Hispabyte ---> 1 a 4
HVEN - Hackers Venezuela ---> 1 a 3
IH - INSANE HACKERS ---> 1 a 3
MHM - MEXICAN HACKERS MAFIA ---> 1 a 7
NetSearch ---> 1 a 8
Phrack ---> 65 en español
RAREGAZZ ---> 1 a 19
Raza Mexicana ---> 1 a 20
RTM - Essentials ---> 1 a 5
SAQUEADORES ---> 1 a 35 + bonus
Sinmoney ---> 1
SWP - Security Wari Project ---> 1 a 6
WEET_DEVILS HACK TEAM ---> 1

Bueno esta es mi coleccion que esta creciando desde 1999, si bien no estan todas las que existen y existieron desde esa epoca pues de a poquito seguire buscando y agregando. Si alguien quiere aportar Bienvenido sea ;)
Saludos

Códigos anti debug para VB6

2009-01-18T10:55:00.000-08:00

Pues eso aca dejo algunos codigos antidebugging que se usar para mis aplicaciones:

Para VB6:

Debug.Print 1 / 0

Esta sentencia genera una exepción de división por cero cuando la aplicación es debugueda.

____________________________________________________________________________

Public Declare Function IsDebuggerPresent Lib "kernel32" () As Long
Private Sub Form_Load()
If IsDebuggerPresent Then
........
End Sub

Ejemplo de como detectar un debugger con la rutina de kernel32, IssDebuggerPresent

____________________________________________________________________________

Public Declare Function OutputDebugStringA Lib "kernel32" (ByVal lpString As String) As Long

Private Sub Form_Load()
Dim AA As String
Dim i As Integer

For i = 1 To 200
AA = AA & "%s"
Next i

MsgBox OutputDebugStringA(AA)
End Sub

Este code genera una exepción de desbordamiento de pila en algunos debuggers, mas específicamente el olly 1.10.Lo hace entrar en Deadlock
____________________________________________________________________________

'---------------------------------------------------------------------------------------
' Module : mGetProcAddress
' DateTime : 06/10/2008 20:06
' Author : Cobein
' Mail : cobein27@hotmail.com
' WebPage : http://www.advancevb.com.ar
' Member of : http://hackhound.org/
' Purpose : GetProcAddress alternative function
' Usage : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
' applications, but you may not reproduce
' or publish this code on any web site,
' online service, or distribute as source
' on any media without express permission.
'
' Reference : Based on ExtremeCoder sample [http://www.rohitab.com/discuss/lofiversion/index.php/t30773.html]
'
' History : 06/10/2008 First Cut....................................................
' 06/10/2008 Minor change in buffer size to increase speed................
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String

Public Function GetProcAddressAlt(ByVal sLib As String, ByVal sMod As String) As Long
Dim lLib As Long
Dim i As Long

lLib = LoadLibraryA(sLib)

If Not lLib = 0 Then
Dim dwNumberOfNames As Long
Dim dwNamesOffset As Long
Dim dwNameRVAs As Long
Dim dwFuncOffset As Long
Dim dwFuncRVAs As Long

GetMem4 (lLib + &H3C), i
GetMem4 (lLib + i + &H78), i

GetMem4 (lLib + i + &H18), dwNumberOfNames
GetMem4 (lLib + i + &H20), dwNamesOffset
GetMem4 (lLib + i + &H1C), dwFuncOffset

Dim sBuff As String * 128
Dim sName As String

For i = 0 To dwNumberOfNames - 1
GetMem4 (lLib + dwNamesOffset + i * &H4), dwNameRVAs
GetMem4 (lLib + dwFuncOffset + i * &H4), dwFuncRVAs

sBuff = SysAllocString(lLib + dwNameRVAs)
sName = Left$(sBuff, lstrlen(sBuff))

If sName = sMod Then
GetProcAddressAlt = lLib + dwFuncRVAs
Exit Function
End If
Next
End If

End Function

Este modulo sirve para buscar nombre de procesos tales como: ollydbg, snd, etc.
Con el pueden saber si se ha cargado X programa, se puede mejorar el modulo para que detecte si la cadena ingresada se encuentra en una porción del modulo con el cual esta siendo comprobada, en ese caso detectaria algunas variantes de olly, ya que la mayoria agregan por ejemplo: Yoda's - olldbg. Entonces si comparamos con olly nos daría que son distintas pero si lo hacemos como si fuera un Like, o sea q sea igual o este contenida nos devolvería ese proceso sospechoso tbn.

____________________________________________________________________________
Private Declare Function OutputDebugStringA Lib "kernel32" (ByVal lpString As String) As Long

Private Sub Form_Load()
If IsDebuggerActive Then
MsgBox "Debugger Present"
End If
End Sub

Private Function IsDebuggerActive() As Boolean
IsDebuggerActive = Not (OutputDebugStringA("=)") = 1)
End Function

Otro ejemplo con OutputDebugStringA pero en este caso genera una exepción.

____________________________________________________________________________

Option Explicit

Private Declare Function CheckRemoteDebuggerPresent Lib "kernel32.dll" (ByVal hProcess As Long, fResult As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Sub Form_Load()

Dim fResult As Long
Dim hProcess As Long

hProcess = OpenProcess(ByVal PROCESS_ALL_ACCESS, ByVal 0&, ByVal GetCurrentProcessId)
Call CheckRemoteDebuggerPresent(hProcess, fResult)
CloseHandle hProcess
.........

End Sub

En este caso testeamos remotamente q nuestro programa no sea debuggeado, si es debuggeado fResult nos dara 1 como valor.
____________________________________________________________________________

'IsDbgCrss
Private Declare Function CsrGetProcessId Lib "ntdll.dll" () As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

'---------------------------------------------------------------------------------------
' Procedure : IsDbgCsrss
' Author : Karcrack
' Date : 30/12/2008
' Purpose : Check if our app is being debugged
' Usage : If IsDbgCrss = True Then MsgBox "I'm Debugged"
' Tested On : OllyDbg v2.0 ß
' Reference : http://www.piotrbania.com/all/articles/antid.txt
'---------------------------------------------------------------------------------------
'
Public Function IsDbgCsrss() As Boolean
IsDbgCsrss = CBool(OpenProcess(&H1F0FFF, 0, CsrGetProcessId)) '&H1F0FFF = PROCESS_ALL_ACCESS
End Function

Este codigo detecta si se esta debugueando nuestra aplicación.
____________________________________________________________________________

Option Explicit

Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUID
LowPart As Long
HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLUID As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"

Public Declare Function RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue As Boolean, ByVal OldValue As Boolean, ByVal WinLogon As Boolean)

Public Function ObtenerPrivilegios(ByVal privilegio As String) As Long

Dim lpLUID As LUID
Dim lpToken As TOKEN_PRIVILEGES
Dim lpAntToken As TOKEN_PRIVILEGES
Dim hToken As Long
Dim hProcess As Long
Dim res As Long

hProcess = GetCurrentProcess()
res = OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)
If res = 0 Then
Exit Function
End If
res = LookupPrivilegeValue(vbNullString, privilegio, lpLUID)
If res = 0 Then
Exit Function
End If
With lpToken
.PrivilegeCount = 1
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
.Privileges(0).pLuid = lpLUID
End With

res = AdjustTokenPrivileges(hToken, False, lpToken, Len(lpToken), lpAntToken, Len(lpAntToken))
If res = 0 Then
Exit Function
End If
ObtenerPrivilegios = res
End Function

'*************************************************************************
'*************************************************************************
' Uso de RtlSetProcessIsCritical para setear nuestro proceso, como proceso
' critico del sistema: del mismo modo que csrss.exe o winlogon
' XcryptOR - Made In Colombia
'**************************************************************************
'*************************************************************************
Private Sub Form_Load()
On Error Resume Next
ObtenerPrivilegios SE_DEBUG_NAME ' obtiene privilegios de Debugeo
Call RtlSetProcessIsCritical(0, 0, 1) ' setea nuestro proceso como Proceso Critico
End Sub

Bueno como dice el comentario para setear a nuestra aplicación privilegios.

____________________________________________________________________________

Y por ultimo algunos trucos para dificultar un poco mas:

App.TaskVisible = False

App.Title = ""

Saludos

Modulos utiles a la hora de programar en vb6

2008-11-25T16:08:00.000-08:00

Hola aca dejo algunos módulos que son bastantes útiles a la hora de programar, modificar registro de windows, detectar version de windows, capturas de pantalla y escalar privilegios en win XP, NT, etc:

====================================================================================
Detectar versión, devolver revisión y compilación:

====================================================================================
Option Explicit
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
wSPMajor As Integer
End Type

Public Enum EnumWinVer
Win95 = 0
Win95OSR2 = 1
Win98 = 2
Win98SE = 3
WinME = 4
WinNT3_0 = 5
WinNT3_1 = 6
WinNT3_5 = 7
WinNT4 = 8
WinNT5 = 9
Win2k = 10
WinXP = 11
WinVista = 12
End Enum

Public Function Winversion(param As Integer) As EnumWinVer
Dim myVer As OSVERSIONINFO
Dim dl&
myVer.dwOSVersionInfoSize = 148
dl& = GetVersionEx&(myVer)
If param = 1 Then 'param=1 devuelve la versiòn de Windows (95, 98,ME, 2000, XP, Vista)
If myVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If myVer.dwMajorVersion = 4 And myVer.dwMinorVersion = 0 Then
If myVer.dwBuildNumber = 950 Then
GetVersion = Win95
Else
GetVersion = Win95OSR2
End If
ElseIf myVer.dwMajorVersion = 4 And myVer.dwMinorVersion = 10 Then
If myVer.dwBuildNumber = 1998 Then
GetVersion = Win98
Else
GetVersion = Win98SE
End If
ElseIf myVer.dwMajorVersion >= 4 And myVer.dwMinorVersion > 10 Then
GetVersion = WinME
End If
ElseIf myVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then
If myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 0 Then
GetVersion = WinNT3_0
ElseIf myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 1 Then
GetVersion = WinNT3_1
ElseIf myVer.dwMajorVersion = 3 And myVer.dwMinorVersion = 5 Then
GetVersion = WinNT3_5
ElseIf myVer.dwMajorVersion = 4 Then
GetVersion = WinNT4
ElseIf myVer.dwMajorVersion = 5 And myVer.dwMinorVersion = 0 Then
GetVersion = Win2k
ElseIf myVer.dwMajorVersion = 5 And myVer.dwMinorVersion = 1 Then
GetVersion = WinXP
ElseIf myVer.dwMajorVersion = 6 And myVer.dwMinorVersion = 1 Then
GetVersion = WinVista
End If
End If
Else
If param = 2 Then 'param=2 devuelve la Compilación
Winversion = osvi.dwBuildNumber
Else
If param = 3 Then 'Param=3 devuelve la revisión
Winversion = osvi.szCSDVersion
Else
If param = 4 Then
Winversion = Str(osvi.dwMajorVersion) + "." + Trim(Str(osvi.dwMinorVersion))
Else
Winversion = MsgBox("El identificador seleccionado no es válido.", vbCritical, "Error #1Ver")
End If
End If
End If
End If
End Function

====================================================================================

Funciones para el Registro de Windows:
====================================================================================
Option Explicit

Global Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const REG_BINARY As Long = 3

Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003

Global Const ERROR_NONE = 0
Global Const ERROR_BADDB = 1
Global Const ERROR_BADKEY = 2
Global Const ERROR_CANTOPEN = 3
Global Const ERROR_CANTREAD = 4
Global Const ERROR_CANTWRITE = 5
Global Const ERROR_OUTOFMEMORY = 6
Global Const ERROR_INVALID_PARAMETER = 7
Global Const ERROR_ACCESS_DENIED = 8
Global Const ERROR_INVALID_PARAMETERS = 87
Global Const ERROR_NO_MORE_ITEMS = 259

Global Const KEY_ALL_ACCESS = &H3F

Global Const REG_OPTION_NON_VOLATILE = 0

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Declare Function RegSetValueExBinary Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)

Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegDeleteKey(lPredefinedKey, sKeyName)

End Function

Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteValue(hKey, sValueName)
RegCloseKey (hKey)
End Function

Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Dim bValue As String

Select Case lType
Case REG_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
Case REG_BINARY
bValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, bValue, Len(bValue))
End Select

End Function

Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String
Dim bValue As String

On Error GoTo QueryValueExError

lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5

Select Case lType
' Cadenas
Case REG_SZ:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch)
Else
vValue = Empty
End If

' Binario
Case REG_BINARY:
sValue = String(cch, 0)
lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, bValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(bValue, cch)
Else
vValue = Empty
End If

' DWORDS
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'Otros tipos
lrc = -1
End Select

QueryValueExExit:

QueryValueEx = lrc
Exit Function

QueryValueExError:

Resume QueryValueExExit

End Function
Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)

Dim hNewKey As Long
Dim lRetVal As Long

lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
RegCloseKey (hNewKey)
End Function

Sub Main()
'Ejemplos para llamar a cada función:
'CreateNewKey HKEY_CURRENT_USER, "Prueba\Rama1\Rama2"
'SetKeyValue HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba", "Probando, Probando", REG_SZ
'MsgBox QueryValue(HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba")
'DeleteKey HKEY_CURRENT_USER, "Prueba\Rama1|Rama2"
'DeleteValue HKEY_CURRENT_USER, "Prueba\Rama1", "Prueba"
End Sub

Public Function SetKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)

Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)

End Function

Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim lRetVal As Long
Dim hKey As Long
Dim vValue As Variant

lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
QueryValue = vValue
RegCloseKey (hKey)
End Function

====================================================================================

Funciones para hacer una captura de pantalla y guardarla:
====================================================================================

Option Explicit

Public Enum GpStatus
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
End Enum

Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long

SuppressExternalCodecs As Long

End Type

Public Type CLSID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

Public Enum ImageCodecFlags
ImageCodecFlagsEncoder = &H1
ImageCodecFlagsDecoder = &H2
ImageCodecFlagsSupportBitmap = &H4
ImageCodecFlagsSupportVector = &H8
ImageCodecFlagsSeekableEncode = &H10
ImageCodecFlagsBlockingDecode = &H20

ImageCodecFlagsBuiltin = &H10000
ImageCodecFlagsSystem = &H20000
ImageCodecFlagsUser = &H40000
End Enum

Public Type ImageCodecInfo
ClassID As CLSID
FormatID As CLSID
CodecName As Long
DllName As Long
FormatDescription As Long
FilenameExtension As Long
MimeType As Long
flags As ImageCodecFlags
Version As Long
SigCount As Long
SigSize As Long
SigPattern As Long
SigMask As Long
End Type

Public Enum EncoderParameterValueType
EncoderParameterValueTypeByte = 1
EncoderParameterValueTypeASCII = 2

EncoderParameterValueTypeShort = 3
EncoderParameterValueTypeLong = 4
EncoderParameterValueTypeRational = 5

EncoderParameterValueTypeLongRange = 6

EncoderParameterValueTypeUndefined = 7
EncoderParameterValueTypeRationalRange = 8

End Enum

Public Type EncoderParameter
GUID As CLSID
NumberOfValues As Long
type As EncoderParameterValueType
value As Long
End Type

Public Type EncoderParameters
count As Long
Parameter As EncoderParameter
End Type

Public Const EncoderQuality As String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
Public Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Public Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long)
Public Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hbm As Long, ByVal hpal As Long, bitmap As Long) As GpStatus
Public Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal image As Long, ByVal filename As String, clsidEncoder As CLSID, encoderParams As Any) As GpStatus
Public Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As GpStatus
Public Declare Function GdipGetImageEncodersSize Lib "gdiplus" (numEncoders As Long, size As Long) As GpStatus
Public Declare Function GdipGetImageEncoders Lib "gdiplus" (ByVal numEncoders As Long, ByVal size As Long, encoders As Any) As GpStatus
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pCLSID As CLSID) As Long
Private token As Long

Public Function SaveAsJPEG(pb As PictureBox, ByVal filename As String, Optional ByVal Quality As Long = 80) As Long
Dim stat As GpStatus
Dim bm As Long
Dim encoderCLSID As CLSID
Dim encoderParams As EncoderParameters
Dim lQuality As Long

stat = GdipCreateBitmapFromHBITMAP(pb.Picture.Handle, pb.Picture.hpal, bm)

Call GetEncoderClsid("image/jpeg", encoderCLSID)

If (stat = Ok) Then
lQuality = Quality
encoderParams.count = 1
With encoderParams.Parameter
.NumberOfValues = 1
.type = EncoderParameterValueTypeLong

.GUID = DEFINE_GUID(EncoderQuality)
.value = VarPtr(lQuality)
End With

stat = GdipSaveImageToFile(bm, StrConv(filename, vbUnicode), encoderCLSID, encoderParams)

End If

SaveAsJPEG = stat

Call GdipDisposeImage(bm)
End Function

Public Function gdipLoad() As Boolean

Dim GpInput As GdiplusStartupInput

gdipLoad = False
GpInput.GdiplusVersion = 1
If GdiplusStartup(token, GpInput) = Ok Then
gdipLoad = True
End If

End Function

Public Sub gdipUnLoad()
Call GdiplusShutdown(token)
End Sub

Public Function GetEncoderClsid(strMimeType As String, ClassID As CLSID)
Dim num As Long, size As Long, i As Long
Dim ICI() As ImageCodecInfo
Dim buffer() As Byte

GetEncoderClsid = -1

Call GdipGetImageEncodersSize(num, size)
If size = 0 Then Exit Function

ReDim ICI(1 To num) As ImageCodecInfo
ReDim buffer(1 To size) As Byte

Call GdipGetImageEncoders(num, size, buffer(1))

Call CopyMemory(ICI(1), buffer(1), (Len(ICI(1)) * num))

For i = 1 To num

If StrComp(PtrToStrW(ICI(i).MimeType), strMimeType, vbTextCompare) = 0 Then
ClassID = ICI(i).ClassID
GetEncoderClsid = i
Exit For
End If
Next

Erase ICI
Erase buffer
End Function

Public Function DEFINE_GUID(ByVal sGuid As String) As CLSID
Call CLSIDFromString(StrPtr(sGuid), DEFINE_GUID)
End Function

Public Function PtrToStrW(ByVal lpsz As Long) As String
Dim sOut As String
Dim lLen As Long

lLen = lstrlenW(lpsz)

If (lLen > 0) Then
sOut = StrConv(String$(lLen, vbNullChar), vbUnicode)
Call CopyMemory(ByVal sOut, ByVal lpsz, lLen * 2)
PtrToStrW = StrConv(sOut, vbFromUnicode)
End If
End Function

====================================================================================

Algo muy importante a la hora de hacer programas q requieran reiniciar windows, escribir un ejecutable cargado ya en memoria y otras cosas que necesiten que el programa escale privilegios:
====================================================================================

Option explicit

Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Public Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

====================================================================================
okas por ahora publico eso nomas.

Brute force Codigo fuente en vb6

2008-11-04T15:51:00.000-08:00

Cita un post viejo que vi por alli:
Bueno aqui os dejo un proyecto que se me ocurrio debido a mi proveedor de internet... Pes comenzemos por la historia... me remota a un par de semanas atras...
Pess bueno en aquellos dias me dedique a hacerme una pagina web para subirla... (antigüamente tenia subida a un host) pero queria que mi maquina se convirtiera en servidor web y bueno configure mysql y un server apache para dicho fin luego en mi cuenta de no ip cree un host y deje todo listo para subir mi pagina, probe en mi red interna ... en mi casa je, y funcaba todo de diez pero a la hora deconfigurar la redireccion de puertos en el modem router que me da la empresa (riotel) pesss me veo en que le han sacado el sistema de configuración web... (interno del modem) asi que decidi preguntar a mi isp que puertos tenia habilitados y bue me dijeron que tenia el 4889,5800 y 5900 para el uso de VNC o simil, 4662 y 4672UDP para emule, ares etc...

en fin como no me senti conforme entre a una web y me hice un port scan y me encuentro con el puerto 23 abierto chan?¿?¿?¿? O sea todos los modem routers poseen la cualidad de que se puede acceder a la configuración por web (http://192.168.1.1 por lo general), y por medio de TELNET jeje (en la consola de comandos se escribe telnet 192.168.1.1) pes bueno ... jejeje no tengo nada contra eso, cuando hice un trace con una pagina me listó todas las ips (públicas)de maquinas que tienen este servicio.. mmm que bueno probe entonces con una ip de la lista que me salio que no era la mia y bue... chachannnn entre en la pantalla de login de un modem de algun vecino de mi ciudad que posee la misma conexion que yo... psss como mi isp se tomo la modestia de comprarse unos modems y borrarle de la carcasa la marca y modelo, etc.. pss me puse a snifear con cain y que me tirara la lista de adaptadores en mi red y bue me dio que era de marca xavi... pss tonces en base a eso me guie por las fotos hasta que encontre un par que eran iguales ... mmm lei sus características y bue llegue a que el sistema de config a travez de telnet es similar.. usan chipsets de conexant corp... en esos chipsets contienen dos tipos de sistema uno es el viking y el que esta en mi modem es el vulcan... asi que estudie un poco el sistema y bue hice un par de pruebas con winsock y funco... pesss no he probado por ftp ... es un poco mas complicado segun estuve viendo jejeje. En fin aqui explico un poco lo que he programado y luego pondre el link del proyecto que hice y que voy a ir mejorando.

Pues bueno utilize un winsock una msflegrid las wordlist que trae el brutus ae y bue tambien utiliza el mscomctl.ocx y otros ocx... psss con tiempo los ire agregando.. aqui va el link y mas explicaciones

Link:

Definición de Ingeniería Inversa

2008-10-23T16:59:00.001-07:00

La ingeniería inversa se ha definido como el proceso de construir especificaciones de un mayor nivel de abstracción partiendo del código fuente de un sistema software o cualquier otro producto (se puede utilizar como punto de partida cualquier otro elemento de diseño, etc)...

Estas especificaciones pueden volver ser utilizadas para construir una nueva implementación del sistema utilizando, por ejemplo, técnicas de ingeniería directa.

La aplicación de ingeniería inversa nunca cambia la funcionalidad del software sino que permite obtener productos que indican cómo se ha construido el mismo. Se realiza permite obtener los siguientes beneficios:

Reducir la complejidad del sistema.

Generar diferentes alternativas.

Recuperar y/o actualizar la información perdida (cambios que no se documentaron en su momento).

Detectar efectos laterales.

Facilitar la reutilización.

La ingeniería inversa puede ser de varios tipos:

Ingeniería inversa de datos: Se aplica sobre algún código de bases datos (aplicación, código SQL, etc) para obtener los modelos relacionales o sobre el modelo relacional para obtener el diagrama entidad-relación

Ingeniería inversa de lógica o de proceso: Cuando la ingeniería inversa se aplica sobre código de un programa para averiguar su lógica o sobre cualquier documento de diseño para obtener documentos de análisis o de requisitos.

Ingeniería inversa de interfaces de usuario: Se aplica con objeto de mantener la lógica interna del programa para obtener los modelos y especificaciones que sirvieron de base para la construcción de la misma, con objeto de tomarlas como punto de partida en procesos de ingeniería directa que permitan modificar dicha interfaz.

Bios, passwords y otras hierbas

2008-10-17T10:28:00.000-07:00

Bueno aqui publico como se resetean los bios , no exactamente es todo código sino mas bien metodos, si bien tambien posteare algunos codigos implementados en c, Pascal, Delphi, Ensamblador y otros lenguajes.

Bueno aqui va:
Cómo desactivar la contraseña de una BIOS

Hay tres formas de desactivar una contraseña. Dos de estas formas son relativamente sencillas de llevar a cabo:

La primera consiste en abrir la CPU y quitar la pila de la placa base, esperar de 3 a 5 segundos y volverla a colocar. Al quitar la pila los datos de la CMOS se pierden, incluida la contraseña. La mayoría de las placas base incluyen unos jumpers que permiten resetear la CMOS sin necesidad de extraer la pila.

La segunda forma consiste en eliminar la contraseña provocando un error en la BIOS del sistema. Cuando se guarda la configuración de una BIOS, esta (casi todas las versiones lo hacen) genera un CRC en la que intervienen los parámetros de dicha configuración. Cuando se accede a la BIOS, dicho programa realiza de nuevo la operación del CRC y lo compara con el resultado que tenía previamente almacenado. De esta forma verifica que no se ha cambiado ningún dato de manera intencionada o por error. Si así sucediera, la BIOS reinicia los datos de la CMOS y con ellos el password, el cual deja de estar activo y permite el acceso a la BIOS.

El problema de estas dos formas de desactivación de un password reside en que en los dos casos se pierde la configuración del sistema.

La tercera forma es específica, mediante programación.

Codificación de un password de la BIOS Award

El algoritmo en cuestión es bastante deficiente y el resultado de dicho algoritmo es un dato de tipo word sin signo (2 bytes) que se guarda en una posición de la CMOS que puede variar con respecto a la versión de esta. Algunas versiones de esta BIOS guardan dos passwords pero usan el mismo método de codificación.

La codificación es bien simple. Consiste en sumar el código ASCII de cada una de las letras que forman el password, pero antes de pasar a sumar la siguiente letra, multiplica el resultado por 4. Es decir, coge una letra, lo multiplica por 4, le suma la segunda, multiplica este resultado por 4 y así hasta sumar la última letra del password (máximo 8 caracteres). Como he dicho, el resultado se almacena en 2 bytes, el número entero sin signo más alto que se puede representar en 2 bytes es 65535. Si el resultado del algoritmo es mayor a 65535, se divide ese resultado entre 65536. Toma el resultado entero obtenido de esa división y lo suma al resto de dicha división. Ese dato obtenido será el entero sin signo (2 bytes) que se almacenará en la CMOS.

La verdad es que a nivel de código de máquina es más sencillo. Trabaja sobre un registro de tipo word, tamaño de dos bytes. Realiza la suma del ASCII de cada letra y hace un desplazamiento de bits dos posiciones hacia la izquierda. Al final, si el flag de acarreo está activado, es decir, si en cualquiera de los desplazamientos a la izquierda, se escapa algún bit, le suma al resultado un 1.

Por ejemplo... Si el password en cuestión es Dragon
El código ASCII de estas letras es: D = 68 r =114 a = 97 g =103 o = 111 n =110
Teniendo el cuenta que inicialmente el resultado = 0, sumamos y multiplicamos por 4 cada resultado:
(4 * 68) + 114 = 386
(4 * 386) + 97 = 1641
(4 * 1641) + 103 = 6667
(4 * 6667) + 111 = 26779
(4 * 26779) + 110 = 107226

Lo que hay que hacer en este caso es dividir 107226 entre 65536, quedarnos con el resto, y al resto sumarle el nº de múltiplos de 65536 obtenido:
107226 / 65536 = 1 , resto = 41690 >> 41690 + 1 = 41691.

Para no complicarse la existencia, como las operaciones de suma y multiplicación no van a dar un resultado cuyo tamaño en memoria sea superior a 3 bytes, no sería necesario hacer divisiones. Bastaría con restar al nº obtenido 65535, va a dar lo mismo 107226 - 65535 = 41691. En definitiva, es truncar el resultado si es mayor de 65535.

El resultado es 41691 que separado en 2 bytes es 162 y 219 ((162 * 256) + 219).

Este algoritmo es deficiente porque este resultado se puede obtener con mas de una (mas de 200000) combinaciones de caracteres diferentes.

Sabiendo esto, es fácil implementar un programa que codifique o descodifique dicho password para poder acceder así a cualquier BIOS. De todas formas también se puede implementar un programa que descodifique el password por fuerza bruta, pero eso... es otra historia ^_^.

Cómo acceder a la CMOS

A la CMOS de cualquier placa base (PC) se accede mediante 2 puertos físicos:

El puerto 112 (70h) de escritura, en el que se indica la dirección o posición del dato que se va a leer o escribir en la CMOS. El tamaño máximo de una CMOS suele ser de 256 bytes y cada BIOS usa un nº determinado de estos bytes, normalmente hasta 128. Luego el rango de escritura en ese puerto va de 0 a 255.
El puerto 113 (71h) de lectura/escritura en el que se lee o escribe el dato de la posición indicada en el puerto 112.

Códigos de ejemplo para resetear la CMOS ya sea Award, Ami Bios o la que sea

Para causar un error de CRC en la BIOS solo es necesario cambiar uno de los datos que intervienen el la operación de dicho CRC o el resultado en si. Si no se sabe cuál es la posición en la que se encuentra dicho resultado o los datos que intervienen en esa verificación lo más seguro es reescribir toda la CMOS con un dato aleatorio. El siguiente código logra nuestro propósito.

Lenguaje C++

#pragma hdrstop
#include
#include
#include

#pragma argsused
int main(int argc, char **argv)
{
char buffer[83];
char *p;

printf("Programado por Emiliano Traba");
buffer[0] = 1;
p = cgets(buffer);
asm
{
mov dx, 70h
mov al, 00000
out dx, al
int 21h
}
}

Lenguaje Pascal/Delphi

procedure ResetCMOS;
var intPos: integer;
begin
for intPos := 0 to255 do
begin
port[112] := intPos;
port[113] := 1;
end;
end

Lenguaje Ensamblador

MOV CX, 00FFh;
@Bucle:
MOV DX, 70h;
MOV AX, CX;
OUT DX, AX;
MOV DX, 71h;
MOV AX, 1h;
OUT DX, AX;
LOOP @Bucle;

o bien

mov dx, 070h
mov al, 02Eh
out dx, al
inc dx
xor al, al
out dx, al

Con el debug de DOS

* debug
* o 70 2E
* o 71 FF
* Q

o bien

* debug
* o 70 17
* o 71 17
* Q

Con QBasic o Basic

* 10 OUT &H70,17
* 20 OUT &H71,0

o bien

* OUT &H70,&H17 UT &H71,&H17

Una vez ejecutado ese código y reiniciado el ordenador la BIOS presentará un mensaje de error de CRC, reseteará los datos de la CMOS y entrará automáticamente en la BIOS para configurar de nuevo el sistema. En ese momento el sistema ya es nuestro. Podemos reactivar disquetera, anular otros dispositivos etc...

Códigos de ejemplo sobre codificación del pass de una BIOS Award y AmiBios

Con unos mínimos conocimientos en programación, a partir de la descripción dada sobre la codificación de un password en una BIOS Award podemos generar un código que haga dicha función. El propósito de este código sería devolver un entero a partir de un password que nosotros tecleemos. Damos por validado que ese password no es mayor de 8 letras.

Código en Pascal para bios Award:

function EncodePass(strPass: string): integer;
var intPos: integer;
LngRes: longint;
begin
intPos := 1;
lngRes := 0;
while intPos <= ord(strPass[0]) do
begin
lngRes := (lngRes * 4) + ord(strPass[intPos]);
inc(intPos);
end;
if lngRes > 65535 then
lngRes := (lngRes div 65536) + (lngRes mod 65536);
Result := lngRes;
end;

El resultado de esta función es un entero de 2 bytes. Para separar el resultado de la función en 2 bytes no hay mas que dividir ese dato por 256, quedarnos con el número de múltiplos obtenido en esa división y su resto. De tal forma que un entero esta compuesto por (múltiplos*256)+resto)

Nota: Delphi dispone de las funciones Hi() y Lo() para separar ambos bytes.

Una vez resuelta esta función, sólo quedaría saber en qué posición de la CMOS se guarda ese resultado, observar si guarda primero el byte de mayor peso o biceversa y hallar de qué manera afecta ese dato en la operación de CRC para generar un CRC válido. Esta operación es sencilla y no tiene mas complicación que realizar comparaciones de los passwords introducidos en la BIOS con los datos modificados en la CMOS.

Descodificación del pass de una BIOS Award

Hay dos formas de conseguir el password de una Award. Directamente por ingeniería inversa, o por fuerza bruta. A continuación se detallan las dos formas.

Por Fuerza bruta:

Este método consiste en realizar constantemente comparaciones de una cadena literal generada por software y codificada (ver función EncodePass) con el resultado existente en la CMOS, hasta encontrar aquella cadena cuya codificación coincida con dicho resultado. No necesariamente debe terminar cuando encuentre una cadena literal válida. Se puede continuar el escaneo para observar que el número de contraseñas válidas es inmenso, demostrando la deficiencia del algoritmo empleado por estas BIOS. Como contrapunto señalar que este método es bastante lento.

El siguiente ejemplo muestra una función a la que se le pasa el entero que hay en la CMOS (intCmos) y devuelve solamente una cadena válida, si la hay:

Lenguaje Delphi:

function GetPass(intCmos: integer): string;
var arrCadena: array[0..7] of char;
intPos: byte;
bfound, bOk, bTop: Boolean;
strResultado: string;
begin
bFound := False;
bTop := False;
strResultado := '';
strPCopy(arrCadena, ' '); // Llenamos el buffer con espacios
while (not bFound) and (not bTop) do
begin
intPos := 0;
bOk := False;
repeat // Generamos cadena literal
if ord(arrCadena[intPos]) = 255 then
begin
arrCadena[intPos] := chr(32);
inc(intPos);
if intPos = 8 then bTop := True; // Todas las cadenas evaluadas...
end else
begin
arrCadena[intPos] := chr(ord(arrCadena[intPos]) + 1);
bOK := True;
end;
until bOk or bTop;
if bOK then
begin
bFound := (EncodePass(string(arrCadena)) = intCmos);
if bFound then strResultado := string(arrCadena);
end;
end;
Result := strResultado;
end;

Por ingeniería inversa:

Este método consiste en tratar de conseguir un password válido realizando para ello el proceso contrario a la operación de codificación (y = x + 2 >> x = y - 2). Para ello lo que se trata de hacer es restar del dato de la CMOS un valor, dividirlo entre 4, y así sucesivamente procurando que el ultimo resto sea mayor de 32 y menor de 122, asegurando así que ese password no contiene caracteres especiales. Si el último valor no se encuentra en ese rango hay que retroceder y probar con otro valor. Así hasta encontrar un password válido, que no tiene por qué ser el introducido en un principio (de hecho, es improbable que lo sea). La ventaja del método de ingeniería inversa sobre la fuerza bruta es indudable. El resultado es instantáneo.

En el siguiente código pasamos el entero que contiene la CMOS y la función devolverá un password válido generado por el método de ingeniería inversa. Este código no verifica la existencia de caracteres especiales en el password generado pero no es difícil implementarlo.

function GetPassAward(intCmos:integer): string;
var strTexto: string;
intLetra: integer;
begin
strTexto := '';
while intCmos > 123 do
begin
intLetra := 122;
while ((intCmos - intLetra) mod 4) <> 0 do
dec (intLetra);
strTexto := chr(intLetra) + strTexto;
intCmos := (intCmos - intLetra) div 4;
end;
strTexto := chr(intCmos) + strTexto;
Result := strTexto;
end;

Notas:

Las BIOS AWARD dependiendo de la versión, guardan 1 o 2 contraseñas.

La primera contraseña se encuentra en las posiciones 28 (1Ch) y 29 (1Dh) de la CMOS, siendo 1Ch el byte menos significativo.

El CRC para la primera contraseña consiste en sumar los bytes desde la posición 16 (10h) a la 45 (2Dh) inclusive de la CMOS y el resultado de dos bytes los guarda en las posiciones 46 (2Eh) y 47 (2Fh), siendo 2Fh el byte menos significativo.

El byte de la posición 17 (11h) de la CMOS (concretamente los dos primeros bits) contiene la información que indica que el password está activado (bits a 1) o desactivado (bits a 0). Para ponerlos a 0 solo habría que aplicar la máscara AND 0x11111100 (FCh) a dicho byte.

La segunda contraseña se encuentra en las posiciones 96 (60h) y 97 (61h) de la CMOS, siendo 60h el byte menos significativo. El CRC y los bits de des/activación del password no los he comprobado.

Decodificación del pass de una bios Ami

Lenguaje QBasic:

seed = reg(0) AND &HF0

PRINT "Calculating."
FOR count = 1 TO 6
PRINT ".";
bioschar = reg(count)
decchar = 0
IF bioschar <> 0 THEN
DO
decchar = decchar + 1
pass = 0
FOR bit = 0 TO 7
IF (&HC3 AND 2 ^ bit) = 2 ^ bit AND (seed AND 2 ^ bit) = 2 ^ bit THEN
pass = (pass + 1) MOD 2
END IF
NEXT bit
seed = INT(seed / 2) + pass * 128
LOOP WHILE seed <> bioschar
bpass$ = bpass$ + CHR$(decchar)
ELSE
count = 6
END IF
NEXT count

Award:
* 01322222
* 1EAAh
* 256256
* 589589
* 589721
* ?award
* admin
* alfarome
* aLLy
* aPAf
* award
* award_?
* award.sw
* AWARD SW
* AWARD_SW
* AWARD_PW
* award_ps
* AWARD?SW
* awkward
* BIOS
* bios*
* biostar
* biosstar
* CONCAT
* CONDO
* condo
* djonet
* efmukl
* g6PJ
* h6BB
* HELGA-S
* HEWITT RAND
* HLT
* j09F
* j256
* j262
* j322
* j64
* lkw peter
* lkwpeter
* PASSWORD
* SER
* setup
* SKY_FOX
* SWITCHES_SW
* Sxyz
* SZYX
* t0ch88
* t0ch20x
* ttptha
* TTPTHA
* TzqF
* wodj
* ZAAADA
* zbaaaca
* zjaaadc
* zjaaade

Ami:
* ami
* amidecod
* amipswd
* AMIPSWD
* AMI
* A.M.I.
* aammii
* AMI~
* amiami
* AMI.KEY
* AMISETUP
* AMI?SW
* AMI!SW
* AMI_SW
* bios310
* BIOSPASS
* CMOSPWD
* KILLCMOS
* 589589
* ami.kez
*ami°
* helgaßs
* HEWITT RAND

Vobis:
* merlin

Advance Integration:
* Advance

ALDI (Medion):
* medion

Amptron:
* Polrty

AST:
* SnuFG5

Biostar:
* Biostar
* Q54arwms

Concord:
* last

CTX International:
* CTX_123

CyberMax:
* Congress

Daytek und Daewoo:
* Daytec
* Daewuu

DELL:
* DELL

Digital Equipment:
* komprie

Enox:
* xo11nE

Epox:
* central

Freetech:
* Posterie

HP Vectra Serie:
* hewlpack

IBM:
* IBM
* MBIUO
* sertafu

Iwill
* iwill

Jet Way:
* spoom1

Joss Technology:
* 57gbz6
* Technolgi

MachSpeed:
* sp99dd

Magic-Pro:
* prost

Megastar:
* Star

Micron:
* sldkj754
* xyzall

Micronics:
* dn_04rjc

M Technology:
* mMmM

Nimble:
* xdfk9874t3

Packard Bell:
* Bell9

QDI:
* QDI

Quantex:
* teX1
* xljlbj

Research:
* Col2ogro2

Shuttle:
* Spacve

Siemens Nixdorf:
* SKY_FOX

Speedeasy:
* lesarot1

SuperMicro:
* ksdjfg934t

TMC:
* BIGO

Toshiba:
* 24Banc81
* Toshiba
* toshy99

Vextrec Technology:
* Vextrec

WIMBIOSnbsp BIOS v2.10:
* Compleri

Zenith:
* 3098z
* Zenith

Zeos:
* zeosx

Compaq:
*compaq

Tinys:
*Tiny

METHOD _____ SYSTEM

* Del during boot _____ AMI, Award
* Esc during boot _____ Toshiba
* F1 during boot _____ Toshiba; Phoenix; Late model PS/1 Value Point and 330s
* F2 during boot _____ NEC
* F10 when square in top RH corner of screen _____ Compaq
* Ins during boot _____ IBM PS/2s w/ Reference Partition
* Reset twice _____ Some Dells
* Alt Enter _____ Dell
* Alt ? _____ Some PS/2s
* Ctrl-Esc _____ General
* Ctrl Ins _____ Some PS/2s when pointer at top right of screen
* Ctrl Alt Esc _____ AST Advantage, Award, Tandon
* Ctrl Alt + _____ General
* Ctrl Alt S _____ Phoenix
* Ctrl Alt Ins _____ Zenith, Phoenix
* Ctrl S _____ Phoenix
* Ctrl Shift Esc _____ Tandon 386
* Shift Ctrl Alt + Num Pad Del _____ Olivetti PC Pro
* Setup disk _____ Old Compaqs, Epson (Gemini), IBM, IBM PS/2, Toshiba, most old 286s

Regiones para tus forms en vb6

2008-10-17T10:18:00.000-07:00

Hola ahora voy a postear como dibujar regiones para derle la forma que quieras a tus forms en vb6, es un antigüo codigo que tengo generado por Arturo Guzman Guerra, que me ha servido en algunos programas que he hecho.

En fin aqui va el codigo con explicación:

Declaraciones de constantes , tipos y funciones:

'Región con las partes que se interpolan entre dos regiones
Public Const RGN_AND = 1
'Región mediante la copia de una de las regiones origen
Public Const RGN_OR = 2
'Región con las partes de dos regiones que no se solapan
Public Const RGN_XOR = 3
'Región con las partes de una región que no interseccionan con la otra
Public Const RGN_DIFF = 4
'Región mediante la copia de una de las regiones origen
Public Const RGN_COPY = 5
'Redundantes pero bueno
Public Const RGN_MAX = RGN_COPY
Public Const RGN_MIN = RGN_AND

'Tipo de dato RECT
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type POINTAPI
x As Long
y As Long
End Type

'Región eliptica o circular mediante 4 coordenadas
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Región eliptica o circular mediante una estructura RECT
Public Declare Function CreateEllipticRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
'Región poligonal
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'Región consistente en una serie de poligonos
Public Declare Function CreatePolyPolygonRgn Lib "gdi32" (lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
'Región rectangular
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'Región rectangular con una estructura RECT
Public Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
'Región rectangular con los bordes redondeados
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'Para convinar varias regiones en una
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
'Establece la región en la ventana correspondiente
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Forma de uso, en este caso se toma la forma rectangular con bordes redondeados, el cual lleva 6 valores el primer par son X1 e Y1, los cuales son lado izquierdo y parte superior del form, X2 e Y2, lado derecho y parte posterior del form, y por último X3 e Y3, este ultimo par da el grado de redondeo de cada esquina es un valor para los cuatro vertices , solo que con un valor separado para las X y otro para las Y, en fin aca va su aplicación:

Public Sub EstablecerRegionPruebas()
Dim Retorno As Variant
Dim RGN, RGN2 As Long
RGN = CreateRoundRectRgn(10, 0, 320, 190, 40, 40)
Retorno = SetWindowRgn(frmPruebas.hWnd, RGN, True)
End Sub

Apariencia de Windows XP y Vista en tu programa VB6

2008-10-16T10:57:00.000-07:00

Cito un post que vi:

Hola este es mi primer post y aqui posteo este módulo que tengo guardado de hace mucho tiempo.

El módulo que postearé es el que utilizo para que mis programas en vb6 se vean con el formato de Windows XP y Vista. Para ello deben tildar alguno de los componentes "Microsoft Windows Common Controls X.X"

Luego crean el siguiente modulo, el cual tendra el proceso principal (Void Main o Sub Main depende del lenguaje):

Option Explicit

Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type

Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean

Public Const ICC_USEREX_CLASSES = &H200

Public Sub Main()

On Error Resume Next

Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
Form1.Show
On Error GoTo 0
End Sub

Por último agregan el archivo de recursos que aqui les dejo para descargar, el cual deben agregarlo en "Documentos Relacionados"