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