Temas

Buenas!.. el tema es el siguiente... en Ubuntu 10.10 venia usando cuando viajaba mi celular como modem de internet.. lo habia configurado muy facil, con un par de clicks desde el gestor de red, Banda Ancha Movil...

Ahora he instalado Kubuntu 11.04 en mi notebook, y tengo el problema de q esta opcion (la pestaña que dice Banda Ancha Móvil) se encuentra innabilidatada.. y no he podido habilitarla, he googleado mucho, probe con WiCD etc.. y no consigo entrar a esa funcion (para configurarla)...

asi alguno sabe como puedo solucionarlo, o alguna idea de q puede ser... agradeceria su respuesta!

hola.. tengo un problema con un fuerza bruta...

el tema es asi, tengo 6 letras y necesito ver las combinaciones de todas ellas...
pero no se como hacer a q no se repitan... xq asi el codigo es mucho mas lento :S

x ejemplo asdfgh
con este codigo primero aparece aaaaaa en vez de asdfgh y luego cambiarlas de lugar a x ejemplo asdfhg :S

colocar 2 command button, un timmer con intervalo 0
para hacer funcionar el code presionar el segundo command

Código (vb) [Seleccionar] Expandir

Dim cont As Byte
Dim Letras As String
Dim Letra() As String
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte
Dim La As String, Lb As String, Lc As String, Ld As String, Le As String, Lf As String

Private Sub Command1_Click()
Letras = ""

Do While Text1.Text <> ""
Letras = Letras & Left(Text1.Text, 1) & "|"
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
Loop

Letra = Split(Letras, "|")

For a = 0 To 5
   La = Letra(a)
    For b = 1 To 5
        Lb = Letra(b)
        For c = 2 To 5
            Lc = Letra(c)
            For d = 3 To 5
               Ld = Letra(d)
                For e = 4 To 5
                    Le = Letra(e)
                    For f = 5 To 5
                       Lf = Letra(f)
                        SendKeys La & Lb & Lc & Ld & Le & Lf
                        SendKeys "{Enter}"
                        DoEvents
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a

MsgBox "Termino"

End Sub

Private Sub Command2_Click()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If cont = 3 Then
Call Command1_Click
Timer1.Interval = 0
cont = 0
Else
cont = cont + 1
End If
End Sub


bueno... este proyecto surgio creo q caudno intentaba acelerar el envio de capturas de pantalla de mi troyano.. y termino en esto xD jaja nada q ver

antes q nada decir q el codigo es 100% mio.. y q si se matan buscando similitudesen internet seguro encuentran algo ya q de ahi aprendo... pero lo hice yo a todo.. ¬¬ (para las malas lenguas)

dejo un link de descarga del Source:
http://rapidshare.com/files/162287705/Simple_Juego.rar.html

bueno les dejo el code:
Un Form con:
un timer = Timer1
un Picture = Picture1
un menu titulo Configuracion = mnu
     sub menu titulo Tamaño = mnu_tam
     sub menu titulo Cantidad de Obstaculos = mnu_obs

en un modulo

Código (vb) [Seleccionar] Expandir

'Sencillo Juego Creado Por Vivachapas
'Si estas leyendo este codigo mas vale q lo hayas
'bajado del http://foro.elhacker.net , sino es copiado ¬¬

Public NumObs As Long, Ini As Long
Public Direccion As Byte
Public MX As Long, MY As Long
Public PX As Long, PY As Long
Public CS As Byte
Public X As Long, Y As Long

Sub Tabla()
Dim i As Long
Gano
Form1.Picture1.Line ((X - 1) * CS, (Y - 1) * CS)-(X * CS, Y * CS), vbRed, BF
Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbGreen, BF
For i = 0 To X
    Form1.Picture1.Line (i * CS, 0)-(i * CS, Y * CS), vbBlack
Next i

For i = 0 To Y
    Form1.Picture1.Line (0, i * CS)-(X * CS, i * CS), vbBlack
Next i
End Sub

Function Dentro() As Boolean
Dentro = True
If MX >= X Then
Dentro = False
MX = MX - 1
End If
If MY >= Y Then
Dentro = False
MY = MY - 1
End If
If MX < 0 Then
Dentro = False
MX = MX + 1
End If
If MY < 0 Then
Dentro = False
MY = MY + 1
End If
End Function

Sub Mueve()
Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbWhite, BF
PX = MX
PY = MY
Tabla
End Sub

Sub Perdio()
Direccion = 0
MsgBox "Perdio", , "Agus"
NumObs = Ini
Reset
End Sub

Sub Reset()
Form1.Picture1.Cls
Direccion = 0
PX = 0
PY = 0
MX = 0
MY = 0
Obstaculos (NumObs)
Titulo
End Sub

Sub Gano()
If Form1.Picture1.Point(PX * CS + 1, PY * CS + 1) = vbRed Then
MsgBox "Gano", , "Agus"
NumObs = Int(NumObs * 120 / 100)
Reset
End If
End Sub

Sub Obstaculos(ByVal Cantidad As Long)
Randomize
Dim i As Long
Dim OX As Long, OY As Long
For i = 1 To Cantidad
    OX = Int(Rnd * X)
    OY = Int(Rnd * Y)
    Form1.Picture1.Line (OX * CS, OY * CS)-((OX + 1) * CS, (OY + 1) * CS), vbBlue, BF
Next i
Tabla
End Sub

Sub Lugar()
If Form1.Picture1.Point(MX * CS + 1, MY * CS + 1) = vbBlue Then Perdio
End Sub

Sub Titulo()
Form1.Caption = "Agus - Obstaculos:" & NumObs
End Sub


en el Form1

