Encriptar la Informacion

Tengo este codigo que no recuerdo de donde lo consegui,
espero que te sirva.


'Esta es la función para encriptar:
Function Encriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Encriptar = "Error en la función Encriptar."
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Encriptar = Encriptar + Chr(IIf(Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) > 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) - 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function

La sintaxis es:

=Encriptar("Texto a encriptar"; "Clave")


'Y esta es la función para desencriptar:
Function Desencriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Desencriptar = "Error en la función Desencriptar"
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Desencriptar = Desencriptar + Chr(IIf(Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) < 0, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) + 256, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End FunctioFunctioFunctio
La sintaxis es:

=Desencriptar("Texto a desencriptar"; "Clave")

En excel se puede encriptar la informacion
Que es?
Si se puede, como se hace????

Gracias de antemano
.

Algun comentario de las otras preguntas (Para que nos sirve)

"Leandro" escribió:

Tengo este codigo que no recuerdo de donde lo consegui,
espero que te sirva.


'Esta es la función para encriptar:
Function Encriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Encriptar = "Error en la función Encriptar."
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Encriptar = Encriptar + Chr(IIf(Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) > 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) - 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function

La sintaxis es:

=Encriptar("Texto a encriptar"; "Clave")


'Y esta es la función para desencriptar:
Function Desencriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Desencriptar = "Error en la función Desencriptar"
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Desencriptar = Desencriptar + Chr(IIf(Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) < 0, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) + 256, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End FunctioFunctioFunctio
La sintaxis es:

=Desencriptar("Texto a desencriptar"; "Clave")


>>En excel se puede encriptar la informacion
>>Que es?
>>Si se puede, como se hace????
>Gracias de antemano
>.
>

sirve para codificar una expresion de manera que solo
pueda decodificarla la persona que tengla la 'clave' (en
teoría, o la esencia)

puedes probar el codigo para entenderlo mejor.

Algun comentario de las otras preguntas (Para que nos

sirve)

"Leandro" escribió:

Tengo este codigo que no recuerdo de donde lo consegui,
espero que te sirva.


'Esta es la función para encriptar:
Function Encriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Encriptar = "Error en la función Encriptar."
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Encriptar = Encriptar + Chr(IIf(Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) > 256, Asc(Mid

(texto,

posT, 1)) + Asc(Mid(clave, posC, 1)) - 256, Asc(Mid

(texto,

posT, 1)) + Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function

La sintaxis es:

=Encriptar("Texto a encriptar"; "Clave")


'Y esta es la función para desencriptar:
Function Desencriptar(texto As String, clave As String)

As

String
If Len(texto) = 0 Or Len(clave) = 0 Then
Desencriptar = "Error en la función

Desencriptar"

Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Desencriptar = Desencriptar + Chr(IIf(Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) < 0, Asc

(Mid

(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) + 256, Asc

(Mid

(texto, posT, 1)) - Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End FunctioFunctioFunctio
La sintaxis es:

=Desencriptar("Texto a desencriptar"; "Clave")


>>En excel se puede encriptar la informacion
>>Que es?
>>Si se puede, como se hace????
>Gracias de antemano
>.
>

.

Utiliza Menufazrt que tambien trae la funcion de encriptar. Lo encuentra en:

http://www11.brinkster.com/luism0/


Luis Medina
MENUFazt - Menu Excel Multifunciones

"BLACIO" escribió en el mensaje
news:

>En excel se puede encriptar la informacion
>Que es?
>Si se puede, como se hace????
Gracias de antemano

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date: 29/10/2004