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
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
Código (asm) [Seleccionar]
.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