Temas

ola a todos... tengo una duda, ojala alguien me oriente


Descargue un Control de Usuario ebn el cual se utilizan sckmain y otros nombres para conectar host's, no posee modulos Socketmaster o Winsock ni encuentro alguna declaracion en el code que lo aclare, la consulta es cual es la forma para agregar sockets de esa manera?

Hola a todos!, tengo una consulta para aquelos que esten mas inmersos en redes que yo.


Resulta que tengo un PC con xp y con una placa wi-fi samsung que solia utilizar para conectar a mi proveedor de internet.


y por otro lado tengo un netbook con Wndows 7 Starter con wi-fi.


y tengo un modem personal que se puede conectar via usb a cualquiera de los 2 pc's.


Mii pregunta es la siguiente., ¿ hay alguna manera de conpartir internet entre estos dos equipos en casa de forma inalambrica sin tener que comprar nada?

ola a todos tengo para un proyecto de radio frecuencia que utilizar dos bobinas de 1 nH y otra de 2.2 nH, algun experto que pueda facilitarme las especificaciones de diametro , vueltas y tipo de alambre ?

mi duda es la siguiente

lo que quiero hacer es seleccionar una ventana externa teniendo su hwnd y apartir de alli sacar todos los controles que tenga, ya sean frames, labels, textbox, listbox, listview o cualquier tipo de control que pudiera contener strings.

para luego con sendmessage extraer dichos datos a mi programa.



Ahora , yo ya logre conseguir el hwnd de un listview de esta ventana externa, pero, como seria la forma correcta para copiar sus datos a un listview de mi aplicacion??


Ej: para hacerlo con un listbox ajeno seria segun encontre por alli:

Código [Seleccionar] Expandir


'Declaración Api SendMessage
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
 
 
' Mensajes y valores  para los listbox
Private Const LB_GETCOUNT As Long = &H18B
Private Const LB_GETTEXTLEN As Long = &H18A
Private Const LB_GETTEXT As Long = &H189


 
 
Private Sub Command1_Click()
 
Dim n_Items As Long
Dim i As Integer
Dim Items As String
Dim El_Item As String
Dim length As Long
 
    'Almacena la cantidad de Items
    n_Items = SendMessage("262583", LB_GETCOUNT, 0, 0)
       
    'Recorre a la cantidad de elementos para obtener los valores
    For i = 0 To n_Items - 1
           
        ' Buffer
        length = SendMessage(262583, LB_GETTEXTLEN, i, 0) '   262583 SERIA EL HWND DEL LITBOX AJENO
           
        El_Item = Space$(length + 1)
           
        ' La variable " el_Item " pasada a SendMessage _
          retorna el dato del Item actual
           
        length = SendMessage(262583, LB_GETTEXT, i, ByVal El_Item)
           
        Items = Items & Replace(El_Item, Chr(0), vbNullString) & vbCrLf
 
    Next i
           
    'Visualiza todos los items del ListBox
    MsgBox Items, vbInformation
 
End Sub
 





Alguiwen sabria adaptar esto a listview??, osea como seria la manera correcta de usar sendmessage con listview en esta operacion?

este es un code interesante y divertido que enontre navegando.
pertenece segun dice la firma a Philip Arvidsson    
y se trata de una divertida forma de derretir la pantalla.

Tal vez a alguien le sea util como joke.

DESCARGA

la verdad es que nose si ira aca este tema, pero trabajo en una aplicacion que necesita firmar en fotolog.


y buscando una forma simple de hacerlo me pregunto. seria posible pasar la firma por medio de el metodo POST de la siguiente manera:

Código [Seleccionar] Expandir

destino.php?variable1=valor1&variable2=valor2&...

en el caso de serlo, alguna orientacion ?

el tema es el siguiente, quiero colocar un procedimiento sub main() en un modulo para iniciar asi desde alli, pero asi al compilar la aplicacion el exe no muestra ningun icono.

hay alguna manera para darle la propiedad icon en el sub main del modulo o otra forma ???


PD: se que debe ser simple la respuesta pero ya busque y nada.

en las versiones vb de clientes msn en una parte del code


se establece una conexion con nexus.passport.com

Código [Seleccionar] Expandir

sData = SendRecvSSL("GET", "https://nexus.passport.com/rdr/pprdr.asp")


Código [Seleccionar] Expandir

        Case "TWN"
            AddStatus Me, "Authorising"
            Auth_Challenge = tmp(4)
            Debug.Print Auth_Challenge
            HTTP_Header = "GET https://nexus.passport.com/rdr/pprdr.asp" & vbCrLf
            SSL.Close
            SSL.Connect "nexus.passport.com", 443
            curIndex = index


alguien conoce otro server para realizar ekl mismo trabajo ?

