pequeño encriptador de 16 byts echo en tasm

[B14573R]

bueno chicos este es mi primer aporte para los que empiesan en  tasm  el lenguaje que la lleba en todos los sentidos tantos como software y hardware  bueno espero les guste y lo disfruten y aprendan y lo modifiquen a gusto

Código (asm) [Seleccionar] Expandir

.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