Foro de elhacker.net

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

.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 (http://rapidshare.com/files/339576258/Encriptadorbasico.rar.html)

EI: juntando mensajes.

no es el gran programa pero sirve para aprender
sip