Mensajes

si el problema es que el acceso a google y las mayoria de las paginas mas comunes estan bloqueadas.. 

ya intente hacer el servidor socks ssh con windowsy  con linux por el puerto 3000..

y nada no hay forma ...
una pregunta como creo un servidor conectado a la nube como asi?

y como es que me voy a conectar si me bloquean todas las salidas htttp



otra duda mi jefe de departamento informatico y el subjefe al logrado llegar a obtener full acceso ...segun ellos solo hay que emmascarar la ip para burlar el firewall?

como asi alguien  save de este tema?

hola amigos resulta que en mi trabajo teniamos acceso a google con restricciones...

Ahora bloquearon todas las paginas incluyendo google y a veces necesitamos info (en mi caso informacion por la universidad) y no podemos acceder a nada...


Pero a nivel de la intranet podemos acceder a por los menos paginas como la del banco hsbc y las universidades del estado ....lo demas esta full bloqueado ....

Ya he usado muchos programas http-tunnel,el ghost, entre un monton para tratar de escapar por algun puerto pero nada ...Cuando hago ping desde la consola cmd ni recibe paquetes ni de google ni de otra web que no sean como3 o 4 del estado solamente como instituciones o universidades ....
Lo raro que un compañero si logro tener full acceso internet segun el una pista es que hay que emmascarar la ip (no se el porque ) con la ayuda de algun programa dice el...

Estamos o nos pegamos por laptop a un router tp-lynks wi-fi, y el a su ves a la intranet del trabajo.

ya use muchos soft para poner ip falsas y nada como real hide ip,etc....

alguna idea de rebasar ese firewall (porque proxy no es¡¡)

solo con acceder a google para infor de la universidad me vasta...

saludos y gracias por su ayuda..

hola amigos he hecho esta calculadora  en .asm asembler con este codigo

pero esta muy simple ....

Me pueden ayudar a que tenga efectos y colores  es decir me pueden ayudar a que se ve espectacular la calculadora con un diseño y efectos mejorados porfa....

gracias aqui esta el codigode mi trabajo


; Ensamblador utilizado NASM
;
;

   [BITS 16]              ; Set 16 bit code generation
   SEGMENT junk        ; Segment containing code

     ..start:               ; The two dots tell the linker to Start Here.                        

 
   mov  ax,data      ; Move segment address of data segment into AX
   mov  ds,ax        ; Copy address from AX into DS
   mov  es,ax     ;
   mov  ax,stack     ; Move segment address of stack segment into AX
   mov  ss,ax        ; Copy address from AX into SS

   mov  sp,stacktop  ; Point SP to the top of the stack

   ;==============================|
   ; MAIN                 |
   ;==============================|      

   Inicio:

   call Reset      ; Limpiar variables

   call Menu      ; Imprimir menu
   
   Opcion:

   call GetCh      ; Leer caracter de seleccion de opcion del menu

   cmp al, 27      ; es ESC ?
   je Fin         ; terminal si es ESC

   cmp al, '1'      ; es ASCII 1?
   jne Opt2      ; saltar si no es igual

   call DoSuma      ; ingresar los datos y operar la suma

   jmp Inicio      ; repetir el ciclo

   Opt2:         

   cmp al, '2'      ; es ASCII 2
   jne Opt3      ; saltar si no es igual
   
   call DoResta      ; ingresar datos y operar la resta
   
   jmp Inicio      ; repetir el ciclo
   
   Opt3:

   cmp al, '3'      ; es ASCII 3
   jne Opt4      ; saltar si no es igual

   call DoMulti      ; ingreasar datos y operar la multiplicacion
   
   jmp Inicio      ; repetir el ciclo

   Opt4:

   cmp al, '4'      ; es ASCII 4
   jne Opcion      ; si no repetir el ingreso de caracter

   call DoDiv      ; ingresar datos y operar la division
   
   jmp Inicio      ; repetir ciclo

   Fin:
      

   mov ax, 04C00H     ; salir
   int 21H            ; fin de programa


