Digan si saben que lenguaje es este , no es ni c ni c++

[r7pyrred]

Aquí va , el parámetro es 7 pero donde se usa¿?

Código [Seleccionar] Expandir

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

[Novlucker]

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

Saludos

[r7pyrred]

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

[$Edu$]

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

Jajajajaja xD

[alister]

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?

Código [Seleccionar] Expandir

self.getlost()

</trolling xD>

[Eleкtro]

Estás demasiado verde...

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

pero 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á:

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...

[alister]

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

[-- KiLiaN --]

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