Código (vb) [Seleccionar] Expandir

'Sencillo Juego Creado Por Vivachapas
'Si estas leyendo este codigo mas vale q lo hayas
'bajado del http://foro.elhacker.net , sino es copiado ¬¬

Private Sub Form_Load()
PX = 0
PY = 0
Direccion = 0
Ini = 20
NumObs = Ini
Titulo
With Picture1
    .Height = 5000
    .Width = 5000
    .AutoRedraw = True
    .BackColor = vbWhite
    .ScaleMode = 3
End With
CS = 20
X = Int(Picture1.ScaleHeight / CS)
Y = Int(Picture1.ScaleWidth / CS)
Picture1.ScaleHeight = X * CS + 1
Picture1.ScaleWidth = Y * CS + 1
Obstaculos (Ini)
Timer1.Interval = CS * 5
End Sub

Private Sub mnu_obs_Click()
a = InputBox("Ingrese el numero de obstaculos iniciales", "Agus")
If a = "" Then Exit Sub
If IsNumeric(a) Then
Ini = a
Else
MsgBox "Debe ingresar un numero", vbCritical, "Agus"
End If
NumObs = Ini
Titulo
Reset
End Sub

Private Sub mnu_tam_Click()
a = InputBox("Ingrese el tamaño", "Agus")
If a = "" Then Exit Sub
If IsNumeric(a) Then
CS = a
Else
MsgBox "Debe ingresar un numero", vbCritical, "Agus"
End If
Picture1.Cls
X = Int(Picture1.ScaleHeight / CS)
Y = Int(Picture1.ScaleWidth / CS)
Picture1.ScaleHeight = X * CS + 1
Picture1.ScaleWidth = Y * CS + 1
Timer1.Interval = CS * 5
Obstaculos (Ini)
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Podra As Boolean
Select Case KeyCode

Case vbKeyRight
If Direccion = 2 Then
Perdio
Exit Sub
End If
Direccion = 1

Case vbKeyLeft
If Direccion = 1 Then
Perdio
Exit Sub
End If
Direccion = 2

Case vbKeyUp
If Direccion = 4 Then
Perdio
Exit Sub
End If
Direccion = 3

Case vbKeyDown
If Direccion = 3 Then
Perdio
Exit Sub
End If
Direccion = 4

End Select
End Sub

Private Sub Timer1_Timer()
Dim Podra As Boolean
Select Case Direccion
Case 0
Exit Sub
Case 1
MX = PX + 1
Case 2
MX = PX - 1
Case 3
MY = PY - 1
Case 4
MY = PY + 1
End Select

Podra = Dentro
Lugar
If Podra = False Then
Perdio
Exit Sub
End If

Mueve
End Sub


espero opiniones...

SALUDOS

P/D: Tamaño 5, con 100 Obstaculos es mi favorito...

bueno honestamente yo usaba uno q saque de internet q una sola funcion realizaba las dos tareas (descencriptar y cifrar) pero nunca lo habia entendido...
ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice , la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos

Código (vb) [Seleccionar] Expandir

Private Function cifrar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
cifrar = ""
For i = 1 To Tam
    cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10)
Next
End Function

Private Function Descencriptar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
Descencriptar = ""
For i = 1 To Tam
    Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10)
Next
End Function

bueno no se xD si les sirve o quieren opinar o conocen algun otro copado

bueno lo pregunto aca... xq no vi en el foro otro q diga batch xD
aparte la preg seguro la saben.. esta relazionada con VB y con los troyanos

bueno lo q quiero hacer es q mi troyano se pueda eliminar si yo le ordeno...
ahora hice un batch q lo borra y luego se borra a si mismo... pero es q cuando el server ejecuta el batch, luego se cierra, antes de cerrarse el batch como q no pudo borrarlo...
en fin quiero saber como hacer algo asi como un timer... donde le de 1 seg a q se cierre el servidor y luego lo borre...

hasta ahora tenia esto:

Código [Seleccionar] Expandir

@echo off
del services.exe
del archivo.bat
exit

SALUDOS

mmm bueno esto surgio anoche.. estaba usando la asistencia remota del msn y me dio una idea.. no se si utds la han usado pero donde se ve la pantalla se actualiza solo la parte q cambie... y bue me pase la noche tratando de hacer eso para mi troyano, para asi lograr mayor velocidad cuando se actualiza la img

hice este sencillo code...
se necesita: 2 commandbutton
                  2 picutre box
                  1 combobox

los nombres son los q vienen x defecto...

Código (vb) [Seleccionar] Expandir

Dim Presionado As Boolean
Dim Color As ColorConstants

Private Sub Combo1_Click()
Select Case Combo1.Text
    Case "Rojo"
    Color = vbRed
    Case "Azul"
    Color = vbBlue
    Case "Verde"
    Color = vbGreen
End Select
End Sub

Private Sub Command1_Click()
Dim Cont As Integer
Dim Ancho As Integer
Dim Alto As Integer
Dim PixX As Integer
Dim PixY As Integer
Dim PixColor As Double
Dim oPixColor As Double
Cont = 0
Alto = Picture1.Height
Ancho = Picture1.Width
Picture1.DrawWidth = 1
Picture2.DrawWidth = 1
For PixX = 1 To Ancho Step 10
    For PixY = 1 To Alto Step 10
    PixColor = Picture1.Point(PixX, PixY)
    oPixColor = Picture2.Point(PixX, PixY)
    If Not PixColor = oPixColor Then
    Color = Picture1.Point(PixX, PixY)
    Picture2.PSet (PixX, PixY), Color
    Cont = Cont + 1
    End If
    Next PixY
Next PixX
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
MsgBox Cont
End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