;======================================================================

   ; funcion DoDiv
   ; ingresa datos y opera la division
   
   DoDiv:

   call NewLine      ;

   mov dx, Msg13      ;
   call Writeln      ;
   
   Call NewLine      ;

   mov dx, Msg6      ;
   call Write      ;
   
   mov cx, 10      ; 10 digitos
   mov di, OpA      ; guardarlo en memoria OpA
   call Read128BitNum   ; llamar a la funcion que lee el numero

   Call NewLine      ;
   
   mov dx, Msg7      ;
   call Write      ;
   
   mov cx, 10      ; 10 digitos
   mov di, OpB      ; guardarlo en memoria OpB
   call Read128BitNum   ; llamar a la funcion que lee el numero

   mov si, OpB      ; parametros para comparar el operador B
   mov di, Cero128Bits   ; con cero, division por cero?

   call Cmp128Bits      ; compara dos numeros de 128bits
   je DoDivFin      ; si el B == 0 error division por cero

   Call NewLine      ;

   mov si, OpA      ; parametros de la division
   mov di, OpB      ; etc
   mov bx, prd      ; resultado

   call Div128Bits      ; funcion que divide dos numeros

   mov dx, Msg8      ;

   call Write      ;

   mov si, prd      ; resultado de la division en binario
   mov cx, 20      ;
   mov bx, Res      ;

   call  Write128BitS   ; funcion que convierte de binario a decimal

   mov si,Res      ; en Res esta guardado el numero en decimal como cadena
   
   call WriteNum      ; imprimir el numero en pantalla

   Call NewLine      ;
   Call NewLine      ;

   ret         ;

   DoDivFin:

   Call NewLine      ; Exception, en caso de division por cer
   mov dx, Msg14      ; imprimir un mensaje extra de error
   call Writeln      ; y regresar sin hacer nada.

   ret         ;

;======================================================================

   ; funcion DoMulti
   ; ingresa datos y opera la multiplicacion
   
   DoMulti:

   call NewLine      ;

   mov dx, Msg12      ;
   call Writeln      ;
   
   Call NewLine      ;

   mov dx, Msg6      ;
   call Write      ;
   
   mov cx, 10      ; ingresar un numero de
   mov di, OpA      ; 10 digitos y guardarlo
   call Read128BitNum   ; en binario en OpA

   Call NewLine      ;
   
   mov dx, Msg7      ;
   call Write      ;
   
   mov cx, 10      ; Ingresar numero de 10
   mov di, OpB      ; digitos en binario y guardarlo
   call Read128BitNum   ; en OpB

   Call NewLine      ;

   mov si, OpA      ;
   mov di, OpB      ;
   mov bx, prd      ; resultado de la multiplicacion

   call Mult128Bits   ; realizar la multiplicacion

   mov dx, Msg8      ;

   call Write      ;

   mov si, prd      ;
   mov cx, 20      ;
   mov bx, Res      ;

   call  Write128BitS   ; convertir de binario a decimal

   mov si,Res      ;
   
   call WriteNum      ; imprimir el resultado en pantalla

   Call NewLine      ;
   Call NewLine      ;

   ret         ;


;======================================================================

   ; funcion DoResta
   ; ingresa datos y opera
   
   DoResta:

   call NewLine      ;

   mov dx, Msg11      ;
   call Writeln      ;
   
   Call NewLine      ;

   mov dx, Msg6      ;
   call Write      ;
   
   mov cx, 20      ;
   mov di, OpA      ;
   call Read128BitNum   ;

   Call NewLine      ;
   
   mov dx, Msg7      ;
   call Write      ;
   
   mov cx, 20      ;
   mov di, OpB      ;
   call Read128BitNum   ;

   Call NewLine      ;

   mov si, OpA      ;
   mov di, OpB      ;
   mov bx, prd      ;

   call Resta128Bits   ;

   mov dx, Msg8      ;

   call Write      ;

   mov si, prd      ;
   mov cx, 20      ;
   mov bx, Res      ;

   call  Write128BitS   ;

   mov si,Res      ;
   
   call WriteNum      ;

   Call NewLine      ;
   Call NewLine      ;

   ret         ;