["A"]

hola a todos.., tengo una duda de calculo en vb,...

resulta que estoy desarrollando una aplicacion y me faltaria la forma de sacar el porcentaje de parecido de un numero a otro. es decir:


supongamos que tengo un numero "marcador" que puede ser un numero entero desde  cero (incluido) en adelante.
el cual llamaremos "A"

Y como regla repetitiva el programa generaria numeros al azar (tambien 0 o positivos enteros) , y a este valor lo llamaremos "B"


entonces como hariamos para saber en Porcentaje del acercamiento de este numero B  a mi marcador A ????


si alguien tiene un razonamiento logico , funcional que pueda llevarse a vb, se los agradezco.. xk yo ya me enrede jaj. y a veces cuando miras tanto una cosa terminas por no ver absolutamente nada..


Gracias

Hola, quisiera saber si es posible eliminar o hacer invisible un item en un listview de otro programa.


por ejemplo. si tengo:

Programa A ( el cual posee el code que hara el trabajo de ocultacion)

y

Programa B ( un exe externo NO creado por mi en el cual deseo ocultar algunos items)

. desde ya muchas gracias y si pudieran guiarme en esto gracias tambien. saludos

Hola, me preguntaba si es posible obtener en valor numerico la fuerza/intensidad de la señal wi-fi y/o de la señal bluetooth por medio de vb 6.0.

de ser asi si alguien pudiera prientarme en el tema.

Gracias.saludos a todos

Hola a todos antes que nada los saludo y les doy las gracias por su tiempo.mi duda es la siguiente, sucede que intento comparar dos imagenes, una de ellas es un scanneo de una huella dactilar tomada con tinta y papel ( tipica de una ficha personal) y la otra es una huella scanneada de el plastico utilizado patra levantar huellas dactilares por peritos en rastros.

Con la comparacion de imagenes es simple y m da el porcentaje de similaridad que poseen entre ellas pero quisiera saber si alguien conoce el metodo empleado por sistemas como el AFIS para reconocer si estas huellas pertenecen a la misma persona, ya que la comparacion de imagen, no es buena dado que las huellas levantadas siempre son en difenrentes posiciones y el 90 % de las veces estan incompletas.


Si alguno de uds tiene info o puede orientarme sore como volcar el proceso de identificacion de patron de huellas dactilares a Visual Basic. Les Estaria agradecido.

hola gente, mi pregunta es la siguiente, existe alguna forma de modifcar el contenido de una web, o manipular archivos, o afectar la integridad de la web por medio de WebDav ?, se que hay fallos de este tipo,  es solo que escuche acerca de un deface por medio de un bug en webdav, y me preguntaba si alguno de uds. sabria explicarme el asunto.

         Desde ya muchas Gracias por su tiempo.
                saludos

creo que el titulo lo resume todo pero de todas maneras preguntare... alguien de uds. sabe el protocolo utilizado por los bot joiners o spammers de los chats ares ???

PD: lo posteo aqui pork pienso programarlo en vb.


desde ya se agredece cualkier posible orientacion

hola a todos, mi consulta es la siguiente .., espero sepan responderla xk yo ya estoy mareado jajaj.

Sucede k descarge un code para generar claves no aleatorias a partir de un listado de caracteres.

Cuyo code en un form es el siguiente:

Código [Seleccionar] Expandir

Dim Counter, Cnt As Integer

Private Sub cmdCreate_Click()
On Error GoTo ErrorHandler

Screen.MousePointer = 11

Dim C(100) As String

For i = 0 To 100
    C(i) = ""
Next i

