Mostrando Codigo - Asp

<% 'Codigo ofrecido por Tutores.org %>
<%
Dim Base64Chars
Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"abcdefghijklmnopqrstuvwxyz" & _
"0123456789" & _
"+/"


' Codificar base 64
Public Function base64_encode( byVal strIn )
Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
For n = 1 To Len( strIn ) Step 3
c1 = Asc( Mid( strIn, n, 1 ) )
c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )
c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )
w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )
If Len( strIn ) >= n + 1 Then
w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 )
Else
w3 = -1
End If
If Len( strIn ) >= n + 2 Then
w4 = c3 And 63
Else
w4 = -1
End If
strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _
mimeencode( w3 ) + mimeencode( w4 )
Next
base64_encode = strOut
End Function

Private Function mimeencode( byVal intIn )
If intIn >= 0 Then
mimeencode = Mid( Base64Chars, intIn + 1, 1 )
Else
mimeencode = ""
End If
End Function


' Decodificar base 64
Public Function base64_decode( byVal strIn )
Dim w1, w2, w3, w4, n, strOut
For n = 1 To Len( strIn ) Step 4
w1 = mimedecode( Mid( strIn, n, 1 ) )
w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
If w2 >= 0 Then _
strOut = strOut + _
Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )
If w3 >= 0 Then _
strOut = strOut + _
Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )
If w4 >= 0 Then _
strOut = strOut + _
Chr( ( ( w3 * 64 + w4 ) And 255 ) )
Next
base64_decode = strOut
End Function

Private Function mimedecode( byVal strIn )
If Len( strIn ) = 0 Then
mimedecode = -1 : Exit Function
Else
mimedecode = InStr( Base64Chars, strIn ) - 1
End If
End Function

cadena="Esta seria la cadena o clave para codificar"
codificado = base64_encode( cadena)
descodificado = base64_decode( codificado )
response.write "Texto codificado: " & codificado &"<br><br>"
response.write "Texto descodificado: " & descodificado

%>

<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Funciones Base64 codificar/decodificar" href="http://www.tutores.org/codigo/544/" target="_blank">Funciones Base64 codificar/decodificar</a>
<!-- Final enlace Tutores.org -->

jorge martínez

Excelente totalmente.
Un abrazo.
Gracias.

Carlos 01/05/2004 16.50.01

Excelente, justo lo que necesitaba

Danny

¿Quen save sobre base-64?
que pongo o como le ago
como averiguo la palabra
esto es todo lo que tengo Decrypt con AER-256, then BASE-64


y el codigo es ...

1939472.5263470663, 1807788.4991260925, 1145738.7428963794, 2323859.3619925096, 1918045.1014731582, 2599689.187111111, 1746363.033173533, 2260531.1354806493, 1657464.4797203494, 34.99052184769039