Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Funciones Base64 codificar/decodificar

Códigos Asp

Con este codigo conseguimos codificar y decodificar variables a base64
Visitas: 26,848 - 09/09/2003 19.41.38
DemoNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION

Simplemente copia y pega este codigo en tu pagina

CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2.     Dim Base64Chars
  3.     Base64Chars =   "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
  4.             "abcdefghijklmnopqrstuvwxyz" & _
  5.             "0123456789" & _
  6.             "+/"
  7.  
  8.  
  9.     ' Codificar base 64
  10.     Public Function base64_encode( byVal strIn )
  11.         Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
  12.         For n = 1 To Len( strIn ) Step 3
  13.             c1 = Asc( Mid( strIn, n, 1 ) )
  14.             c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )
  15.             c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )
  16.             w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )
  17.             If Len( strIn ) >= n + 1 Then
  18.                 w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 )
  19.             Else
  20.                 w3 = -1
  21.             End If
  22.             If Len( strIn ) >= n + 2 Then
  23.                 w4 = c3 And 63
  24.             Else
  25.                 w4 = -1
  26.             End If
  27.             strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _
  28.                       mimeencode( w3 ) + mimeencode( w4 )
  29.         Next
  30.         base64_encode = strOut
  31.     End Function
  32.  
  33.     Private Function mimeencode( byVal intIn )
  34.         If intIn >= 0 Then
  35.             mimeencode = Mid( Base64Chars, intIn + 1, 1 )
  36.         Else
  37.             mimeencode = ""
  38.         End If
  39.     End Function   
  40.  
  41.  
  42.     ' Decodificar base 64
  43.     Public Function base64_decode( byVal strIn )
  44.         Dim w1, w2, w3, w4, n, strOut
  45.         For n = 1 To Len( strIn ) Step 4
  46.             w1 = mimedecode( Mid( strIn, n, 1 ) )
  47.             w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
  48.             w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
  49.             w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
  50.             If w2 >= 0 Then _
  51.                 strOut = strOut + _
  52.                     Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )
  53.             If w3 >= 0 Then _
  54.                 strOut = strOut + _
  55.                     Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )
  56.             If w4 >= 0 Then _
  57.                 strOut = strOut + _
  58.                     Chr( ( ( w3 * 64 + w4 ) And 255 ) )
  59.         Next
  60.         base64_decode = strOut
  61.     End Function
  62.  
  63.     Private Function mimedecode( byVal strIn )
  64.         If Len( strIn ) = 0 Then
  65.             mimedecode = -1 : Exit Function
  66.         Else
  67.             mimedecode = InStr( Base64Chars, strIn ) - 1
  68.         End If
  69.     End Function
  70.  
  71. cadena="Esta seria la cadena o clave para codificar"
  72. codificado = base64_encode( cadena)
  73. descodificado = base64_decode( codificado )
  74. response.write "Texto codificado: " & codificado &"<br><br>"
  75. response.write "Texto descodificado: " & descodificado
  76.  
  77. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- 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 -->
COMENTARIOS
Comentario usuario
jorge martínez
5 5
Excelente totalmente.
Un abrazo.
Gracias.
Comentario usuario
01/05/2004 16.50.01
2 5
Excelente, justo lo que necesitaba
Comentario usuario
11-07-2013 03:23:15
2 5
¿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
Comentario usuario
03-08-2009 23:29:56
2 5
¿y?

¿como se usa?

¿en q archivo se pone?
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.