Desencriptador

[ToR0]

Resulta que en X pagina web

manejan una  "encriptacion" para explicarles  yo hize una formula como tabla para desencriptar los passwords



Formula: "(CE) X (LD) = Clave"

------------->

ebqevtb  =  Clave Encriptada


abcdefg  h i j  k l     mn ñ       o p q      r s t u v  w x y z   = Letras desencriptadas
nopqrst  u v w x y    za  %F1  b c d     e f g h i   j  k l m   = Letras encriptadas

Resultado =  "(CE) X (LD) = Clave"


  Dato Encriptado = CE
  Letra desencriptada    = LD


Definicion Cripter  =  (Ce) X (Ld)  = clave =  "rodrigo"


vemos que para escribir "rodrigo" ellos utilizan  "ebqevtb"


Ahora bien...


Necesito dos text y un boton

Un text donde se ingrese el dato encriptado, y otro donde apararezca el desencriptado , teniendo en cuenta que yo ya se la criptografia que utlizan es decir, ellos usan la "a " como si fuera la "n" ,esa es su forma de encriptacion, entonces la idea es que  al usar el boton el resultado aparezca en el text2..

Entienden la wea?


ayuden

[el fantasma]

muy facil amigo usa la funcion replace de la siguiente manera

usando dos textbox y un boton asi como vos decis

Código:

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "a", "n")
End Sub

jejeje espero que te sirva

salu2

[ToR0]

muy facil amigo usa la funcion replace de la siguiente manera

usando dos textbox y un boton asi como vos decis

Código:

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "a", "n")
End Sub

jejeje espero que te sirva

salu2

No va , por que cuando yo pongo

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "a", "n")
Text2.Text = Replace(Text1.Text, "b", "o")
End Sub

Reconoze el primero mas no el segundo,

intenta tu y veras

si pones en el text 1 "ab"

saldra "ao"

No se por que..

espero que me ayudes

saludos!

[el fantasma]

No va , por que cuando yo pongo

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "a", "n")
Text2.Text = Replace(Text1.Text, "b", "o")
End Sub

Reconoze el primero mas no el segundo,

intenta tu y veras

si pones en el text 1 "ab"

saldra "ao"

No se por que..

espero que me ayudes

saludos!

hacelo de esta manera amigo

Código:

Private Sub Command1_Click()
x = Replace(Text1.Text, "a", "n")
y = Replace(x, "b", "o")
Text2.Text = y
End Sub

y asi entiendes la idea verdad?

espero averte ayudado.

salu2 

[ziBboh]

Creo que te puedo ayudar, deja checo más a fondo tu proyecto y me comunicare contigo.

[700esoj]

mm yo hice uno en otro basic. quedaria algo como esto.

Dim enc(27) as STRING

enc(1) = Replace "a" with "n" in Text1 ' <- otra manera de utilizar el replace
enc(2) = Replace(Text1, "b", "o")
enc(3) = Replace(text1, "c", "p")

'ASi por es elstilo hasta tener todas en sus variables. Luego ...

Dim i AS Integer

For i = 1 to 27
Text2.text = Text2.text & enc(i)
Next i

'...... sera eso lo q quieres?


pd: Hacer un encryptador de letras es muy dificil ya q cuando el texto tiene por ejemplo  a,b,c,d,e,f,g,h,i,j,k  y para encryptar sea b,c,,d,e,f,g,h,i,j,k,l

cuando lo traduscas quedara l,l,l,l,l,l,l,l,l,l,l,l,l,l,l no se si me entiendes

a = b

pero al b = c  el a sera traducido a "b" y de b sera traducido a "c" y de c a "d" y asi hasta quedar con las mismas letras, no es algo q tenga tanta logica si no lo haces con mas variables y  logistica. Yo no e logrado hacer uno decente pero voy a dedicarme a hacer uno.

[700esoj]

alomejor sea posible haciendolo en un array indefinido.

ejemplo:

Dim texto() as string '<- Valor del text1
Dim i As Long            '<- longitud

For i = 1 to Len(text1) 
texto(i) = Text1.text
Next i

'Ahora se applica lo de el otro post


Dim var(27) AS String
Dim i AS Integer



var(1) = Replace "a" with "n" in texto(1) ' <- otra manera de utilizar el replace
var(2) = Replace(texto(2), "b", "o")
var(3) = Replace(texto(3), "c", "p")

'y asi por como en el otro post

yo creo q esa seria la manera de hacerlo.

'alguien q lo modifique y lo continue y lo postee aqui para q el muchacho haga su programa

[sable]

yo hice uno ace tiempo el code era ir sumando x ejemplo si a = n ( kiere decir k an pasado 14 letras
cuando pones b = ñ ( ya ke se suman 14)

nu se si se entiende

voy a buskar el programa y ahora pego el code

[sable]

el codigo NO ES MIO
no recuerdo de kien era
espero ke no le importe.
weno aki esta el programita pones 3 botones 3 label y 3 textbox
sencillo no?
espero que les sirva


Dim cadena As String
Dim I As Integer
Dim TextoAux As String, Texto As String
Public x As String
Private Sub Command1_Click()
If Key.Text = "" Then
    MsgBox "loco pon un numero donde dice llave", vbInformation, ""
    Key.SetFocus
Else
If Key.Text <= 0 Or Key.Text > 200 Then
    MsgBox "me vas a matar que no sabes leer.... ahi dice entre 1 - 200!!!!", vbCritical, "mierda....."
    Key.Text = ""
    Key.SetFocus
Else
If Text1.Text = "" Then
    MsgBox "ahora mete una PALABRA!!!", vbCritical, ""
    Text1.SetFocus
Else
    x = Key.Text
    Texto = ""
    TextoAux1 = Text1.Text
        For I = 1 To Len(TextoAux1)
            Text1.SelStart = I - 1
            Text1.SelLengt h = 1
            TextoAux = Text1.SelText
            Texto = Texto + Chr$(Asc(TextoAux) Xor x)
        Next I
            Text2.Text = Texto
End If
End If
End If
End Sub

Private Sub Command2_Click()
Key.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub key_KeyPress(KeyAscii As Integer)
cadena = "0123456789" + Chr(8) + Chr(13)
If InStr(cadena, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
End If
If Len(Key.Text) = 3 Then
    KeyAscii = 0
End If
End Sub

Private Sub Form_Load()

End Sub

[crypto136]

el codigo NO ES MIO
no recuerdo de kien era
espero ke no le importe.

No importa men tranquilo....
Para ver este enlace Registrate o Inicia Sesion

Post Original

la cuestion es que la llave que debes ingresar debe ser la cantitdad de letras que hay entre la "a" y la "n" que son 13 o 14 ....

[ziBboh]

yo ya le hice el programa desde un dia despues de su post pero no le intereso!