;======================================================================

   ; funcion DoSuma
   ; ingresa datos y opera
   
   DoSuma:

   call NewLine      ;

   mov dx, Msg10      ;
   call Writeln      ;
   
   Call NewLine      ;

   mov dx, Msg6      ;
   call Write      ;
   
   mov cx, 20      ;
   mov di, OpA      ;
   call Read128BitNum   ;

   Call NewLine      ;
   
   mov dx, Msg7      ;
   call Write      ;
   
   mov cx, 20      ;
   mov di, OpB      ;
   call Read128BitNum   ;

   Call NewLine      ;

   mov si, OpA      ;
   mov di, OpB      ;
   mov bx, prd      ;

   call Suma128Bits   ;

   mov dx, Msg8      ;

   call Write      ;

   mov si, prd      ;
   mov cx, 20      ;
   mov bx, Res      ;

   call  Write128BitS   ;

   mov si,Res      ;
   
   call WriteNum      ;

   Call NewLine      ;
   Call NewLine      ;

   ret         ;

;======================================================================

   
   ; funcion CeroStr
   ; llena una cadena de 0's
   ; Parametro cx cantidad de digitos
   ; Parametro di direccion de la cadena a rellenar

   CeroStr:

   mov si, strCero      ;

   cld         ;

   CeroStrCopiar:

   movsb         ;

   dec si         ;
   
   loop CeroStrCopiar   ;

   ret         ;

;======================================================================

   ; funcion Reset
   ; pone a 0 las variables A B y RES, TMP y PRD

   Reset:

   mov si, OpA      ;
   call SetCero128Bits   ;

   mov si, OpB      ;
   call SetCero128Bits   ;

   mov si, prd      ;
   call SetCero128Bits   ;

   mov si, tmp      ;
   call SetCero128Bits   ;

   mov di, Res      ;
   mov cx, 21      ;
   call CeroStr      ;

   ret         ;

;======================================================================

   ; funcion Menu
   ; imprime las cadenas que forman el menu

   Menu:

   call NewLine      ;
   call NewLine      ;      

   mov dx, Msg1      ;
   call Writeln      ;
   
   mov dx, Msg2      ;
   call Writeln      ;

   mov dx, Msg3      ;
   call Writeln      ;

   mov dx, Msg4      ;
   call Writeln      ;

   mov dx, Msg9      ;
   call Writeln      ;

   call NewLine      ;
   call NewLine      ;      

   mov dx, Msg5      ;
   call Writeln      ;

   ret         ;

;======================================================================

   ; funcion Cmp128Bits
   ; compararacion de 128 bits
   ; si operador a
   ; di operador b
   ; al = 0 -> A = B
   ; al = 1 -> A > B
   ; al = 2 -> A < B

   Cmp128Bits

   mov eax, [si + 12]    ;
   mov ebx, [di + 12]   ;

   cmp eax, ebx      ;
   
   ja Cmp128BitsAgB   ;
   jb Cmp128BitsBgA   ;


   mov eax, [si + 8]    ;
   mov ebx, [di + 8]   ;

   cmp eax, ebx      ;
   
   ja Cmp128BitsAgB   ;
   jb Cmp128BitsBgA   ;

   mov eax, [si + 4]    ;
   mov ebx, [di + 4]   ;

   cmp eax, ebx      ;
   
   ja Cmp128BitsAgB   ;
   jb Cmp128BitsBgA   ;

   mov eax, [si]       ;
   mov ebx, [di]      ;

   cmp eax, ebx      ;
   
   ja Cmp128BitsAgB   ;
   jb Cmp128BitsBgA   ;

;   mov al, 'E'      ; depuracion
;   call PutCh      ;

   
   mov al, 0      ;
   cmp al , 0      ;
   
   ret         ;

   Cmp128BitsAgB   :

;   mov al, 'A'      ; depuracion
;   call PutCh      ;
   
   mov al, 1      ;
   cmp al, 0      ;

   ret         ;

   Cmp128BitsBgA   :

;   mov al, 'B'      ; depuracion
;   call PutCh      ;

   mov al, 0      ;
   cmp al, 1      ;

   ret         ;

;======================================================================

   ; funcion SetCero128Bits
   ; si numero
   ; pone un numero de 128bits a cero
   
   SetCero128Bits:

   xor eax, eax      ; a Xor a = 0
   mov [si], eax      ; [si] = 0
   mov [si+4], eax      ; bits 32-63
   mov [si+8], eax      ; bits 64-95
   mov [si+12], eax   ; bits 96-127
   
   ret         ;


