Pascal

Números perfectos

Mirando un poco las curiosidades con los números, me encontré con éstos, los números perfectos.

¿Qué son? Un número perfecto es un número natural cuya suma de los divisores propios positivos (+) es igual a sí mismo.

Por ejemplo, 28 es un número perfecto ya que la suma de los divisores: 1 + 2 + 4 + 7 + 14 es igual a 28.

Ahora, he decidido crear una función en Pascal que retorna Verdadero (True) o Falso (False) si un número introducido es perfecto.

function PerfectNumber(iNum:Integer):Boolean;
var
  Suma,I:Integer;
begin
  Suma := 0;
  Result := False;
  for I := 1 to Pred(iNum) do
    if (iNum Mod I = 0) then
      Suma := Suma + I;
 
  if iNum = Suma then
    Result := True;
end;
Solución!

G Data lanza solución contra el fallo «accesos directos»

La vulnerabilidad relacionada con los accesos directos de Microsoft Windows está siendo explotada por varios tipos de código malicioso y todo apunta a que en los próximos días se seguirán desarrollando nuevas formas de malware para exprimir al máximo este fallo de seguridad.

Diario Ti:

Los especialistas de G Data han desarrollado un parche (G Data LNK Checker) que bloquea la ejecución automática del archivo malicioso y muestra los iconos de acceso directo con su forma habitual (el parche de Microsoft resolvía el problema pero los accesos directos eran reemplazados por iconos blancos sin representación gráfica).

Esta última brecha de seguridad multiplica las posibilidades que tienen los cibercriminales a la hora de infectar un PC. Para conseguirlo, sólo necesitan asegurarse de que un archivo “.Lnk” se muestra en el PC pero no es necesario que éste se encuentre alojado en el propio ordenador (puede estar colgado en Internet, en una memoria USB o en cualquier red corporativa), lo que dispara las alternativas de los creadores de malware”, explica Ralf Benzmüeller, responsable de G Data SecurityLabs. “Incluso el software más habitual, como pueden ser los procesadores de texto o los clientes de correo electrónico ofrecen la posibilidad de mostrar accesos directos. El potencial de abuso es Más >