Private Sub Form_Load()
Picture1.Height = 1500
Picture2.Height = 1500
Picture1.Width = 1500
Picture2.Width = 1500
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
Picture1.BackColor = vbWhite
Picture2.BackColor = vbWhite
With Combo1
    .AddItem "Rojo"
    .AddItem "Verde"
    .AddItem "Azul"
End With
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture1.Line -(X, Y), Color
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture2.CurrentX = X
Picture2.CurrentY = Y
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture2.Line -(X, Y), Color
End Sub

Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub



bueno el problema es el siguiente... a ese codigo ya lo probe con los screencapture pero el problema es q si se tapa un picture x otra ventana de otra aplicacion es como si se modificara el picture... no se si me entienden
osea si no se ven las 2 img enteras en la pantalla, los pixeles q no se ve, los toma como distintos... :S

bueno quisiera saber eso como hacer a q no importe si el picture este o no en la pantalla pero q lo compare
o si conocen algun otra forma de hacer esto :S

SALUDOS

:S llevo rato leyendo... honestamente nunca habia trabajado con Inet... vi ya varios post... la mayoria terminan en este ejemplo
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/209-inet-ftp.htm
seguro alguno ya lo conocia... pero a mi no me soluciona todo en el post xD... me tira error el codigo en esta linea

Código (vb) [Seleccionar] Expandir

        Call .Execute(, "Put " & txt_local & " " & txt_Remoto)

no se si alguno le habra pasado...
o q puede estar mal del code XD

SALUDOS

bueno hacia mucho q no usaba estas funciones... y como un #€#?@ no guarde un proyecto donde lo tenia...
el caso es q estaba tratando de hacer de nuevo un programa para enviar archivos con progressbar en el cliente y en el servidor...
el programa solo tiene eso, lo acabo de hacer para recordar.. y me di cuenta q no lo recuerdo muy bien xD..

Servidor:

Código [Seleccionar] Expandir

Dim Archivo As String, Peso As Long
Dim Partes As String

Private Sub Command1_Click()
Dim Puerto As Long
Puerto = Text1.Text
WS.Close
WS.LocalPort = Puerto
WS.Listen
End Sub

Private Sub Command3_Click()
Open Text2.Text For Binary As #1
Archivo = Input(LOF(1), 1)
Close #1
Peso = Len(Archivo)
WS.SendData "Envio|" & Peso
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim i As Long

WS.GetData Datos

If Datos = "Manda" Then
MsgBox "manda"
PB.Max = Peso
PB.Min = 1
For i = 1 To Peso
    Partes = Mid(Archivo, i, 100)
    WS.SendData Partes
    PB.Value = i
    i = i + 99
Next
PB.Value = 1
End If
End Sub


Cliente:

Código [Seleccionar] Expandir

Dim Recibiendo As Boolean, Peso As Long, vPeso As Long
Dim Archivo As String

Private Sub Command1_Click()
Dim IP As String
Dim Puerto As Long
IP = Text1.Text
Puerto = Text2.Text
WS.Close
WS.Connect IP, Puerto
End Sub

Private Sub WS_Connect()
MsgBox "Conecto"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos() As String

WS.GetData Datos

If Recibiendo = True Then
    vPeso = vPeso + bytesTotal
    Archivo = Archivo + Datos
    PB.Value = vPeso
    If Peso = vPeso Then
    MsgBox "recibe todo"
    PB.Value = 1
        Open "C:\foto.jpg" For Binary As #1
        Put #1, 1, Archivo
        Close #1
        Archivo = ""
        Recibiendo = False
    End If
    Exit Sub
End If

vDatos = Split(Datos, "|")

If vDatos(0) = "Envio" Then
    Recibiendo = True
    Archivo = ""
    vPeso = 0
    Peso = vDatos(1)
    PB.Max = Peso
    PB.Min = 1
    WS.SendData "Manda"
End If
End Sub


al archivo lo envia correctamente, y este llega bien, se guarda y todo... el problema es q primero se va cargando el progressbar del programa q lo envia, cuando este termina comienza a cargar el q lo recibe, y este cada vez lo hace mas lento...
:/ no entiendo xq es... es de noche tengo sueño y tal vez sea eso... pero x favor si alguno me da una mano se lo agradezco...


P/D: EON se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo solo encontre la funcion MID para partir el archivo pero no para el progressbar


SALUDOS

hola, he creado un Script para el messenger... es algo sencillo, es lo primero q hago en Script...
el programa funciona bien... pero tengo problemas para validarlo, creo q el problema esta en el .xml
quisiera saber si alguien ha hecho algun Script para el Messenger Plus! y me puede dar una mano...

SALUDOS

disculpen las molestias de este post, xq se q ya se hablo del tema...
pero yo estuve buscando en google y hay bastantes cosas q no me salen ¬¬
queria ver si alguno me tiraba algun link de ejemplos concretos de como usar comandos de la MS-DOS ya q vi uno muy bueno y completo pero q muchas cosas me dicen q la sintaxis la hago mal.
la idea de esto es aplicarlo a VB x eso lo posteo aca
se q es algo con el piper pero nunca logre hacerlo

SALUDOS

Buena, disculpen por esta pregunta tan sencilla, es q estoy teniendo problemas (y me siento muy ***** por ello) con leer la primer linea de un archivo.
Lo que debo hacer es eso, leer solo la primera, y una vez leida borrarla, pero dejando las otras (osea q la segunda pase a primera)
se q es con lineput pero no se xq no lo logro hacer.


desde ya muchas gracias

SALUDOS

bueno el tema quizas no venga aca... les pido q me lo muevan si es asi..

