Mensajes

De nada

Algo a si ?

Código (PHP) [Seleccionar] Expandir


<?
$Enc = Encriptacion("ABC");
echo  $Enc;
echo Desencriptacion($Enc); 
  function Encriptacion($Cadena)
   {
$cifrada  = "" ;
for ( $i = 0; $i <= strlen($Cadena) ; $i ++) {
$cifrada =  $cifrada .chr(ord($Cadena[$i])+1);
}
      return $cifrada;
   }

    function Desencriptacion($Cadena)
   {
$cifrada  = "" ;
for ( $i = 0; $i <= strlen($Cadena) ; $i ++) {
$cifrada =  $cifrada .chr(ord($Cadena[$i])-1);
}
      return $cifrada;
   }
    ?>


Deberias buscar un poquito ...

http://cl.php.net/function.gmp_xor

sin palabras ...a esperar entonces...

Entonces el subforo de visual basic esta libre a hacer desorden en ese suboforo!!

Este usuario está induciendo al desorden, nos está poniendo a unos en contra de otros para que nos peguemos en el subforo de visual basic...


Baaaannnn...

[broma]Me senti insultado por randomize bannenloo!!!!!!!!!!!!! [/broma]

Te equivocas, "libre" no quiere decir que se pueda hacer lo que quieras, y mucho menos faltar el respeto a los demás 

ok, gracias por la aclaración.

ya parecen politicos cortando la libertad de expresion

Esto es la dictadura de el-brujo el pone las reglas y si no las obedeces se elimina tu cuenta y a si es en todos los foros

el foro libre, que parece maś un warzone, por Dios!

Creo que tiene algo que ver con el hecho de que lo llamen "libre"...

Es foro libre no foro anarkiko

sin palabras ...a esperar entonces...

Entonces el subforo de visual basic esta libre a hacer desorden en ese suboforo!!

Para el uso que la use necesita ser reversible y de tu manera no lo es , podrias leer mejor el post.

Hola,

necesite hacer una pequeña función que pasar a unicode , a alguien mas le puede servir por eso la posteo

Código (asm) [Seleccionar] Expandir


proc ASCIITOUNICODE,Cadena,Buffer
push ecx ebx
mov  eax,[Cadena]
mov ebx,[Buffer]
dec eax
sub ebx,2
.bucle:
inc eax
cmp byte[eax],0
je .salir
add ebx,2
mov cl,byte[eax]
mov byte[ebx],cl
mov byte[ebx+1],0
jmp .bucle
.salir:
pop ebx ecx
ret
endp



Funcion que cuenta el largo de una cadena en Unicode:

Código (asm) [Seleccionar] Expandir

proc LenUnicode,cCadena
mov ebx,[cCadena]
mov eax,0
.bucle:
inc eax
cmp byte[ebx+eax*2],0
jne  .bucle
pop ebx
ret
endp


Funcion para concatenar cadenas en unicode

Código (asm) [Seleccionar] Expandir

proc ConcatenarUnicode,cCadena1,cCadena2,cBuffer
push esi edi
    mov edi,[cBuffer]
    mov esi,[cCadena1]

.bucle1:
    movsb
    cmp word[esi],0
    jne  .bucle1

       inc edi
        mov esi,[cCadena2]
.bucle2:
    movsb
    cmp word[esi],0
    jne  .bucle2
    pop edi esi
ret
endp


Un libro que yo te recomiendo es "Lenguaje ensamblador para computadoras basadas en intel por KIP R. IRVINE"