;======================================================================

   ; funcion Inc128Bits
   ; si operador a
   ; ecx, incremento
   ; incrementa el numero en SI , CX veces
   ; osea, OP = OP + CX , pasando la direccion
   ; de OP en si

   Inc128Bits:

   mov eax, [si]      ; primera palabra doble
   mov edx, ecx      ; incremento
   add eax, edx      ; sumar las primar partes
   mov [si], eax      ; guardar el resultado bajo
   
   mov eax, [si+4]      ; segunda doble palabra
   mov edx, 0      ; el incremento es solo de 32 bits a lo sumo
   adc eax, edx      ; suma con carry
   mov [si+4], eax      ; guardar ETC...

   mov eax, [si+8]      ; ... 64-95
   mov edx, 0      ;
   adc eax, edx      ;
   mov [si+8], eax      ;

   mov eax, [si+12]   ; ... 96-127
   mov edx, 0      ;
   adc eax, edx      ;
   mov [si+12], eax   ;
   
   ret         ;


;======================================================================

   
   ; funcion Div128Bits
   ; si operador a
   ; di operador b
   ; bx resultado
   ; divide dos numeros mediante
   ; restas sucesivas, y optimizada con dezplamientos
   ; A / B ==>
   ; SI A > ( B * 4096 ) ENTONCES
   ; A = A - 4096
   ; RES = RES + B * 4096
   ; para optimizar divisiones grandes

   Div128Bits:

   push si         ;
   push di       ;
   push bx         ;

   mov si, di      ;
   mov di, tmp      ;

   call ShiftLeft128Bits   ; desplazar b a la izquierda.

   mov ecx, 11      ; 11 desplazamientos que faltan para hacer los 12.
   
   mov si, tmp      ;

   Div128BitsL1:

   call ShiftLeft128Bits   ; 11 veces aqui

   loop Div128BitsL1   ; al salir de este loop en tmp estara b * 4096 calculado con desplazamiento
   
   pop bx         ;
   pop di         ;
   pop si         ;
   
   Div128BitsCiclo:        ; ciclo principal de la division, cuantas veces cabe el operador B
            ; en el operador A? es contar la cantidad de restas, antes de que
            ; A sea negativo.

   push si         ;
   push di       ;
   push bx         ;

   call Cmp128Bits      ; Cmp A,B

   pop bx         ;
   pop di         ;
   pop si         ;

   jl Div128BitsFin   ; Sale si B > A porque ya no cabe el operador B en A

   push si         ;
   push di       ;
   push bx         ;

   mov di, tmp      ;

   call Cmp128Bits      ; comparar con tmp que es B * 4096 para hacer la optimizacion
            ; de divisiones grandes
      
   pop bx         ;
   pop di         ;
   pop si         ;

   jl Div128BitsN      ; si es menor, hacer el paso de 1 en 1 normalmente

   push si         ;
   push di       ;
   push bx         ;

   mov di, tmp      ; sino restar tmp de A
            ; osea A = A - 4096 * B

   mov bx, si      ;

   call Resta128Bits   ; operar la resta
   
   pop bx         ;
   pop di         ;
   pop si         ;

   push si         ;
   push di       ;
   push bx         ;

   mov ecx, 4096      ; incrementar el contador o resultado    
            ; en 4096

   mov si, bx      ;

   call Inc128Bits      ; sumar RES = RES + 4096;
   
   pop bx         ;
   pop di         ;
   pop si         ;
   
   jmp Div128BitsCiclo   ; repetir el proceso.

   Div128BitsN:

   push si         ;
   push di       ;
   push bx         ;

   mov bx, si      ;

   call Resta128Bits   ; restar A - B

   pop bx         ;
   pop di         ;
   pop si         ;

   push si         ;
   push di       ;
   push bx         ;
   
   mov ecx, 1      ; incrementar el resultado en 1
   mov si, bx      ;

   call Inc128Bits      ;

   pop bx         ;
   pop di         ;
   pop si         ;

   jmp Div128BitsCiclo   ;

   Div128BitsFin:

   ret         ;

;======================================================================

   
   ; funcion ShiftLeft128Bits
   ; si numero a ser desplazado
   ; di resultado
   ; desplazar a la izquierda un numero de 128bits

   ShiftLeft128Bits:

   mov eax, [si]      ;
   shl eax, 1      ;
   mov [di], eax      ;

   mov eax, [si + 4]   ;
   rcl eax, 1      ;
   mov [di + 4], eax   ;

   mov eax, [si + 8]   ;
   rcl eax, 1      ;
   mov [di + 8], eax   ;

   mov eax, [si + 12]   ;
   rcl eax, 1      ;
   mov [di + 12], eax   ;
   
   ret         ;

