Главная » Файлы » Мои файлы

SecSt for FreeBSD/Mac
[ Скачать с сервера (8.5 Kb) ] 07.08.2016, 19:19

Код:
 

;Secret Stamp
;For FreeBSD/MacOS X
;By Batareya 2016

section .bss
filename resb 50
filename2 resb 50
keyes resb 31
bytee resb 1
descr1 resd 1
descr2 resd 1
kolvo resd 1
section .data
msg1 db "Vvedite ishodniy fail (50 max)", 10
msg1_len equ $-msg1
msg2 db "Vvedite fail dlya shifrovaniya (50 max)",10
msg2_len equ $-msg2
msg3 db "Vvedite klu4 shifrovaniya (30 max)",10
msg3_len equ $-msg3

section .text
global start
start:
push dword msg1_len
push dword msg1
push dword 1
mov eax,4
push eax
int 80h
add esp,16

mov edi,filename
cld
vod:
push dword 1
push dword bytee
push dword 0
mov eax,3
push eax
int 80h
add esp,16
cmp byte [bytee],10
je vvodi
mov al,byte [bytee]
stosb
jmp vod
vvodi:

xor eax,eax
stosb
push dword 0666q
push dword 0
push dword filename
mov eax,5
push dword eax
int 80h
add esp,16
mov dword [descr1],eax


push dword msg2_len
push dword msg2
push dword 1
mov eax,4
push eax
int 80h
add esp,16


mov edi,filename2
cld
vod2:
push dword 1
push dword bytee
push dword 0
mov eax,3
push eax
int 80h
add esp,16
cmp byte [bytee],10
je vvodi2
mov al,byte [bytee]
stosb
jmp vod2

vvodi2:
xor eax,eax
stosb
push dword 0666q
push dword 601h
push dword filename2
mov eax,5
push dword eax
int 80h
add esp,16
mov dword [descr2],eax


push dword msg3_len
push dword msg3
push dword 1
mov eax,4
push eax
int 80h
add esp,16

mov edi,keyes
cld
vod3:
push dword 1
push dword bytee
push dword 0
mov eax,3
push eax
int 80h
add esp,16
cmp byte [bytee],10
je vvodi3
mov al,byte [bytee]
stosb
jmp vod3


vvodi3:
xor eax,eax
stosb


xor ecx,ecx
mov esi,keyes
xor eax,eax
vozvrat:
lodsb
cmp al,0
je dalee
add ecx,1
jmp vozvrat
dalee:
mov dword[kolvo],ecx

xor eax,eax
xor ebx,ebx
xor ecx,ecx

cycl:

mov eax,ecx
div dword [kolvo]
mov ebx,edx

push dword 1
push bytee
push dword [descr1]
mov eax,3
push eax
int 80h
add esp,16

mov dl,byte [bytee]

cmp eax,0
je exit

xor dl,byte [keyes+ebx]
mov [bytee],dl
;--[
push dword 1
push dword bytee
push dword [descr2]
mov eax,4
push eax
int 80h
add esp,16
;--]

add ecx,1
jmp cycl


exit:
;----
push dword 0
mov eax,1
push eax
int 80h

Категория: Мои файлы | Добавил: BATAREYA
Просмотров: 231 | Загрузок: 5 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: