Código
.model small .code encryp segment assume cs:encryp, ds:encryp, ss:encryp org 100h start: jmp index .stack tb1 equ 13 tb2 equ 10 crep db 200,0,200 dup('$') crypt1 db 'Insert una cadena:',tb1,tb2,'$' crypt2 db 'cadena cifrada:','$' index: mov ax,encryp mov ds,ax lea dx,crypt1 mov ah,09h int 21h mov ah,0Ah ;pedimos la cadena mov dx,offset crep ;la guardamos en crep int 21h mov si, offset crep+1 lea bx,crep+1 mov cl,byte ptr [si] bucle: inc bx mov ax,[bx] ;ciframos add ax,0035h ;le sumamos 35 en hexadecimal a la cadena que en decimal es 53 mov [bx],ax loop bucle lea dx,crypt2 mov ah,09h int 21h mov dx,offset crep+2 ;mostramos la cadena cifrada mov ah,9h int 21h mov ah,10h int 16h encryp ends end start
aca el lin del ejecutable: http://rapidshare.com/files/339576258/Encriptadorbasico.rar.html
EI: juntando mensajes.
no es el gran programa pero sirve para aprender
sip