En que lugar del mundo os gustaría visitar antes de morir y el motivo si puede ser


saludos  

Hola, buscando en google encontré este code que sirve para sacar la IP a una DNS pero me manda la solución en un MsgBox y necesitaria que se pudiera copiar. He intentado con todo lo que he podido pero no consigo hacerlo...

Option Explicit
 
Private Declare Function DnsQuery Lib "dnsapi" Alias "DnsQuery_A" (ByVal strname As String, ByVal wType As Integer, ByVal fOptions As Long, ByVal pServers As Long, ppQueryResultsSet As Long, ByVal pReserved As Long) As Long
Private Declare Function DnsRecordListFree Lib "dnsapi" (ByVal pDnsRecord As Long, ByVal FreeType As Long) As Long
Private Declare Function lstrlen Lib "kernel32" (ByVal straddress As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, ByVal Source As Long, ByVal Length As Long)
Private Declare Function inet_ntoa Lib "ws2_32.dll" (ByVal pIP As Long) As Long
Private Declare Function inet_addr Lib "ws2_32.dll" (ByVal sAddr As String) As Long
 
Private Const DnsFreeRecordList         As Long = 1
Private Const DNS_TYPE_A                As Long = &H1
Private Const DNS_QUERY_BYPASS_CACHE    As Long = &H8
 
Private Type VBDnsRecord
    pNext           As Long
    pName           As Long
    wType           As Integer
    wDataLength     As Integer
    flags           As Long
    dwTel           As Long
    dwReserved      As Long
    prt             As Long
    others(35)      As Byte
End Type
 
Private Sub Command1_Click()
    MsgBox Resolve("google.com", "208.67.222.222")
End Sub
 
Private Function Resolve(sAddr As String, Optional sDnsServers As String) As String
    Dim pRecord     As Long
    Dim pNext       As Long
    Dim uRecord     As VBDnsRecord
    Dim lPtr        As Long
    Dim vSplit      As Variant
    Dim laServers() As Long
    Dim pServers    As Long
    Dim sName       As String
 
    If LenB(sDnsServers) <> 0 Then
        vSplit = Split(sDnsServers)
        ReDim laServers(0 To UBound(vSplit) + 1)
        laServers(0) = UBound(laServers)
        For lPtr = 0 To UBound(vSplit)
            laServers(lPtr + 1) = inet_addr(vSplit(lPtr))
        Next
        pServers = VarPtr(laServers(0))
    End If
    If DnsQuery(sAddr, DNS_TYPE_A, DNS_QUERY_BYPASS_CACHE, pServers, pRecord, 0) = 0 Then
        pNext = pRecord
        Do While pNext <> 0
            Call CopyMemory(uRecord, pNext, Len(uRecord))
            If uRecord.wType = DNS_TYPE_A Then
                lPtr = inet_ntoa(uRecord.prt)
                sName = String(lstrlen(lPtr), 0)
                Call CopyMemory(ByVal sName, lPtr, Len(sName))
                If LenB(Resolve) <> 0 Then
                    Resolve = Resolve & " "
                End If
                Resolve = Resolve & sName
            End If
            pNext = uRecord.pNext
        Loop
        Call DnsRecordListFree(pRecord, DnsFreeRecordList)
    End If
End Function

saludos y gracias de antemano

Hola a todos, les comento que no encuentro por ningún lado como hacer un builder.

Yo entiendo que builder sería crear una aplicación en vb6 que te muestra unas opciones que tu antes le has asignado y una vez completadas estas opciones le das click a build y te genera otro .exe con las características anteriormente mencionadas.


saludos y espero que me puedan ayudar

Hola a todos, en este post querría recalcar que hoy en día como muchos sabemos que webs como elhacker.net o esta misma, sufren ataques DDoS por algún lammer que quiere dar a conocer sus """"conocimientos"""" de poder.

Mi Sugerencia sería, que cuando se detectara un ataque DDoS, @el-brujo contratase servicios de publicidad según las visitas como www.impresionesweb.com y colocarlas por toda la web, ya que los ataques producirian ingresos (€) y estos podrían ser implementados para el mantenimiento de la misma.

Esta es mi forma de verlo, así que si pueden den sus opiniones al respecto


saludos

EDITO_______________________________________________________________

