B14ck_53r4f1
17-06-2006, 22:25
Me a pasado una cosa muy curiosa, estaba programando en TURBO PASCAL, por eso de quitarle el oxido a mis conocimientos de programacion, y se me ocurrio hacer un programa de matematicas, pues resulta que mientras compilaba el programa principal despues de haber compilado la unidad de este programa , mi antivirus (ATVAST antivirus v4.3) me ha dado un aviso de virus encontrado, es decir, que el codigo fuente que he programado lo ha identificado como maligno, pongo a continuacion el codigo principal y la unidad de lo que estaba probando y me dió error, para ver si alguien me puede ayudar.
PROGRAMA PRINCIPAL ( EN TURBO PASCAL )
----------------------------------------------------
PROGRAM MOS; {Mathematical Operating System}
USES CRT,U_MOS; { Created by Ivan Lopez Lopez }
BEGIN
ClrScr;
While STATUS = True do
Begin
COMANDO;
End
END.
UNIDAD DEL PROGRAMA
-----------------------------------------------------
UNIT U_MOS;
INTERFACE
USES CRT;
VAR
STATUS : BOOLEAN; {Variable booleanam, indica el estado de la appz}
PROCEDURE COMANDO; {Pide la entrada de un comando}
Procedure Switch(Cadena : String); {Subprocedumiento de comprobación del comando de entrada}
IMPLEMENTATION
PROCEDURE COMANDO;
VAR
Cadena : String;
BEGIN
Write('User$:');
Read(Cadena);
Switch(Cadena);
END;
Procedure Switch(Cadena : String);
Begin
If Cadena = 'Clear' then ClrScr
Else Writeln('FUNCION NO ENCONTRADA');
End;
BEGIN
STATUS := TRUE;
END.
PROGRAMA PRINCIPAL ( EN TURBO PASCAL )
----------------------------------------------------
PROGRAM MOS; {Mathematical Operating System}
USES CRT,U_MOS; { Created by Ivan Lopez Lopez }
BEGIN
ClrScr;
While STATUS = True do
Begin
COMANDO;
End
END.
UNIDAD DEL PROGRAMA
-----------------------------------------------------
UNIT U_MOS;
INTERFACE
USES CRT;
VAR
STATUS : BOOLEAN; {Variable booleanam, indica el estado de la appz}
PROCEDURE COMANDO; {Pide la entrada de un comando}
Procedure Switch(Cadena : String); {Subprocedumiento de comprobación del comando de entrada}
IMPLEMENTATION
PROCEDURE COMANDO;
VAR
Cadena : String;
BEGIN
Write('User$:');
Read(Cadena);
Switch(Cadena);
END;
Procedure Switch(Cadena : String);
Begin
If Cadena = 'Clear' then ClrScr
Else Writeln('FUNCION NO ENCONTRADA');
End;
BEGIN
STATUS := TRUE;
END.