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


es de locos pero me gusta mucho este lenguaje me facina porque al parecer se puede controlar todo el ordenador
aa y un saludo a carloswaldo, Nakp, yst y a otros que no recurdo 