Tendría que dejar una cosa clara, y es de que ahora me acabo de dar cuenta que hacer eso es delito, es una estafa y puede caer una pena de 2 a 4 años de cárcel según los ingresos 

http://www.delitosinformaticos.com/estafas/delito.shtml


aqui esta, googlea un poco y encontrarás más


saludos y @el-brujo, en vez de hacer lo de la publicidad podrías reclamar al acusado del delito 2000 euros por los gastos del servidor

Según los datos arrojados por la encuesta realizada por ESET Latinoamérica, 9 de cada 10 usuarios consideran que es importante contar con una solución de seguridad en su teléfono móvil. Sin embargo, la mayoría de ellos no dispone de la misma.


El 80% de los usuarios de smartphones no cuenta con soluciones de seguridad en su teléfono móvil a pesar de considerarlas necesarias para una adecuada protección de sus datos y su equipo, según informa ESET, compañía líder en detección proactiva de amenazas.

“En la actual era de la conectividad, los smartphones poseen funcionalidades similares a las de cualquier equipo de escritorio o laptop y almacenan tanta o más información que éstos. Cuentan, además, con algunas particularidades específicas de gran sensibilidad para su protección: son más susceptibles de ser robados o extraviados y, además, son frecuentemente conectados a redes inalámbricas cuya seguridad se desconoce”, aseguró Federico Pacheco, Gerente de Educación e Investigación de ESET Latinoamérica.

Según la última encuesta realizada por el equipo de análisis e investigación de ESET Latinoamérica, los usuarios de la región señalan el robo de información como la principal preocupación en materia de ataques a sus dispositivos móviles, con el 36.8% del total de las respuestas.

Esto se debe, entre otras razones, a que un dispositivo móvil permite almacenar una gran cantidad de información y tener la posibilidad de estar siempre conectado, acceder al correo electrónico, las redes sociales o navegar a través de la web. Con la alta concentración de datos en el mismo, un atacante que logra infectar el dispositivo y acceder a él, puede entrometerse en la vida privada del usuario y acceder a sus datos personales así como a información relativa a su trabajo - siendo de este modo también un riesgo para la fuga de información sensible de la empresa.

En segundo lugar, con el 27.6 %, los usuarios destacan entre sus preocupaciones tanto el ataque de códigos maliciosos como el robo físico del dispositivo. Finalmente, la recepción de spam vía mensajes de texto se ubica en el último lugar, con el 8% de las respuestas.

En línea con esto, al ser consultados sobre la importancia de contar con una solución de seguridad en sus smartphones, el 94.3% de los encuestados respondió considerar necesaria la protección de sus equipos con el fin de resguardar su información. Sin embargo más del 80% no cuenta con ningún tipo de software de seguridad en sus dispositivos móviles.

Para acceder a los resultados de la encuesta puede visitar el Blog de Laboratorio de este Latinoamérica: http://blogs.eset-la.com/laboratorio/2011/06/14/smartphones-protegidos-amenazas/

“La utilización de teléfonos inteligentes se encuentra en aumento. Según una investigación desarrollada por la empresa Gartner, durante el año pasado se compraron 297 millones de smartphones en todo el mundo, un incremento del 72% con respecto al 2009. Por ello, es fundamental comenzar a tomar conciencia sobre la importancia de su protección, complementando la utilización de una solución de seguridad con la información y educación del usuario”, aseguró Sebastián Bortnik, Coordinador de Awareness & Research de ESET Latinoamérica.

Entre las buenas prácticas que se pueden recomendar a los usuarios para el uso de la telefonía móvil se encuentran: la implementación de una solución antivirus con capacidades proactivas, como la ofrecida por ESET Mobile Security; la desactivación de tecnologías de comunicación inalámbrica -como bluetooth y wi-fi- cuando no se encuentran bajo utilización; y la toma de precauciones en cuanto a la información que se almacena en el dispositivo móvil, ya que es frecuente que los usuarios descarguen sus correos o accedan a diferentes servicios ofrecidos en Internet que requieren el acceso de datos personales y sensibles.

fuente: http://noticiasdeinformatica.info/noticias/24-seguridad-informca/1010-el-80-de-los-smartphones-no-esta-protegido-contra-amenazas-informaticas-

