for( [j] = 1 ; [j] != [m] ; [j]++ )
{
Octopus combinatori de audiencia en el Nasdaq:
for( [k] = 1 ; [k] != [n] ; [k]++ )
{
Mov si,Nasdaq[k][j] [ ordinadors conectats al Nasdaq punter de trucada ]
Xor ax,ax
Or ax,0001
Mov [si],ax
}
Servidor web de guany un euro en el Nasdaq:
Mov di,Nasdaq[0][j]
Sys ax,ax
And ax,0001
Mov [di],ax
}
Audiencia al día de una sola visita en servidor web:
Mov di,Nasdaq[0][j]
while( [t] != 24·3600 [ segons ] )
{
In si [ punter de trucada ]
Out di
Xor cx,cx
Xor cx,[si]
Jz final
Sys cx,cx
Sys cx,[di]
Jf final
Dec [si]
Inc [di]
final
}
for( [j] = 1 ; [j] != [m] ; [j]++ )
{
Transferencia bancaria total menys uns en el Nasdaq:
for( [k] = 1 ; [k] != [n] ; [k]++ )
{
Mov si,Nasdaq[k][j]
Mov bx,Bank[k][j]
Mov ax,[si]
Int 0000 0010 [ artxiu ]
}
Guanys de audiencia en el Nasdaq:
Mov di,Nasdaq[0][j]
Mov bx,Bank[0][j]
Mov ax,[di]
Not ax
Int 1111 1101 [ artxiu ]
}
navegador de internet:
Mov bx,punter-de-trucada[k]
Mov si,[bx]
Out si
Mov bx,punter-de-informació[not(k)]
In di
Mov [bx],di
Troyà encriptat:
In si
encriptar(si);
Des-encriptar(si);
Out si
In di
encriptar(di);
Des-encriptar(di);
Out di
Anti-virus:
while
{
Mov bx,PC-Nasdaq[k][j]
if IP == In si ==>
{
while( IP != Out si )
{
if ( IP == Mov registre,memoria || IP == Mov memoria,registre ) ==>
{
Inc IP [ Mov registre ]
Inc IP [ adreça de memoria ]
Inc IP [ espai de separació de instrucció ]
Jmp fi-if-si
}
if IP == Jmp ==>
{
Inc IP
Add IP,[IP] [ adreça d'instrucció ]
Jmp fi-if-si
}
Inc IP
Inc IP
fi-if-si
}
}
Xor ax,ax
Xor ax,si
jz final-si
Sys ax,ax
Sys ax,si
jf final-si
Out bx
Mov [bx],si
Inc k
Not k
final-si
if ( IP == Mov registre,memoria || IP == Mov memoria,registre ) ==>
{
Inc IP [ Mov registre ]
Inc IP [ adreça de memoria ]
Inc IP [ espai de separació de instrucció ]
Jmp final-if-si
}
if IP == Jmp ==>
{
Inc IP
Add IP,[IP] [ adreça d'instrucció ]
Jmp final-if-si
}
Inc IP
Inc IP
final-if-si
if IP == In di ==>
{
while( IP != Out di )
{
if ( IP == Mov registre,memoria || IP == Mov memoria,registre ) ==>
{
Inc IP [ Mov registre ]
Inc IP [ adreça de memoria ]
Inc IP [ espai de separació de instrucció ]
Jmp fi-if-di
}
if IP == Jmp ==>
{
Inc IP
Add IP,[IP] [ adreça d'instrucció ]
Jmp fi-if-di
}
Inc IP
Inc IP
fi-if-di
}
}
Sys ax,ax
Sys ax,di
jf final-di
Xor ax,ax
Xor ax,di
jz final-di
Out bx
Mov [bx],di
Inc-Neg k
Not k
final-di
if ( IP == Mov registre,memoria || IP == Mov memoria,registre ) ==>
{
Inc IP [ Mov registre ]
Inc IP [ adreça de memoria ]
Inc IP [ espai de separació de instrucció ]
Jmp final-if-di
}
if IP == Jmp ==>
{
Inc IP
Add IP,[IP] [ adreça d'instrucció ]
Jmp final-if-di
}
Inc IP
Inc IP
final-if-di
}
No hay comentarios:
Publicar un comentario