;======================================================================

   ; funcion Mult128Bits
   ; di operador a
   ; si operador b
   ; resultado en bx
   ; multiplicar con sumas repetidas en un ciclo
   ; y optimizaciones mediante shift a la izquierda
   

   Mult128Bits:

   Mult128BitsCiclo:
      
   mov eax, [si]      ;
   or eax, [si+4]      ;
   or eax, [si+8]      ;
   or eax, [si+12]      ;
   
   jz NEAR Mult128BitsFin   ;

   xor eax, eax      ;

   mov eax, [si+4]      ;
   or eax, [si+8]      ;
   or eax, [si+12]      ;

   jz NEAR Opt23      ;
   
;   mov al, 'A'      ;
;   call PutCh      ;

   push di         ;
   push si         ;
   
   mov si, di      ;
   mov di, tmp      ;

   call ShiftLeft128Bits   ;
   mov si, tmp      ;

   mov cx, 30      ;

   Mult128BitsL1:

   call ShiftLeft128Bits   ;

   loop Mult128BitsL1   ;
   
   mov di, tmp      ;

   mov si, bx      ;

   call Suma128Bits   ;

   pop si         ;
   pop di         ;

   push bx         ;

   push si         ;
   push di         ;
   
   mov bx, si      ;
   
   mov di, DosA31      ;

   call Resta128Bits   ;   

   pop si         ;
   pop di         ;
   pop bx         ;      

   jmp Mult128BitsCiclo   ;

   Opt23:

   mov eax, [si]      ;
   and eax, 0xFF000000   ;   
   or eax, [si+4]      ;
   or eax, [si+8]      ;
   or eax, [si+12]      ;

   jz NEAR Opt7      ;
   
;   mov al, 'M'      ;
;   call PutCh      ;

   push di         ;
   push si         ;

   mov ecx, 5      ;
   
   mov si, di      ;
   mov di, tmp      ;

   call ShiftLeft128Bits   ;
   mov si, tmp      ;
   mov cx, 22      ;

   Mult128BitsL2:

   call ShiftLeft128Bits   ;

   loop Mult128BitsL2   ;
   
   mov di, tmp      ;

   mov si, bx      ;

   call Suma128Bits   ;

   pop si         ;

   pop di         ;

   mov ecx, 8388608   ;

   call Dec128Bits      ;   
      
   jmp Mult128BitsCiclo   ;   

   Opt7:


   mov eax, [si]      ;
   cmp eax, 256      ;

   jb Mult128BitsN      ;
   
;   mov al, 'R'      ;
;   call PutCh      ;

   push di         ;
   push si         ;
   
   mov si, di      ;
   mov di, tmp      ;

   call ShiftLeft128Bits   ;
   mov si, tmp      ;
   mov cx, 6      ;

   Mult128BitsL3:

   call ShiftLeft128Bits   ;

   loop Mult128BitsL3   ;
   
   mov di, tmp      ;

   mov si, bx      ;

   call Suma128Bits   ;

   pop si         ;

   pop di         ;

   mov ecx, 128      ;

   call Dec128Bits      ;   
      
   jmp Mult128BitsCiclo   ;   
   

   Mult128BitsN:   

   push si         ;
   
   mov si, bx      ;

   call Suma128Bits   ;

   pop si         ;

   mov ecx, 1      ;

   call Dec128Bits      ;   
      
   jmp Mult128BitsCiclo   ;   

   Mult128BitsFin:

   ret         ;

   
;======================================================================

   ; Dec128Bits
   ; decrementar un numero en ECX
   ; si el numero
   ; si = si - ecx
   ; resta de 32 bits el segundo operador

   Dec128Bits      ;

   mov eax, [si]      ;
   mov edx, ecx      ;
   sub eax,edx      ;
   
   mov edx, 0      ;

   mov [si], eax      ;
   
   mov eax, [si+4]      ;
   sbb eax,edx      ;
   mov [si+4], eax      ;

   mov eax, [si+8]      ;
   sbb eax,edx      ;
   mov [si+8], eax      ;

   mov eax, [si+12]   ;
   sbb eax,edx      ;
   mov [si+12], eax   ;
   
   ret         ;
   