lo q quiero es ver lo q mi computadora envia en el puerto 13...
se q hice una pregunta similar el año pasado... (x si alguien piensa q ya la leyo) pero en el anterior me dieron un ej de como ver lo q entraba en el puerto 13, ahora quiero ver q sale de mi compu en ese puerto...
no pido un source (x eso no se si esto viene aca)
es q quiero intentar hacer mi propio cliente de un juego.. pero no se bien q datos envia el cliente...

desde ya gracias

SALUDOS

hacia tiempo q no hacia nada... y bue pense en hacer un progressbar sin el progressbar
jja bueno el caso es q asi quedo

en un form poner un commandbutton, timer, label y un picturebox

Código [Seleccionar] Expandir

Dim Contador As Long, Progreso As Long, Resto As Long

Private Sub Command1_Click()
Timer1.Interval = 10
End Sub

Private Sub Form_Load()
Contador = 0
Picture1.BackColor = vbWhite
Picture1.Width = 5000
Picture1.Height = 250
Picture1.DrawWidth = 5
End Sub

Private Sub Timer1_Timer()
Contador = Contador + 1
Progreso = 5000 / 100 * Contador
For i = Resto To Progreso
Picture1.PSet (i, 50), vbBlue
Next
Resto = Progreso
Label1.Caption = Contador & "%"
If Contador = 100 Then
MsgBox Contador & "%"
Timer1.Interval = 0
Contador = 0
Resto = 0
Picture1.BackColor = vbWhite
End If
End Sub


ya lo modifique 500 veces jaja creo q ahora quedo bien

acepto criticas (buenas y malas)

SALUDOS

bueno estuve viendo como trabjar con img... como en un picture dibujar en cierto pixel... y ese tipo de cosas q nunca habia hecho..
(la idea era tratar de hacer un juego) pero para eso falta todavia...

hice un par de programas "bobos" pero les dejo este q es el mas entretenido y muy simple para quien quiera aprender algo mas...

http://rapidshare.com/files/85333855/Capturas_de_pantalla.rar

el codigo es 100% mio.. no se si laguien ya hizo algo al estilo de este xD

SALUDOS

P/D: hice un programa tipo Paint.. pero no se como guardar lo q dibujo en el picture box... x favor si alguno me puede explicar o darme un manual donde se hacen este tipo de cosas.. ya q lo q fui haciendo fue todo probrando xD

ah y como se si ese pixel ya tiene algun color...

otra pregunta alguno tiene un code de esos jueguitos viejo...(de los primeros) en el q un pixel es un autito... y esta siempre quiero pero se mueve la pista... o algun code asi para ponerme a investigar.. en google no encuentro xD

vi muchos programas en vb de fuerza bruta.. pero nucna los entendi bien.. y me parecian muy complicados para algo q parecia muy sencillo... asi q hice el mio propio... pense q seria muy lento... xq el codigo creo q es realmente sencillo... muy repetitivo nomas.. xD pero de todos los q probe fue el mas rapido excepto x uno.. q es realmente rapido :S

se lo dejo para q opinen:

Código [Seleccionar] Expandir

Dim Comprobar As String, X As Long
Dim N As Byte, L As Byte, O As Byte, J As Byte

Private Sub Command1_Click()
For L = 32 To 128
    Comprobar = Chr(L)
    Text2.Text = Comprobar
    Text2.Refresh
    If Text1.Text = Comprobar Then
    MsgBox "Listo " & Chr(L)
    Exit Sub
    End If
Next L
L = 0

For L = 32 To 128
    For N = 32 To 128
        Comprobar = Chr(L) & Chr(N)
        Text2.Text = Comprobar
        Text2.Refresh
        If Text1.Text = Comprobar Then
        MsgBox "Listo " & Chr(L) & Chr(N)
        Exit Sub
        End If
    Next N
Next L
L = 0
N = 0
For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            Comprobar = Chr(L) & Chr(N) & Chr(O)
            Text2.Text = Comprobar
            Text2.Refresh
            If Text1.Text = Comprobar Then
            MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O)
            Exit Sub
            End If
        Next O
    Next N
Next L
L = 0
N = 0
O = 0

For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            For J = 32 To 128
                Comprobar = Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Text2.Text = Comprobar
                Text2.Refresh
                If Text1.Text = Comprobar Then
                MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Exit Sub
                End If
            Next J
        Next O
    Next N
Next L

MsgBox "no se encontro"
End Sub


SALUDOS

hice un filemanager... funciona todo bien... pero solo en C:\ o donde este el server...
mi duda era como hacer a detectar si hay otras unidades...
yo probe en mi computadora y si pongo F:\ tb me muestra sus archivos y cosas... pero no tengo como saber en una computadora remota... si existe o como se llaman las otras unidades...

aclaro q busque en el buscador.. pero siempre me decia q usara mas palabras.. xD y no sabia ya como combinarlas xD

SALUDOS

bueno anoche ... tenia insomnio xD y como q de la nada me pregutnte.. si parto un archivo al medio y pongo dos controles winsock a enviar.. una mitad cada uno... el archivo se enviaria al doble de velocidad??

bueno lo posteo xq ahora no tengo tiempo de programarlo xD desp lo voy a hacer pero queria saber si alguien ya lo habia intentado

queria saber como hacer tipo un SendKeys pero q invie el evento Keyup de una tecla... o keydown y keyup es lo mismo... pero con sendkeys no lo hace... :S

bueno... hice un programa... envia archivos del cliente al servidor.. pero mi problema es este... cuando busco un archivo y se muestra el commondialog, si yo no pongo abrir y pongo cancelar tira un error y se cierra el programa...

les dejo parte del code:
CommonDialog = CD

Código [Seleccionar] Expandir

