theReformed

We're happy to take you back with us to the past, where Echelon Labs was creating tools free to the public for the good of developers abroad. So, as a reintroduction is in order, say hello once again to Cryptonoya a low-level personal data encryption utility designed by our former Software Engineers in a time where personal privacy and/or security was just beginning to take shape and paranoia of intrusion on those priveleges or rights was becoming more and more justified. ;Title: Cryptonoya 1.2 ;Distributor: HNC Network - Echelon Labs ;Release Date: 2002.01.31 ;Re-Release Date: 2007.01.27 ;Description: Low-level personal data encryption tool. ;Language: ASM | Because its fun! ;License: Creative Commons Attribution-Non-Commercial-ShareAlike 2.5 dosseg .model small .stack 100h.dataanykey db 'Press any key to quit','$' margin db ' ','$' lnreturn db 0ah,0dh,'$' errormsg db 'Error: File Does Not Exist','$' title1 db 'Cryptonoya v. 1.2','$' cursorposx db ? cursorposy db ? msg1 db 'File to encrypt:','$' maxkeys1 db 12 charsinput1 db ? filein db 12 dup(0) fileout db 12 dup(0) buffer db 64 dup(?) infile dw ? outfile dw ?.code main proc mov ax,@data mov ds,axmov ah,6 mov al,0 mov ch,0 ;clr scrn mov cl,0 mov dh,24 mov dl,79 mov bh,7 int 10h mov ah,6 mov al,1 mov ch,0 mov cl,0 ;set title attribs mov dh,1 mov dl,79 mov bh,00011000b int 10h mov ah,6 mov al,0 mov ch,1 mov cl,0 ;set title attribs mov dh,25 mov dl,1 mov bh,00011000b int 10h mov ah,6 mov al,0 mov ch,1 mov cl,79 ;set title attribs mov dh,25 mov dl,79 mov bh,00011000b int 10h mov ah,6 mov al,1 mov ch,0 mov cl,0 ;set title attribs mov dh,24 mov dl,79 mov bh,00011000b int 10h mov ah,2 mov dh,1 mov dl,30 ;set title pos mov bh,0 int 10h mov cx,10 xor cx,offset msg1 add cx,12 rol cx,3 mov cx,0 mov ah,9 mov dx,offset title1 ;write title int 21h mov ah,2 mov dh,10 ;set input prompt pos mov dl,2 mov bh,0 int 10h mov ah,9 mov dx,offset msg1 ; write prompt int 21h mov ah,0ah mov dx,offset maxkeys1 ;user input file int 21h mov al,charsinput1 mov bx,offset filein addtop: inc bx ;put 0 at end of filename dec al cmp al,0 jne addtop mov ax,0 mov [bx],ax ;—– mov cx,15 xor cx,offset errormsg add cx,5 rol cx,2 mov cx,0 mov ah,3 mov bh,0 ;get cursor position int 10h mov ah,2 inc dh mov dl,3 ;set cursor position mov bh,0 int 10h mov ah,3dh mov al,2 ;open input file mov dx,offset filein ;save handle as infile int 21h mov infile,ax jc errmsgfix mov bx,offset filein mov al,charsinput1 dec al dec al ;steps down to the extension of input file dec al maketop: inc bx dec al cmp al,0 jne maketop mov ax,106d mov [bx],ax inc bx mov ax,112d ;end it in .jpl mov [bx],ax inc bx mov ax,108d mov [bx],ax inc bx mov ax,36d mov [bx],ax mov dx, offset filein call createfile ;call actual creation process jc errmsgfix mov ah,3dh mov al,2 mov dx,offset filein ;open output file int 21h ;save handle as outfile mov outfile,ax jmp tiptop errmsgfix: jmp errmsg1 mov cx,1 xor cx,10001010b add cx,2 rol cx,7 mov cx,0 tiptop: mov ah,3fh mov bx,infile ;read 64 bytes of input file mov cx,64 lea dx,buffer int 21h cmp ax,cx jb stopme mov bx,0 mov dl,10100010b xorit: xor [buffer+bx],dl add [buffer+bx],11b ;encrypt data in buffer rol [buffer+bx],1 inc bx inc dl cmp bx,64 jne xorit mov ah,40h mov bx,outfile mov cx,64d mov dx,offset buffer ;write buffer to output int 21h jmp tiptop stopme: ;from here below is to write the last portion of the ;input file because chances are its not going to be ;exactly the same size as the buffer. AX contains the ;# of bytes read by the read function before the jump mov bx,0 mov dl,01010111b xorit2: xor [buffer+bx],dl add [buffer+bx],11b rol [buffer+bx],1 inc bx inc dl cmp bx,ax jne xorit2 mov cx,ax mov ah,40h mov bx,outfile ;write buffer to output mov dx,offset buffer int 21h mov ah,3eh ;close input file mov bx,infile int 21h mov ah,3eh mov bx,outfile ;close output file int 21h jmp last ; go to finishing touches. errmsg1: mov ah,9 mov dx,offset errormsg ;error w/ file handling message int 21h jmp last last: mov ah,2 mov dh,23 ;set exit prompt pos mov dl,30 mov bh,0 int 10h mov ah,9 mov dx,offset anykey ;hit any key int 21h mov ah,8 ;input the key (for pause) int 21h mov cx,bx xor cx,offset title1 add cx,18 rol cx,6 mov cx,0 mov ah,6 mov al,0 mov ch,0 ;clr scrn mov cl,0 mov dh,24 mov dl,79 mov bh,7 int 10h mov ax,4C00h int 21h main endp createfile proc push cx push dx mov ah,3ch ;create new file procedure mov cx,0 int 21h pop dx pop cx ret createfile endp end main License: Creative Commons Attribution-Non-Commercial-ShareAlike 2.5