If chkSL.Value = 1 Then
    Cnt = 1
    For i = 1 To 26
        C(i) = SL(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkCL.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
   
    For i = Counter To Counter + 26 - 1
        C(i) = CL(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkNum.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
    For i = Counter To Counter + 10 - 1
        C(i) = Num(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkChar.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
    For i = Counter To Counter + 28 - 1
        C(i) = Char(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkSpce.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    C(Counter) = " "
End If

cmbCharList.Clear
For i = 1 To 100
    If C(i) = "" Then
        Exit For
    End If
   
    cmbCharList.AddItem C(i)

Next i

Dim Cr, StrOutput As String

For j = 1 To 100
    If C(j) = "" Then
        Counter = j
        Exit For
    End If
Next j

Counter = Counter - 1

StrOutput = ""
Length = txtLength.Text
For i = 1 To txtLength1.Text - txtLength.Text

    For k = 1 To Counter * Length
        Cr = ""
        For j = 1 To Length
            Call Randomize
            t = Int((Counter * Rnd) + 1)
           
            Cr = Cr & C(t)
        Next j
       
        If StrOutput = "" Then
            StrOutput = Cr
        Else
            StrOutput = StrOutput & vbCrLf & Cr
        End If
    Next k
   
    Length = Length + 1
   
Next i

If StrOutput = "" Then
    GoTo ErrorHandler
End If

On Error GoTo ErrorHandler
Open "C:\PasswordList.txt" For Output As #2
    Print #2, StrOutput
Close #2

Label3.Visible = True
MsgBox "Password List Created successfully!", vbInformation + vbOKOnly, "Password Generator"
Screen.MousePointer = 0
Exit Sub

ErrorHandler:
    Screen.MousePointer = 0
    MsgBox "Failed to create file, try again.", vbCritical + vbOKOnly, "Password Generator"
End Sub

Private Sub cmdGenerate_Click()
Screen.MousePointer = 11
Dim C(100) As String

For i = 0 To 100
    C(i) = ""
Next i

If chkSL.Value = 1 Then
    Cnt = 1
    For i = 1 To 26
        C(i) = SL(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkCL.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
    For i = Counter To Counter + 26 - 1
        C(i) = CL(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkNum.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
    For i = Counter To Counter + 10 - 1
        C(i) = Num(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkChar.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    Cnt = 1
    For i = Counter To Counter + 28 - 1
        C(i) = Char(Cnt)
        Cnt = Cnt + 1
    Next i
End If

If chkSpce.Value = 1 Then
    For j = 1 To 100
        If C(j) = "" Then
            Counter = j
            Exit For
        End If
    Next j
   
    C(Counter) = " "

End If

cmbCharList.Clear
For i = 1 To 100
    If C(i) = "" Then
        Exit For
    End If
   
    cmbCharList.AddItem C(i)

Next i


For j = 1 To 100
    If C(j) = "" Then
        Counter = j
        Exit For
    End If
Next j

Counter = Counter - 1

AddDirSep StorePath

PB.Max = 100
PB.Min = 0
PB.Value = 0
picPB.Visible = True

lblPassed.Tag = ""
lblTotal.Tag = ""

Timer2.Enabled = True

Dim N, O, CN, S, nN, strProgressed, oLen

N = 0
nN = 0
O = ""
CN = 0

LPF = txtLPF.Text

DoEvents

If opt4.Value = True Then
    oLen = 4
    For a1 = 1 To Counter
        For a2 = 1 To Counter
            For a3 = 1 To Counter
                For a4 = 1 To Counter
                    DoEvents
                    nN = nN + 1

                 

Alguien sabria explicarme sobre este bug??? es lo mismo q la injeccion sql ??

Blind Sql /Xpath injection

hola que tal tanto tiempo. hoy les tengo una pregunta para los entendidos del protocolo msn. mediante q comando puedo enviar una invitacion para aplicaciones compartidas??? utilizando el protocolo de msn??

alguien sabe si es posible sintonizar frecuencias de banda ciudadana con algun programa en vb y una antena wi-fi??? o emitir?

Para los qu realmente saben de vb ... les dejo esta duda..


exista alguna manera de realizar escaneos de bluetooth cercanos mediante un PC con algun tipo de aplicacion en vb 6?

Me refiero a q si saben como enviar datos o realizar una conexion con un dispositivo bluetooth con codigo visual basic.?????????

alguien tiene algun buen metodo de enviar sms desde vb para argentina????

Hola a todos estoy trabajando en una aplicacion que requiere envio de sms y keria probar con algo q lei por hay de q se puede hacer con este ocx.... el problema es q no lo tengo ni puedo encontrarlo......


Alguno de uds. sabra donde esta?? jejej , les agradeceria si me dan una mano...

Hola a todos como estan??? hoy e vuelto para liberar el code de un programa q hace un tiempo atras me llevo a recibir muchos insultos en este foro  y hasta alguien llego a decirme "Parece q no has usado nunca un freezer , hotmail no se crackea por q las cuentas se bloquean".



En ese momento no respondi como debia por q no queria .Pero hoy les dire q "si eh usado un freezer" y es mas.... cree mi propio freezer q hoy en dia uso y m divierto con el jejej.


Pero a parte de eso en la creacion me surgio la idea... si con un freezer pruebo muchas claves y se bloquea hotmail y NO el msn entonces si ataco por msn jamas se bloquearia ... y asi fue no se bloqueaba entonces

automatize el logeo del msn y logrfe crear un cracker para hotmail bastante lento SI pero... con el tiempò suficiente y ganas (en teoria) no habria clave irresistible.

asi q yo les dejo la idea y uds... saque n sus conclusiones.

                      En este proyecto trabajo ami lado -Freeze-
                      a quien agradezco por ayudarme tanto.

hey espero puedan ayudarme en esto yo estoy en la pc1 y existe un blanco(pc2), el cual esta detras de un access point(AP).

aqui va la pregunta.: Como saber el ip del acces point conociendo el ip de PC2???


                                 PC1-----------------AP-----------PC2

                              ***.***.***.***        ???        ***.***.***.***


Desde ya muchas gracias por su ayuda

hey alguien sabe de algun code que funcione para lanzar aplicaciones por medio de reconocimiento de voz ??

o un code para pasar lo q se transmite por microfono a un textbox q realmente seria lo necesario ...

su ayuda sera muy agradecida.

este es un programa en vb que captura la informacion enviadsa entre el servidor y tu navegador les servira mucho a los nuevos en el tema y alos q quieran averiguar mas sobre el protocolo de alguna web  como yo lo eh hecho con No-ip.

                                  mañana lo subo de vuelta
                                                               Tengu ..::Fireb0y::.. Salu25

aqui les dejo unn programa con el q podran capturar el protocolo de msn siempre njejej para desarrollar sus aplicaciones MSN.



               

Hola a todos, en este post hablaremos sobre la manera de crear un congelador tipo ice cold o iceberg, esta es mi maner,no se realmente si los dos programas antes mencionados utilizan este metodo, pero a mi me sirve asi.asi q empezaremos por lo basico ya que muchos buscan el codigo del ice cold.aqui veremos algo parecido.


Necesitaremos poner en un form lo siguiemte:

• 1 textbox llamado text1
• 1 textbox llamado text2(propiedad visible=false)
• 1 command button(Command1)
• 1 statusbar (statusbar1)
• 4 controles winsock[llamados:(Client;http;SSL;switchboard)respectivamente]

'# lo que vamos a hacer es utilizar el protocolo de conexion de MSN asociado a un
'#timer para generar un ciclo que envie peticiones de conexion con un usuario real
'#pero con una password errónea,lo que hara que el servidor bloque el inicio de sesion
'#de esa cuenta temporalmente.

Código [Seleccionar] Expandir

Private Sub Form_Load()
Me.Caption = "FreeZer ::Tunick::"
Dim n As Long
For n = 1 To 1024
Load Switchboard(n)
   

Next n
For n = 1 To 10
    Load http(n)
    Load Client(n)
Next n


End Sub
Este es el evento load, en breve posteo lo demas.

Lo posteo aquie por q pense q era donde mejor se veria aceptado.(por favor no lo borren)



este es un pequeño codigo para sumarle bytes a tus exe.

DESCARGA:este link es de la aplicacion,pruebenla si les interesa posteamos el code para poder mejorarlo.

http://www.uploadfilego.com/download.php?file=29cfe51ed29a221787063e8c8c947c0f

[lo q hoy les traigo es un ejemplo de como crear servicios ejecutados coimo system!!!! espero les sea de utilidad y puedan sumarlo aa su biblioteca de codes. Salu25]

lo q hoy les traigo es un ejemplo de como crear servicios ejecutados coimo system!!!! espero les sea de utilidad y puedan sumarlo aa su biblioteca de codes. Salu25
 
        http://files-upload.com/393048/serv_aport_tengu.rar.html

alguien sabe como colocar un webbrowser pero q no haga ese molesto click cada vez q navegue a alguana url?

esta aplicacion contiene memorizados algunas web proxy's online con las q podras navegar. saludos http://files-upload.com/389431/proxyblog__Tengu__.rar.html

hola eh encontrado la siguiente falla en una web y tal vez esta web sirva como ejemplo para poder explicar la explotacion de un bug de alta importancia,para asi poder aprender de forma practica, asi q espero coolaboracion para que los q realmente saben y si no les molesta instruyan de su conocimiento a un monton de newbies igualmente desde ya se agredece su colaboracion.
bug:con acunetix aparece el mensaje de 11 xss en el index.php
Attack details
The GET variable nuevo_ano has been set to >"><ScRiPt%20%0a%0d>alert(1981921819)%3B</ScRiPt>.
espero su ayuda y conocimiento para liberar la informacion jej salu25

hola a todos estoy en un aprieto, tengo pococ conocimiento de html.Y necesito saber si hay alguna manera de crar un index simple con un textbox multilinea q al presionar un boton se guarden los datos en txt en el servidor.
Desde ya mchas gracias a todos salu25

aqui les dejo otra utilidad q espero les sea de ayuda.... el protocolo de no-ip al descubierto...

                       http://files-upload.com/377080/no-ip_tengu_.rar.html
                                                         

hey aqui les dejo para los q recien se inician en vb un codificador de strings para evitar la heuristica de los AV .El codigo de encryptacion es algo simple pero para empezar les puede servir.  http:\\usuarios.lycos.es/tengutheef/SC.rar  cualquier duda consulten.   5aLu25 Te/-/gU ..::FireB0y::..