Los glaciares se mueven a gran velocidad en Groenladia, hasta 35 metros por día, una velocidad que ha sido detectada desde el espacio gracias al satélite de observación de la Tierra ERS-2, de la Agencia Espacial Europea (ESA). El ERS-2, que ha sido jubilado esta misma semana, el día 6 de julio, vigiló en sus últimos días el glaciar de Kangerdlugssuaq. En concreto, realizó una órbita terrestre por esa zona cada tres días, en lugar de cada 35 como hasta ahora.

Gracias a las imágenes que ha captado del glaciar no sólo se ha observado su velocidad, sino que entre el 19 y el 22 de mayo detectó que un pedazo de nueve kilómetros cuadrados se rompió en pedazos, dando origen a varios icebergs.

La ESA, en una nota de prensa, señala que la recogida de estos datos es importante para estudiar los derrumbamientos rápidos, los movimientos tectónicos o el hielo marino.

Al comparar las imágenes actuales con las que se tomaron del Kangerdlugssuaq en 1992, se observa que la corriente de hielo ha disminuido unos cinco kilómetros en los últimos 19 años en su parte inferior. También es evidente ese retraimiento en la parte superior del glaciar. "Los datos indican que hay una aceleración y retraimiento de los glaciares tanto en la Antártida como en Groenlandia y esto es, sin duda, una prueba clara el cambio climático que se puede captar desde los satélites espaciales", ha señalado el profesor Andrew Shepherd, de la Universidad de Leeds en el Reino Unido.

El satélite de teledetección europeo ERS-2 fue lanzado en abril de 1995 y ha pasado más de 16 años en espacio, 13 más de los tres años para los que fue diseñado. Gracias a su instrumental, a lo largo de este tiempo proporcionó medidas de la capa de ozono, de los niveles del mar o de las temperaturas en la superficie terrestre. Con su jubilación, no hay ningún otro satélite ni en órbita ni previsto que pueda localizar corrientes de hielo en nuestro planeta.

fuente: http://www.elmundo.es/elmundo/2011/07/08/ciencia/1310137748.html

CABO CAÑAVERAL, EEUU (Reuters) - El transbordador espacial Atlantis fue lanzado desde su plataforma de despegue el viernes, elevándose sobre una columna de llamas y humo a medida que se alejaba de la Tierra en el último vuelo del programa de transbordadores de Estados Unidos.

Luego de una historia de 30 años que costó casi 200.000 millones de dólares y causó la muerte de 14 astronautas, los transbordadores serán retirados para dar paso a una nueva generación de naves espaciales.

Según el presidente Barack Obama, la nueva etapa espacial pondrá a astronautas estadounidenses primero en un asteroide y luego en Marte.

"El lanzamiento de hoy podrá marcar el vuelo final de un transbordador espacial pero da inicio a una nueva era de aventuras infinitas para superar las fronteras de la exploración y el descubrimiento en el espacio", afirmó Obama en un comunicado emitido desde la Casa Blanca.


Cerca de 1 millón de turistas fueron testigos del suave despegue desde el Centro Espacial Kennedy. Se alinearon en pasos altos y playas alrededor de las instalaciones de Florida, buscando ver por última vez la nave pionera que ha definido el programa de transbordadores estadounidense durante los últimos 30 años.

"Buena suerte a ti y a la tripulación en este vuelo final de un auténtico ícono estadounidense", transmitió por radio Mike Leinbach, el director de lanzamientos, a la tripulación minutos antes del despegue.

"Disfruten ahí arriba", añadió.

Unas amenazadoras nubes pudieron haber retrasado la misión de 12 días a la Estación Espacial Internacional, pero el cielo se despejó a tiempo para el despegue.

fuente: http://lta.reuters.com/article/worldNews/idLTASIE76717520110708

XBomb MSN v1.4 - by VanX

Hola, estaba el otro día con un amigo viendo por los foros y vi que faltaba algun programa de MSN, ya que el Kick de @MadAntrax no funciona con las nuevas versiones y me puse a codear una versión parecida al Chau pero nueva y una nueva del Kick juntandolas las dos y para que funcionaran en los messengers actuales, en todos, incluyendo el 2008 para arriba. 


