Вот для примера исходники вируса на Delphi, если кому интересно.
https://softoroom.org/...iles/6p2ihnqte