SuperCoso v1.3 es un encriptador de texto plano que se basa en transladar
caracteres comunes en una tabla ASCII.
Util para mandarnos mensajitos secretos por MSN,o postear cosas en foro y que otro lo lea, etc.
Descarga & info: http://eazyrlz.blogspot.com/2008/09/supercoso-v13-released.html (http://eazyrlz.blogspot.com/2008/09/supercoso-v13-released.html)
Deberias entender que el visual basic 6 es muy diferente a los Vb.NET y aqui no entra para nada.
Esta sección es de programacion = codigos.
Puesto que no lo publicas y siendo algo tan sencillo de hacer y para nada seguro acabo de hacer a la rapida un code que tiene la misma funcion que el tuyo (enc-desc) lo dejo por si alguien quiere saber como funciona, aunque es demasiado obvio :laugh:
Private Sub Command1_Click()
Dim pri As Integer
Dim seg As Integer
Dim car As Integer
Dim cadena As String
pri = 0
seg = 1
For i = 0 To Len(Text1.Text) - 1
Text1.SelStart = pri
Text1.SelLength = seg
car = Asc(Text1.SelText)
cadena = cadena & Chr(car + 14)
pri = pri + 1
seg = seg + 1
Next
Text2.Text = cadena
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Dim pri As Integer
Dim seg As Integer
Dim car As Integer
Dim cadena As String
pri = 0
seg = 1
For i = 0 To Len(Text2.Text) - 1
Text2.SelStart = pri
Text2.SelLength = seg
car = Asc(Text2.SelText)
cadena = cadena & Chr(car - 14)
pri = pri + 1
seg = seg + 1
Next
Text1.Text = cadena
Text2.Text = ""
End Sub
Bueno, muevanlo a la sección de VB, me equivoque.
Que queres probar? que lo sabes hacer?
aprovechando la idea, no seria mal proyecto hacer un addin de msn en .net que hiciese esto (Tpo msnPlus!) ....
Atentamente,
Juan Manuel Lombana
Medellín - colombia
No es lo mismo cifrar que codificar. Tu "programa" es un codificador y este (http://foro.elhacker.net/desafios_wargames/archeritone_crypter_2-t223282.0.html) un encriptador.