If WS.State = 7 Then
    CD.ShowOpen
    RutArchivo = CD.FileName
    Open RutArchivo For Binary As #1
    EnvArchivo = Input(LOF(1), 1)
    Close #1
    EnvTam = Len(EnvArchivo)
    WS.SendData "Archivo|" & RutArchivo & "|" & EnvTam
    Form1.Caption = "Share - Esperando que acepte el archivo"
    Color (3)
    Exit Sub
End If


probe con CD.CancelError = true , desp con False y no se q mas hacer... probe con If etc... en google hay un ejemplo pero con el show font, y no lo termine de entender... si alguno me dice como hacer se lo agraderia

bueno lo q quiero es q cada vez q se haga click en el buttom se cree un archivo llamado 1.txt, y si este ya existe q sea 2.txt y asi sucesivamente
pero en el caso de q yo borre el archivo 1.txt, si le hago click al buttom no cree uno q se llame 3.txt sino q cree de nuevo el 1.txt

hice este code y no se q hice mal pero solo crea el archivo 1.txt y nada mas

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim I As Byte
For I = 1 To 255
If Dir("C:\Probar" & I & ".txt") = "" Then
    Open "C:\Probar\" & I & ".txt" For Binary As #1
    Put #1, 1, "JAJA"
    Close #1
    Exit For
End If
Next I
End Sub


P/D: para aquel q le interese el code... el error esta en la 4º linea me comi el "\" desp de "Probar" , tiene q quedar "Probar\"...

perdon x abir un tema nuevo x algo q desp me di cuenta xD

borrenlo moderadores si molesta xD


SALUDOS

[Demoniox12]

bueno esto se me acaba de ocurrir... y queria saber q opinaba el foro...

la idea era buscar un programa sencillo y ver quien lo puede copiar haciendolo en VB (obvio) de la forma mas sencilla...

para empezar yo ya busque uno se llama "Pedro Responde" muchos lo conoceran, sino pueden ir a la pag oficial

http://www.pedroresponde.com.ar/

de ahi lo pueden bajar o ver su funcion...

bueno la idea era q el q ya tenga le programa q haga lo mismo q "Pedro Responde" suba el code.. y asi cada uno q logre hacerlo y desp veemos quien lo logro de la forma mas facil, o en menos tiempo.


yo ya empese! aunque estoy un poquito trabado en una parte...!!

suerte a todos!

denmen sus opiniones sobre esta idea!


Ganadores:
Demoniox12 (code base de vivachapas)

bueno hace tiempo no programo cosas interesantes... y estoy medio olvidado,
hice varios troyanos (entre otras cosas), todos x suerte funcionaron bien, y en todos tengo q agredecer la ayuda del foro

pero como hacia mucho no los usaba y tenian varias cosas "mal hechas" o mejor digamos q no estaban hechas de la mejor forma, hice "borron y cuenta nueva"

empese hacer otro troyano hice la conexion, envia datos etc todo barbaro...
pero no se como hacer a q cuando el server se desconecte se me borre la victima de la LV (List View)... antes tmp me salia y siemrpe hacia un boton de Refresh q reiniciaba todas las conexiones y se volvia a poner a la escucha, pero es de lo mas lammer... hasta q una vez encontre en el foro una forma... pero ahora no la encuentro xD


y bue resumo aca, necestio saber cuando se desconecta una victima para sacarla de la LV


desde ya muchas gracias

ya habia hecho esta pregunta antes (aclaro antes de q me reten  ) pero no he conseguido hacerlo y como veo gente nueva en el foro tal vez alguien pueda darme una mano.
lo q quiero hacer es, bueno justamente, un sniffer para ver la informacion q le envia un juego al cliente (q lo tengo yo)
si tienen un ejemplo o algo se lo agradeceria enormemente

SALUDOS 

xD este tema me supero siemrpe jeje

el tema es este queria hacer un tipo de macros con el cual x ej estando en Word pulse la L y me escriba un texto (se q Word tiene para hacer macros pero lo quiero para otros programas)
el problema es q si pulso la "L" en el programa este hace lo q tiene q hacer pero, si lo hago en Word logicamente no le llega la orden a VB.
mi duda es como hacer a q interprete todas las pulsaciones aunque sea en otro lado. pense q seria algo como un keylogger pero necesito solo algunas funciones...

desde ya muchas gracias

bueno lo q queria hacer o por lo menos saber si se puede hacer es un programa q se quede "escuchando" y recibiendo la informacion q trasmiten dos programas... se los puertos y la ip... probe distintas maneras pero no logro hacerlo...

bueno queria probar esta api para no usar el timer q segun me dijeron utiliza muchos recursos XD

para "aprender a usarla" hice este pequeño programa:


requiere un text y un command

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Cont As Byte

Private Sub Command1_Click()
A:
Cont = Cont + 1
Text1.Text = Cont
If Cont = 20 Then
End
End If
Sleep 1000
GoTo A
End Sub


pero me tira error cuando lo hago.. en realidad se cuelga el programa... q puede ser?? q hago mal?

funciona pero no me muestra el resultado... jeje me acabo de dar cuenta de eso

estuve pensando pero no se como hacerlo... es algo muy sencillo pero no puedo hacerlo! :S

quiero dividir por ejemplo esta cadena:

C:\Documents and Settings\Usuario Final\Escritorio

y q me quede asi:

C:\Documents and Settings\Usuario Final

pense en algun split q me divida por los "\" y elimine el ultimo y luego los junte y entre medio ponga de nuevo "\"
pero no se como saber cual es el ultimo...

[DESCARGAR SPY]

