Test Foro de elhacker.net SMF 2.1

Aquí va , el parámetro es 7 pero donde se usa¿?
Decrypter.Text = ""

For i = 1 To Len(Text2)
s = Mid(Text2, i, 1)
Decrypter = Decrypter + Chr(Asc(s) Xor 88)
Es para desenriptar un string digan porfa si saben

Por lo que veo es una porción de una función en VB6, aunque funcionaría también en VB.NET

Saludos

pero a ver como se codea , un form con dos textbox,
y decrypter qu es , en fin alguien da un code porfa

Cita de: r7pyrred en 14 Enero 2013, 13:46 PM
pero a ver como se codea , un form con dos textbox,
y decrypter qu es , en fin alguien da un code porfa

Jajajajaja xD

Cita de: r7pyrred en 14 Enero 2013, 13:46 PM
pero a ver como se codea , un form con dos textbox,
y decrypter qu es , en fin alguien da un code porfa

estamos locos o que?

self.getlost()

</trolling xD>

Estás demasiado verde...

"Decrypter" es una variable que se llama así.

Cita de: r7pyrred en 14 Enero 2013, 13:46 PMpero a ver como se codea , un form con dos textbox,

La coma en medio me confunde, ¿Eso es una pregunta? xD

Así se hace en VB.NET, no sé si en VB6 funcionará:
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim TB1 As New TextBox, TB2 As New TextBox
       TB1.Text = "TextBox1" : TB2.Text = "TextBox2"
       TB1.Location = New Point(10, 25) : TB2.Location = New Point(10, 50)
       Me.Controls.Add(TB1)
       Me.Controls.Add(TB2)
   End Sub
End Class

Saludos...

Cita de: EleKtro H@cker en 21 Enero 2013, 05:52 AM
Estás demasiado verde...

"Decrypter" es una variable que se llama así.
La coma en medio me confunde, ¿Eso es una pregunta? xD

Así se hace en VB.NET, no sé si en VB6 funcionará:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim TB1 As New TextBox, TB2 As New TextBox
       TB1.Text = "TextBox1" : TB2.Text = "TextBox2"
       TB1.Location = New Point(10, 25) : TB2.Location = New Point(10, 50)
       Me.Controls.Add(TB1)
       Me.Controls.Add(TB2)
   End Sub
End Class

Saludos...

tengo que admitir que tu esfuerzo es admirable.

pero ten cuidado porque a veces puedes acabar tratando de buscar la logica a algo que nunca la tuvo, y picando pedazos de código que el demandante apenas comprendo y mucho menos va a utilizar xD

http://foro.elhacker.net/programacion_visual_basic/digan_como_usar_este_submain_o_funcion_desencriptar_texto_x-t381001.0.html (http://foro.elhacker.net/programacion_visual_basic/digan_como_usar_este_submain_o_funcion_desencriptar_texto_x-t381001.0.html)  :¬¬