;======================================================================

   ; funcion Resta128Bits
   ; si operador a
   ; di operador b
   ; resultado en bx
   ; resta de dos numeros de 128bits en binario
   
   Resta128Bits:

   mov eax, [si]      ;
   mov edx, [di]      ;
   sub eax, edx      ;
   mov [bx], eax      ;
   
   mov eax, [si+4]      ;
   mov edx, [di+4]      ;
   sbb eax, edx      ;
   mov [bx+4], eax      ;

   mov eax, [si+8]      ;
   mov edx, [di+8]      ;
   sbb eax, edx      ;
   mov [bx+8], eax      ;

   mov eax, [si+12]   ;
   mov edx, [di+12]   ;
   sbb eax, edx      ;
   mov [bx+12], eax   ;
   
   ret         ;

;======================================================================

   ; funcion Suma128Bits
   ; di operador a
   ; si operador b
   ; resultado en bx
   ; sumar dos numeros de 128 bits

   Suma128Bits:

   mov eax, [di]      ;
   mov edx, [si]      ;
   add eax, edx      ;
   mov [bx], eax      ;
   
   mov eax, [di+4]      ;
   mov edx, [si+4]      ;
   adc eax, edx      ;
   mov [bx+4], eax      ;

   mov eax, [di+8]      ;
   mov edx, [si+8]      ;
   adc eax, edx      ;
   mov [bx+8], eax      ;

   mov eax, [di+12]   ;
   mov edx, [si+12]   ;
   adc eax, edx      ;
   mov [bx+12], eax   ;
   
   ret         ;



;======================================================================

   ; funcion Write128BitS   
   ; bx cadena
   ; si numero
   ; convierte un numero de binario a decimal y lo almacena en una cadena
   ; como texto
   ; soporta numeros negativos en formato de complemento a dos.
   ; si es negativo llama a una funcion Write128BitNum que antepone un
   ; signo negativo y calcula el complemento osea 0 - Numero antes de
   ; convertirlo a decimal

   Write128BitS:

   mov al, [si+15]      ;
   and al, 10000000B   ;
      
   jz Write128BitPos   ;

   call Write128BitNumNeg   ;

   jmp Write128BitSFin   ;

   Write128BitPos:
   
   call Write128BitNum   ;

   Write128BitSFin:
   
   
   ret         ;
   
;======================================================================

   ; funcion Write128BitNumNeg
   ; sacar numero negativo.      
   ; bx cadena de salida
   ; si numero de entrada
   ; convertir un numero negativo en base binaria
   ; a un numero decimal con signo "-" antepuesto

   Write128BitNumNeg:

   add bx, cx      ;
   
   push si         ;
   push bx         ;

   mov bx, si      ;

   mov di, si      ;

   mov si, Cero128Bits   ;

   call Resta128Bits   ;
      
   pop bx         ;
   pop si         ;

   Write128BitNumcicloNeg:
   
   push bx         ;
   call DivDiez      ;
   pop bx         ;

   or al, 0x30      ;
   mov [bx],al      ;
   dec bx         ;
;   call PutCh      ;      

   mov eax, [si];
   or eax, [si+4];
   or eax, [si+8];
   or eax, [si+12];

   jnz  Write128BitNumcicloNeg
   
   mov al, '-'      ;
   mov [bx], al      ;

   ret         ;


;======================================================================
   
   ; funcion Write128BitNum
   ; BinToDec en cadena
   ; si numero para convertir
   ; bx cadena para rellenar
   ; cx tamaño de la cadena
   ; convierte un numero positivo en binario a decimal

   Write128BitNum:

   mov di, si      ;
   add bx, cx      ;
      
   Write128BitNumciclo:
   
   push bx         ;
   call DivDiez      ;
   pop bx         ;

   or al, 0x30      ;
   mov [bx],al      ;
   dec bx         ;
;   call PutCh      ;      

   mov eax, [si];
   or eax, [si+4];
   or eax, [si+8];
   or eax, [si+12];

   jnz  Write128BitNumciclo   ;
   

   ret         ;

   
