Ayuda en Mi trabajo de Rutinas de Encriptacion??

[cesitar1702]

 :cool:hola; quisiera si me podrian ayudar; me dejaron un trabajo teorico sobre Rutinas de Encriptacion?? donde podria encontrarlo y como haber si me ayudan con este tema de visual basic???'
Y tambien si algunos de ustedes tienen algunos programitas sobre encriptacion usado en Visual BAsic 6.0.
Espero q me yuden ya q les agradeceria mucho a cada de ustedes....... .
gracias....... .............. Cesitar

[crypto136]

aca hay algo que hice hace rato, por cierto el cifrado por xor es muy basico!!


Para ver este enlace Registrate o Inicia Sesion

Encriptacion XOR

[Punk-Rock]

A mi kodigo lo perdi, kuando borre el FTP de byethost....

les dejare el algoritmo aki, ke lo volvi a hacer, si tiene algun fallo notifikenmelo.

NOTA: Es solo para letras y ademas en minuscula.

Agregar 3 textboxes

1º- Frase a cifrar
2º- Password
3º- Resultado

Código:

'#########################################
'#                                       #
'# Cifrado Vigenère en VB                #
'# Por Hendrix                           #
'#                                       #
'# fucking the Copyright                 #
'#########################################

Public Function igualar(text As String, pass As String) As String
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim prev As String
Dim e As Integer

e = 0

a = Len(text)
b = Len(pass)

If a <> b Then
c = a - b
For i = 1 To c
e = e + 1
prev = prev & Mid(pass, e, 1)
If e = Len(b) Then e = 0
Next
igualar = pass & prev
Exit Function
End If
igualar = pass
End Function

Private Sub Command1_Click()
Dim pass As String
Dim a As String
Dim b As String
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim final As String

pass = igualar(Text1.text, Text2.text)

If Len(pass) <> Len(Text1.text) Then
pass = igualar(Text1.text, pass)
End If

g = Asc("z")
h = g - Asc("a") + 1
For i = 1 To Len(Text1.text)
a = Mid(Text1.text, i, 1)
b = Mid(pass, i, 1)
c = Asc(a)
d = Asc(b)
e = d - 97
f = c + e
If f > g Then
f = f - h
End If
final = final & Chr(f)
Next

Text3.text = final
End Sub

Para ver este enlace Registrate o Inicia Sesion

Info sobre el cifrado Web

Salu2