MEJORAS:
1) El Chau tenía algún defecto que no siempre conectaba ya que solo usaba 1 solo puerto y winsock. Ahora intenta conectar de 5 maneras distintas por si alguna falla.
2) El Kick MSN no funciona con las nuevas versiones(2008 para arriba) así que he tenido que añadir para que funcione en todas.
3) Fácil de usar y entendible
4) Incluye 3 IDIOMAS: Español, Inglés, Italiano.
5) La interfaz gráfica está mejorada, aunque eso depende de los gustos de cada uno.


Para futuras versiones:
- Implementar hasta 10 idiomas
- Poder escoger el tiempo que se quiera mantener la cuenta OFFline (bloqueada)
- Multiconexiones, poder bloquear más de 1 mail




LOG
www.virustotal.com

File name: XBomb MSN v1.4.exe
Submission date: 2011-07-08 17:35:49 (UTC)
Current status: finished
Result: 1/ 43 (2.3%)

Antivirus   Version   Last Update   Result
AhnLab-V3   2011.07.08.01   2011.07.08   -
AntiVir   7.11.11.45   2011.07.08   -
Antiy-AVL   2.0.3.7   2011.07.08   -
Avast   4.8.1351.0   2011.07.08   -
Avast5   5.0.677.0   2011.07.08   -
AVG   10.0.0.1190   2011.07.08   -
BitDefender   7.2   2011.07.08   -
CAT-QuickHeal   11.00   2011.07.08   -
ClamAV   0.97.0.0   2011.07.08   -
Commtouch   5.3.2.6   2011.07.08   -
Comodo   9320   2011.07.08   -
DrWeb   5.0.2.03300   2011.07.08   -
Emsisoft   5.1.0.8   2011.07.08   -
eSafe   7.0.17.0   2011.07.07   -
eTrust-Vet   36.1.8433   2011.07.08   -
F-Prot   4.6.2.117   2011.07.08   -
F-Secure   9.0.16440.0   2011.07.08   -
Fortinet   4.2.257.0   2011.07.08   -
GData   22   2011.07.08   -
Ikarus   T3.1.1.104.0   2011.07.08   -
Jiangmin   13.0.900   2011.07.08   -
K7AntiVirus   9.107.4887   2011.07.08   -
Kaspersky   9.0.0.837   2011.07.08   -
McAfee   5.400.0.1158   2011.07.08   -
McAfee-GW-Edition   2010.1D   2011.07.08   -
Microsoft   1.7000   2011.07.08   TrojanSpy:Win32/Vwealer.IW
NOD32   6278   2011.07.08   -
Norman   6.07.10   2011.07.08   -
nProtect   2011-07-08.01   2011.07.08   -
Panda   10.0.3.5   2011.07.08   -
PCTools   8.0.0.5   2011.07.08   -
Prevx   3.0   2011.07.08   -
Rising   23.65.04.03   2011.07.08   -
Sophos   4.67.0   2011.07.08   -
SUPERAntiSpyware   4.40.0.1006   2011.07.08   -
Symantec   20111.1.0.186   2011.07.08   -
TheHacker   6.7.0.1.250   2011.07.08   -
TrendMicro   9.200.0.1012   2011.07.08   -
TrendMicro-HouseCall   9.200.0.1012   2011.07.08   -
VBA32   3.12.16.4   2011.07.08   -
VIPRE   9805   2011.07.08   -
ViRobot   2011.7.8.4558   2011.07.08   -
VirusBuster   14.0.114.0   2011.07.07   -




Espero que lo disfruten y cualquier duda o sugerencia ya saben

saludos 

Hola, soy nuevo pero ya leo este foro desde hace mucho, soy "programador" de vb6 y intentaré aprender y ayudar con todo lo que pueda

HOla, quiero hacer un batch para registrar una OCX o DLL y tengo este code:

@echo off
cls
echo **** REGISTRAR OCX O DLL ****
echo.
set /p Ruta=Introduce la ruta de la OCX o DLL (Ejemplo: c:\Msflxgrd.ocx): 
echo.
REGSVR32 %Ruta%
echo.
pause
exit

y quiero que en vez de escribir tu la ruta, que el .bat registre automaticamente la DLL o OCX ya que estará en la misma carpeta y el nombre no será modificado. No se si me he explicado...

gracias



____________________________________________________________________

LO SIENTO, me equivoque de lugar! (porfavor muevanlo)