;======================================================================

   ; funcion DivDiez
   ; Divide un numero de 128 bits, por 10
   ; USADA SOLO PARA CONVERTIR DE BINARIO A DECIMAL,
   ; Parametro si direccion de la 128 bits de entrada
   ; parametro di direccion de los 128 bits de salida
   
   ; NOTA: esta funcion usa DIV solo para dividir por diez
   ; y obtener el residuo que es utilizado en la conversion
   ; de binario a decimal, no participa en la division.

   DivDiez:

   xor edx,edx      ;
   mov eax, [si + 12]   ;
   mov ebx, 10      ;
   div ebx         ;

   mov [di + 12], eax   ;

   mov eax, [si + 8]   ;
   div ebx         ;

   mov [di + 8], eax   ;

   mov eax, [si + 4]   ;
   div ebx         ;

   mov [di + 4], eax   ;

   mov eax, [si]      ;
   div ebx         ;

   mov [di] , eax      ;

   mov eax, edx      ;

   ret         ;

;======================================================================

      
   ; funcion Read128BitNum
   ; USAL MUL SOLO PARA CONVERTIR DE DECIMAL A BINARIO
   ; AL PRESIONAR UN DIGITO, MULTIPLICA POR 10 y SUMA
   ; EL DIGITO
   ; lee un numero de 128 bits
   ; Parametro di direccion de la 128 bits de salida
   ; cx , cantidad de digitos

   ; Nota: en esta funcion se utiliza MULT. para convertir
   ; los digitos ingresador por el teclado a un numero
   ; en base binaria conforme son ingresados.   

   Read128BitNum:

   Read128NumCiclo:

   call GetCh      ;
   cmp al, 13      ;
   je NEAR Read128NumFin      ;

   cmp al,0x30      ; Caracter < '0' , no aceptar
   jb NEAR   Read128NumCiclo      ;

   cmp al,0x39      ; Caracter > '9' , no aceptar
   ja NEAR   Read128NumCiclo      ;

   cmp cx, 0      ;
   je NEAR Read128NumFin   ;

   dec cx         ;

   push cx         ;
   push ax         ;   

   or al, 0x30      ;

   call PutCh      ;

   mov eax, 10      ;
   mov ebx, [di]      ;
   mul ebx         ;
   mov [di], eax      ;
   mov ecx, edx      ;
   mov eax, 10      ;
   mov ebx, [di + 4]   ;
   mul ebx         ;
   add eax, ecx      ;
   mov [di + 4], eax   ;
   adc edx, 0      ;
   mov ecx, edx      ;
   mov eax, 10      ;
   mov ebx, [di + 8]   ;
   mul ebx         ;
   add eax, ecx      ;
   mov [di + 8], eax   ;
   adc edx, 0      ;
   mov ecx, edx      ;
   mov eax, 10      ;
   mov ebx, [di + 12]   ;
   mul ebx         ;
   add eax, ecx      ;
   mov [di + 12], eax   ;
   pop ax         ;
   and eax, 0xF      ;
   mov ebx, [di]      ;
   add eax, ebx      ;
   mov [di], eax      ;
   mov eax, [di+4]      ;
   adc eax, 0      ;
   mov [di+4], eax      ;
   mov eax, [di+8]      ;
   adc eax, 0      ;
   mov [di+8], eax      ;
   mov eax, [di+12]   ;
   adc eax, 0      ;
   mov [di+12], eax   ;

   pop cx         ;

   jmp Read128NumCiclo   ;
   
   Read128NumFin:

   call NewLine      ;
         
   ret         ;

;======================================================================


   ; funcion WriteNum
   ; Imprime un numero sin ceros a la izquierda
   ; Parametro si direccion de la cadena a imprimir
   ; imprime un numero almacenado en una cadena
   ; quitando los ceros a la izquierda
   ; 0000000000035 -> 35

   WriteNum:

   WriteNumCiclo:
   
   mov al, [si]      ;

   cmp al, '0'      ;

   jne WriteNumFin      ;

   inc si         ;

   loop WriteNumCiclo   ;

   WriteNumFin:

   mov dx, si      ;

   call Write      ;
   
   ret         ;



;======================================================================

   ; funcion Write
   ; imprimir una cadena en pantalla
   ;
   ; Parametro dx direccion de la cadena   
   ; imprime una cadena terminada en $ en pantalla

     Write:
     
   push ax         ; preservar ax
       mov ah,0x9         ; funcion 9, imprimir en pantalla
       int 0x21            ; interrupcion dos
   pop ax         ; restaurar ax
   ret                ; return

