Mensajes

Bajata un buen antivirus (kaspersky o nod32) y un antiespias como el spybot, que siempre viene bien 

Si sabes programar en vb no te sera muy dificil, mira las chinchetas de troyanos y virus, en los temas frecuentes.
En uno de ellos ahi un manual para crear un troyano en visual basic, creo que ahi un code para añadir lo de la web cam, aparte de muchas cosas mas.
Tambien puedes usar el boton que ya se ha ablado de esto antes
Salu2!

En un portal de webs como minerva no sabria decirte, pero en un html con el mismo macromedia flash, ai una opcion, creo que se llama importar, que te genera un codigo html y va de lujo 

Leoj90, pongo aqui lo que tu pusiste en otro post.

Aca les dejo 2 links para descargar Visual Basic 6, escojan el q quieran:

http://lamar.cs.buap.mx/software/vbasic6.rar

http://80.32.232.60/programas/visual_basic_6.exe

Saludos 

Con este code podre poner k se vuelva mayuscula no?

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
End Sub


Ya lo se que distingue....gracias por el code
He pensado en ponerle que solo permita mayusculas...asi no abra problemas

[corrupt_gamer]

Si ubieses leido unos post mas abajo verias un codigo que a puesto corrupt_gamer

Código [Seleccionar] Expandir

Private Sub cmdDesencriptartxt_Click()
clave = Mid$(Text1.Text, 2, 2)
Label1.Caption = "LOADING. . ."
DoEvents
For i = 5 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If c = " " Then
        code = code & " "
    Else
        code = code & Chr$(Asc(c) + clave)
    End If
Next
Text1.Text = code
i = 1
c = ""
code = ""
cmdDesencriptartxt.Enabled = False
clave = 0
Label1.Caption = ""
End Sub

Private Sub cmdEncriptartxt_Click()
Randomize timer
Label1.Caption = "LOADING. . ."
DoEvents
r = Int(Rnd * 16) + 10
For i = 1 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If Asc(c) - r < 1 Then
        On Error Resume Next
    ElseIf c = " " Then
        code = code & c
    Else
        code = code & Chr$(Asc(c) - r)
    End If
       
Next
Text1.Text = "[" & r & "]" & code
clave = r
code = ""
c = ""
r = 0
i = 1
cmdEncriptartxt.Enabled = False
cmdDesencriptartxt.Enabled = True
Label1.Caption = ""
End Sub

Ahora mismo con mis estudios no puedo aprender visual basic a fondo, simplemente voy aprendiendo lo que me va haciendo falta...hasta el dia que tenga tiempo y me ponga en serio.

Nadie sabe algun code?

Bueno, sería cosa de intentar..

Visual basic depende de las run times de windows...como carajos vas a hacer una distri de linux?
Talvez se pudiera hacer como un emulador de un SO...alguien sabe al respecto?

A mi tambien me interesa...alguien nos puede echr un cable?