bueno... decidi postear el codigo del "troyano" para q utds tb lo prueben y me digan
q se le puede mejorar... q cambiarian... o si les suscede el mismo problema q a mi...

lo pueden descargar de aqui

DESCARGAR SPY

cualquier cosa q no entiendan del code preguntenme


P/D: espero q ahora no me reten xD

estuve tratando de usar la fucion SendKeys... pero no tuve mucho exito

bueno lo q hacia era

appactivate ("nombre de la ventana")
SendKeys "algo aca"
SendKeys "{tab}"
SendKeys "otra cosa aca"

pero bueno dependiendo de cuanta cantidad de sendkeys ponga funcionaban algunos.. otros me lo escribia en el code del programa... a veces no hacia nada y casi siempre me desbloqueaba los numeros...

no se si alguien tendra un manual por ahi para q pueda leer o darme algunos consejos

desde ya muchas gracias

bueno... finalmente gracias a la paciencia y ayuda de usuarios del foro logre hacer indetectable mi "troyano"... y bueno...digo "troyano" xq lo unico q hace es enviar screen al cliente
pero mi problema es q cuando se abre el server... todo funciona barbaro... los screen funcionan de 10 pero despues de un rato de q este ejecutado el programa es como q hace mal las capturas... la parte del reloj y los icono ... osea toda la franja de la derecha no se ve y no se xq sera...
uso el modulo cJpg ...

no se si a alguien le abra pasado...

solo dejaba el link para q lo vean... esta publicado en Troyanos y virus... es un proyecto para q nos pongamos en camapaña y hagamos un lindo troyanito XD

no respondan aca si no en el otro foro

click aqui

bueno... habiendo terminado un troyano... esta vez mas elaborado aunque con muy poquitas funciones... :S queria ya empezar a infectar... pero para eso necesito q cuando se ejecute el server se copie a alguna carpeta donde no lo enceuntren facil... como system o system32 y q se ejecute con windows....

alguno sabe como hacerlo?? desde ya muchas gracias

[Form1]

es la primera vez q uso una variable Public y nunca pense q iba a tener problemas... pero bueno les explico:
tengo en el form 1 esto:

Form1
arriba de todo:

Public RIP As String

en el DataArrival:

RIP = WS(Index).RemoteHostIP

Form3

Private Sub Form_Load()
Label1.Caption = RIP
End Sub

pero en el form 3 no me dice la ip...
sin embargo si hago una label en el form 1 y le pongo esto:

Label1.Caption = RIP

si funciona... entonces creo q me falta una parte de codigo... como llamar a la variable a algo asi.. pero no se como hacerlo...

si me pueden decir q me falta o q hago mal se los agradezco!

bueno... hoy a pedido de un amigo jaja hice un codigo de como desplazar un form al estilo de la ventana de aviso de msn... el codigo es bastante sencillo...

solo necesita un timer:

Dim Cont As Long, Dire As Byte

Private Sub Form_Load()
Timer1.Interval = 10
Me.Left = 8000
Me.Top = 8500
Dire = 1
Cont = 0
End Sub

Private Sub Timer1_Timer()

If Dire = 1 Then
Me.Top = Me.Top - 50
Cont = Cont + 1
    If Cont = 50 Then
    Dire = 2
    Cont = 0
    End If
End If

If Dire = 2 Then
Cont = Cont + 1
    If Cont = 100 Then
    Dire = 3
    Cont = 0
    End If
End If

If Dire = 3 Then
Me.Top = Me.Top + 50
Cont = Cont + 1
    If Cont = 50 Then
    End
    End If
End If
End Sub

espero q a alguien le sea ultil...

bueno.. ya hice varios programas utilizando el control winsock... pero para q este se ejecute en otras computadoras necesito agregarle el OCX y eso ya me viene cansando  
lei hace mucho en el foro q se podia usar en vez de el control una API... y estuve buscando en el foro pero no lo encontre...

bueno en definitiva queria saber q API es la q se usa... y como se usa...

desde ya muchas gracias

hola... estuve haciendo un programa... muy simple para mandarle a mis amigos...
es muy sencillo... pero tengo un problema
yo quiero q cada vez q le den click a la cruz se ejecute otro en vez de cerrarse...
les dejo lo q tengo:

un solo form:
yo puse una label con un msg medio guarango jeje pero le puden poner imagenes o lo q se les ocurra

Dim Ruta As String

Private Sub Form_Load()
App.TaskVisible = False
Ruta = App.Path & "\" & App.EXEName
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "NO SE CIERRA puñetero QUE ENTENDES!", vbCritical, "BOLUDO!"
Shell Ruta
Cancel = 1
End Sub

bueno si alguien me puede decir q hago mal... o q me falta... ya probe con varios codigos de internet pero no lo logro!


modificado: gracias a EON ahora anda...

[CLIENTE]

bueno... voy a postear un codigo que hice con una muy buena explicacion creo de como hacer para enviar archivos a travez del control winsock...

bueno antes q nada aclaro q hay un poco de todos los codigos q hay en este foro... ya que de aqui aprendi a hacer esto 

CLIENTE
es el que recibe los datos en este caso...
colocar:
winsock1
progressbar1

Código:
'arriba de todo si no no funciona! no se xq...
Dim Enviar As Boolean 'variable Enviar q puede ser True o False
Dim FileSize As Long 'variable q tendra el tamaño total del archivo
Dim File As String 'variable q tendra al archivo
Dim Ruta As String 'variable q tendra el destino donde se guardara el archivo

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'cuando llegan datos
Dim Datos As String 'variable en la que se introduciran todos los datos q lleguen del servidor
Dim vDatos() As String 'variable en la cual se pondran los Datos separados por "|"
'lleva () para hacer un arraid

