¿cifrado con numeros primos?

[ApOkAlizE]

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

Código (vb) [Seleccionar] Expandir

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