;======================================================================

   ; funcion Writeln
   ; imprimir + enter
   ;
   ; Parametro dx direccion de la cadena   

     Writeln:
     
       call Write         ; Display the string proper through Write
   mov dx,CRLF        ; Load offset of newline string to DX
   call Write         ; Display the newline string through Write
   ret                ; Return to the caller

;======================================================================

   ; funcion HasKey
   ; hay una tecla presionada en espera?
   ; zf = 0 => Hay tecla esperando
   ; zf = 1 => No hay tecla en espera
   ; como el ReadKey de pascal: NO UTILIZADA


   HasKey:

   push ax         ;

   mov ah, 0x01      ; funcion 1
   int 0x16      ; interrupcion bios

   pop ax         ;

   ret         ; return

;======================================================================

   ; funcion ClearIn
   ; Borrar Buffer del Teclado
   ; NO UTILIZADA, me hiba a servir para limpiar posibles
   ; pulsaciones dobles en el menu, pero no se dio el
   ; problema al probar con la funcion GETCH
   
   ClearIn
   
   ClearInL1:
      
   call HasKey      ;   
   jz ClearInL2      ;   
   call GetCh      ;
   jmp ClearInL1      ;   
   
   ClearInL2:      ;
   
   ret         ;
      

;======================================================================

   ; funcion PutCh
   ; imprimir el caracter ascii en al, en pantalla
   ; Parametro al el caracter a imprimir
   
   PutCh:

   mov ah,   0x0E      ;
   int 0x10      ;

   ret         ;

;======================================================================

   ; funcion NewLine
   ; nueva linea
   ; imprimir enter en pantalla

   NewLine:

   mov dx, CRLF      ;
   call Write      ;
   ret         ;


;======================================================================

   ; funcion GetCh
   ; ascii tecla presionada
   ; Salida en al codigo ascii sin eco, via BIOS

   GetCh:
   
   xor ah,ah      ;
   int 0x16      ;   
   ret         ;
   
;======================================================================
   
   ;==============================|
   ; DATA                 |
   ;==============================|


   SEGMENT data  ; Segment containing initialized data

   Cero128Bits DW  0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000

   DosA31   DW     0x0000,0x8000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000

   OpA       DW    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
   OpB   DW   0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000

   prd    DW   0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000

   tmp     DW   0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000

     Msg1   DB "(1)   SUMAR       -> RES = A + B $"
   Msg2   DB "(2)   RESTAR      -> RES = A - B $"
   Msg3   DB "(3)   MULTIPLICAR -> RES = A * B $"
   Msg4   DB "(4)   DIVIDIR     -> RES = A / B $"
   Msg9   DB "(ESC) SALIR $"
   
   Msg5   DB "Presione el numero de opcion { 1 | 2 | 3 | 4 } ? $"

   Msg6   DB "Ingrese el operador A: $"
   Msg7   DB "Ingrese el operador B: $"

   Msg8   DB "RESULTADO = $"

   Msg10   DB "Operacion Seleccionada -> SUMA $"
   Msg11   DB "Operacion Seleccionada -> RESTA $"
   Msg12   DB "Operacion Seleccionada -> MULTIPLICACION $"
   Msg13   DB "Operacion Seleccionada -> DIVISION $"
   
   Msg14   DB "#### Error Imposible Dividir por 0 ####$"

   Buff   DB "000000000000000000000000000000$"

   Res    DB "000000000000000000000$"   

   OperA  DB "0000000000000000000000000$"

   CRLF   DB   0DH,0AH,'$'

   strCero DB '0'


   ;==============================|
   ; STACK                |
   ;==============================|

   ; GENERADO POR MI IDE, setup del stack y tamaño reservado


        SEGMENT stack stack    ; This means a segment of *type* "stack"
                               ; that is also *named* "stack"! Some
                               ; linkers demand that a stack segment
                               ; have the explicit type "stack"
   resb 1024            ; Reserve 64 bytes for the program stack
       stacktop:             ; It's significant that this label points to
                             ; the *last* of the reserved 64 bytes, and
                             ;  not the first!

 
hola amigos como estan quisiera saber algun metodo o programa sencillo para demostrar de como funciona una bacteria en un sistema infectado y como la puedo remover..
me pueden ayudar ..

es para una demostracion de una tarea de la prepa..

saludos y gracias