Winsock1.GetData Datos 'obtenemos los datos

If Enviar = True Then 'pregunta si Enviar = true
File = File + Datos 'le agregamos a la variable file los datos nuevos
ProgressBar1.Max = FileSize
ProgressBar1.Min = 1
ProgressBar1.Value = Len(File)
If Len(File) = FileSize Then 'si File es igual al tamaño total del archivo...
Open Ruta For Binary As #1 'abre la ruta donde se guardara el archivo
Put #1, 1, File 'mete los datos
Close #1 'cierra el archivo
MsgBox "Archivo completado", vbInformation 'muestra un msg q termino
Enviar = False 'cancela la funcion Enviar
File = "" 'vacia la variable File
End If 'Fin de Si
End If 'Fin del Si de mas arriba

If Left(Datos, 4) = "Info" Then 'pregunta si las primeras 4 letras de la variable Datos es igual a Info...
vDatos = Split(Datos, "|") 'si es asi separa los Datos en donde alla un |
Ruta = vDatos(1) 'la variable ruta es igual a la segundo bloque de las separaciones por el |
'ejemplo si el texto era "jaja|jeje" lo q se guardaria en esta variable es "jeje"
FileSize = vDatos(2) 'hace lo mismo q antes pero con el tercer bloque
Enviar = True 'pone a la variable Enviar en verdadero para q la proxima vez q lleguen datos se ejecute la primer funcion
Winsock1.SendData "OK" 'envia OK al servidor
End If 'Fin de Si
End Sub 'Termina con la funcion

Servidor
Winsock1
CommonDialog1
Command1
Text1
Text2

'arriba de todo si no no funciona... no se xq!!!
Dim Ruta As String 'variable donde se guardara la ruta del archivo
Dim FileSize As Long 'variable donde se guardara el tamaño del archivo
Dim File As String 'variable donde se guardara el archivo

Private Sub Command1_Click() 'cuando se le hace click al boton
CommonDialog1.ShowOpen 'abre el CommonDialog
Text1.Text = CommonDialog1.FileName 'una vez q eliges el archivo muestra su ruta en el text1
Open Text1.Text For Binary As #1 'abre esa ruta
File = Input(LOF(1), 1) 'la guarda en la variable File
Close #1 'cierra el archivo
FileSize = Len(File) 'en FileSize guarda el tamaño total del archivo
Ruta = Text2.Text 'Ruta es igual al text2.text... aqui es donde se guardara el archivo en el cliente
Winsock1.SendData "Info|" & Ruta & "|" & FileSize 'envia la palabra Info mas un separador | mas la ruta donde se guardara el archivo, otro | y el tamaño del archivo
End Sub 'fin de la funcion

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'cuando lleguen datos al winsock
Dim Datos As String 'variable donde se guardaran los datos q llegan
Winsock1.GetData Datos 'obtenemos los datos
If Datos = "OK" Then 'si los datos son igual a OK
Winsock1.SendData File 'q envie el archivo
End If 'Fin de Si
End Sub 'fin de la funcion

bueno la verdad no lo probe... lo hice muy rapido pero creo q esta bien hecho y explicado... si hay algo mal avisenme q lo modifico


despues voy a agregarle un progressbar....
pero como nunca hice uno... no se lo puse.. calculo q es secillo y si alguno me tira una idea mejor 

SALUDOS::


modificado...
+ ProgressBar en el CLIENTE

como pongo una imagen en un picture... o en un image... no se q me conviene para hacer (empezar a hacer) una funcion como la del bifrost... para poder hacer clicks en la pantalla de la victima...con screenshot y eso... los screenshot ya los pude hacer con el codigo de EON... tb recibirlos.. pero no se como cargarlos para verlos en un picture y poder hacer clicks...


si me ayudan muchas gracias...

hola... de nuevo aca... como antes sigo con mi "mini chat" cada vez le agrego mas cositas y se me ocurrio hacer una como la q tiene el msn, enviar zumbidos...
bueno... lo hice, y queria compartirlo... la verdad no se si alguien ya lo habra hecho.. calculo q si ya q por lo menos a mi me fue simple 

use:
un timer
un commandbutton

Dim c As Byte

Private Sub Command1_Click()
Timer1.Interval = 100
End Sub

Private Sub Form_Load()
c = 0
End Sub

Private Sub Timer1_Timer()
c = c + 1
Select Case c
Case 1
Form1.Left = Form1.Left + 40
Form1.Top = Form1.Top + 65
Beep
Case 2
Form1.Left = Form1.Left - 52
Form1.Top = Form1.Top + 69
Beep
Case 3
Form1.Left = Form1.Left + 30
Form1.Top = Form1.Top - 32
Beep
Case 4
Form1.Left = Form1.Left + 25
Form1.Top = Form1.Top + 50
Beep
Case 5
Form1.Left = Form1.Left + 40
Form1.Top = Form1.Top + 65
Beep
Case 6
Form1.Left = Form1.Left - 52
Form1.Top = Form1.Top + 69
Beep
Case 7
Form1.Left = Form1.Left + 30
Form1.Top = Form1.Top - 32
Beep
Case 8
Form1.Left = Form1.Left - 90
Form1.Top = Form1.Top - 130
Beep
Timer1.Interval = 0
c = 0
End Select
End Sub

espero q a alguno le sea ultil... 

buenas!... hice un programa bastante sencillo para ver si lo podia agregar a otro...
el programa lo q hace es esconder el cursor... pero solamente dentro del form si lo pones fuera de el si se ve... y queria saber como hacer a no se vea en toda la pantalla...


el codigo es

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor 0
End Sub

Private Sub Command2_Click()
ShowCursor 1
End Sub

como veran solo puse dos command ;P

investigando sobre el control Winsock vi q casi todos los ej los hacian con un "chat" a si q empese haciendo eso... y lo fui mejorando... y esto es lo q me quedo

en un form:
un winsock
dos textbox
dos timer
un commandbutton

Dim texto As String
Dim ip As String
Dim port As Long

Private Sub Form_Load()
ip = "127.0.1"
port = 142
Timer2.Interval = 1
Timer2.Enabled = False
Timer1.Interval = 1750
End Sub

Private Sub Command3_Click()
Dim enviar As String
On Error Resume Next
If Winsock1.State = 7 Then
enviar = Text2.Text
Winsock1.SendData enviar
texto = Text1.Text + "#" + enviar
Text1.Text = texto
Text2.Text = ""
Else
MsgBox "No estas conectado", vbCritical, "Error"
End If
End Sub

Private Sub Text1_Change()
Text1.Text = texto
End Sub

Private Sub Text2_Change()
If Text2.Text = "" Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Winsock1.State <> 7 Then
Winsock1.Close
Winsock1.Connect ip, port
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
If Winsock1.State = 7 Then
Winsock1.SendData "Se conecto"
Timer2.Enabled = False
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Beep
Dim datos As String
Winsock1.GetData datos
texto = Text1.Text + "//" + datos
Text1.Text = texto
End Sub

en otro form:
un winsock
dos textbox
un commandbutton

Dim texto As String

Private Sub Command3_Click()
Dim enviar As String
On Error Resume Next
If Winsock1.State = 7 Then
enviar = Text2.Text
Winsock1.SendData enviar
texto = Text1.Text + "#" + enviar
Text1.Text = texto
Text2.Text = ""
Else
MsgBox "No estas conectado", vbCritical, "Error"
Winsock1.Close
Winsock1.Listen
End If
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Text1_Change()
Text1.Text = texto
End Sub

Private Sub Text2_Change()
If Text2.Text = "" Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Beep
texto = Text1.Text + "//" + datos
Text1.Text = texto
End Sub

bueno... espero q a algun novato le sirva para aprender algo... y q les alla gustado...



lo q les queria preguntar... como hacer para q cuando se envie el texto se ponga en otra linea... xq si no queda todo en una sola y es muy feo... (por eso puse los separadores # y //)

llevo mucho leyendo y tratando de lograrla... pero nada... no termino de entender como puedo hacer un programa con conexion inversa usando un winsock...
por favor si alguien me puede explicar desde ya muchas gracias

creo q cifrar es la palabra...
hice un programa sencillo q la verdad lo uso mucho... es para guardar tus contraseñas para no olvidarlas...(ej: hotmail, yahoo, etc..)
para guardarlas hice q se cree un archivo en una determinada carpeta q esta bien escondida para q no se tenga facil acceso... pero igualmente cualquiera q la vea puede entrar y ver mis contraseñas... queria saber como puedo hacer a cifrar esa carpeta para q solo mi programa pueda leerla...

Estuve haciendo un programa utilizando el control winsock... pedi ayuda en el foro... hoy lo termine pero me quedaron algunas dudas...

lei en algun lugar q el cliente le tiene q mandar la orden al server para q este ejecute la accion (asi lo hice tb en mi programa), pero no entiendo xq no puede ser al reves...

y la segunda duda es como hacer a realizar una conexion inversa (creo q es la inversa la q necesito) para q cuando se abra el servidor me envie la ip de este automaticamente... (o se conecte con el cliente) xq por el momento cuando lo estuve probando le tengo q pedir a la otra persona q me la envie entonces yo la ingreso en el textbox del cliente y le doy conectar...

de nuevo muchas gracias de ante mano

Holas.... estoy empesando a trabajar con los winsock... segui el manual de como hacer un "chat" lo probe con otra compu y me funciono todo bien.... pero ahora quise yo hacer un programa distinto... para ver si lo lograba... es algo muy simple:
Use 2 form... en el primero q seria el servidor (aunque todavía no entiendo bien para q es cada uno...) puse solo un winsock y lo llame servidor y le puse en el LocalPort el numero 888 el codigo es el siguiente:

Private Sub Form_Load()
servidor.Listen
End Sub

Private Sub servidor_ConnectionRequest(ByVal requestID As Long)
servidor.Close
servidor.Accept requestID
End Sub

Private Sub servidor_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
servidor.GetData datos
If datos = "1" Then
Open "C:\Documents and Settings\Usuario Final\Escritorio\jiji.txt" For Output As #1
Print #1, "SOY UN KAPO... AGUS"
Close #1
End If
End Sub

en el segundo form (en realidad es otro proyecto... osea q los dos son Form1)
puse un winsock con el nombre cliente y en RemotePort puse el numero 888... tb puse 2 commandbutton y un textbox... el codigo es el siguiente:

Private Sub Command1_Click()
cliente.SendData "1"
End Sub

Private Sub Command2_Click()
cliente.RemoteHost = Text1.Text
cliente.Connect
End Sub

la idea del programa es q cuando yo le mando el servidor a alguien el lo abra... le pido la ip la pongo en el textbox del cliente y al pulsar el command1 se le cree en el escritorio un archivo *.txt de nombre jiji...

lo probe con migo mismo y funciona de 10 pero cuando se lo mando a otra persona... pongo el ip del otro en el cliente y pongo conectar (command2)... hasta ahi va bien pero cuando apreto el command1 para mandar la orden a q se genere el archivo me salta un error q dice algo de un protocolo... y al servidor (al otro chico q tiene el programa) tambien le aparece un error

por favor si me pueden decir q hago mal se los agradeceria...

desde ya muchas gracias