Martin Mystere Tay Yayınları Süper Albüm Sayı 42 - Santa Claus 9000

[Hones]

Tarama : Darkmalt

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

 

[Colinmccay]

Desteğinle listenin sonu geldi gözüküyor. Teşekkürler üstat.

 

[kambozlu]

Sevgili Dostum.Dışarda şimşekler(hava berbat),forumda sen ışıklar saçıyorsun.Teşekkürlerimi gönderiyorum.

 

[savok]

Mister NO,
sigara içiyor ama
ağzı yok
espri yapacak ama
ağzı yok
Konuşacak ama
ağzı yok
Onun yerine ben konuşayım.
Sağol.

 

[aytekincelen]

Bu seriyide bitirmek üzeresiniz ya helal olsun size elleriniz kollarınız dert görmesin tam anlamıyla bu sitenin bağımlısı olduk boş bırakmaya gelmiyor devamlı takipteyiz çok ama çok teşekkürler bi ricam olacak ;rapid kendini nasıl yenilediyse eskiden süper çalışırdı şimdiyse hep sorun çıkarıyor sevgili üstatlar lütfen yedek bir link nollur :'(

 

[ertuğrul]

Paylaşım ve emeğin için teşekkürler dostum

 

[sarkomer]

Değerli emekleriniz için yürekten teşekkürler, gönülden saygılar...

 

[Kroker]

Çok teşekkür ederim dostum, beni çok mutlu ettin.

 

[timed]

Ellerinize sağlık dostum .Çok teşekkürler.

 

[Kroker]

Link yenilenmiştir.

 

[cengizgul]

bulunmaz bir martin amca daha hemde taze linkle yüzüm güldü gene çok çok teşekkkürler

 

[eagle64]

Merhaba link silinmiş galiba yenilemek mümkün müdür?

Saygılar

 

[extreme]

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

 

[abboritta]

Yenilenmiş pdf düzenlemesi ile paylaşıma teşekkür ederim.

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

Bu macerada Martin Mystère'nin kullandığı makinenin özelliklerini görüyoruz.

Macintosh ile +(ram fazlası) arasında fark yokken maceraya göre SC virüsü bulaşmıştır.

SC virüsü denilenin esin kaynağı belki Stoned virüstü, ama Macintoshları o dönemde etkilemiş virüsler şunlar olduğundan bu gerçek dışıdır: MacMag, Scores, nVir.

Bu virüsler bilgisayarda çok büyük etki yaratamazlardı, sadece ben koskoca bir virüsüm ha! gibi mesajlar gösterirlerdi. Yani belgeyi yazdırmak girişimimiz olursa bunun sonucunda belgeyi silecek ve hatta ulusal haberlerde küresel çapta dünyayı etkilediğine dair bir virüs yoktu.

Bu ancak şöyle mümkün olabilirdi ve bunun etkisi çok kısıtlı olurdu, yani Zeki Müren bizi göremedi.

Mac Programmer's Workshop ile bir şeyler deniyelim:

PROGRAM CopyPrintBlockerWithDelete;
USES
  QuickDraw, ToolUtils, OSUtils, Events, Files, StandardFile, Dialogs;

VAR
  myErr: OSErr;
  myEvent: EventRecord;
  mySpec: FSSpec;
  userReply: Integer;

FUNCTION GetFileToDelete: Boolean;
VAR
  reply: SFReply;
BEGIN
  SFPutFile('Select the file to delete:', '', '', nil, reply);
  IF reply.good THEN
  BEGIN
    mySpec := reply.fFile;
    Result := TRUE;
  END
  ELSE
    Result := FALSE;
END;

BEGIN
  myErr := InitGraf(@qd.thePort);
  myErr := InitFonts;
  myErr := InitWindows;
  myErr := InitMenus;
  myErr := TEInit;
  myErr := InitDialogs(nil);

  WriteLn('This demo monitors printing, copying, and FILE DELETION.');
  WriteLn('Click the mouse to exit.');
  WriteLn('WARNING: If you press Command+D, the selected file WILL BE DELETED!');
  WriteLn('------------------------------------------------------------');

  REPEAT
    SystemTask;
    IF WaitNextEvent(everyEvent, myEvent, 1, nil) THEN
    BEGIN
      CASE myEvent.what OF
        keyDown, autoKey:
        BEGIN
          IF (myEvent.modifiers AND cmdKey = cmdKey) THEN
          BEGIN
            CASE CHR(myEvent.message AND charCodeMask) OF
              'c': WriteLn('Copy (Command-C) detected!');
              'p': WriteLn('Print (Command-P) detected!');
              'd':
              BEGIN
                WriteLn('Command+D pressed! FILE DELETION process is starting...');
                IF GetFileToDelete THEN
                BEGIN
                  userReply := StopAlert(300, nil);
                  IF userReply = 1 THEN
                  BEGIN
                    myErr := FSpDeleteFile(mySpec);
                    IF myErr = noErr THEN
                      WriteLn('File deleted!')
                    ELSE
                      WriteLn('Error occurred while deleting the file!');
                  END
                  ELSE
                    WriteLn('Deletion process canceled.');
                END;
              END;
            END;
          END;
        END;
      END;
    END;
  UNTIL Button;

  WriteLn('Program ended.');
END.

Silmeyi tamamen engelleyelim:

PROGRAM ClipboardProtector;
USES
  QuickDraw, ToolUtils, OSUtils, Events, Dialogs, Scrap;

VAR
  myErr: OSErr;
  myEvent: EventRecord;

BEGIN
  myErr := InitGraf(@qd.thePort);
  myErr := InitFonts;
  myErr := InitWindows;
  myErr := InitMenus;
  myErr := TEInit;
  myErr := InitDialogs(nil);

  WriteLn('Clipboard protection active.');
  WriteLn('Click the mouse to exit.');
  WriteLn('--------------------------------');

  ZeroScrap; { Clear clipboard }
  REPEAT
    SystemTask;
    IF WaitNextEvent(everyEvent, myEvent, 1, nil) THEN
    BEGIN
      CASE myEvent.what OF
        keyDown, autoKey:
        BEGIN
          IF (myEvent.modifiers AND cmdKey = cmdKey) THEN
          BEGIN
            CASE CHR(myEvent.message AND charCodeMask) OF
              'c':
              BEGIN
                ZeroScrap; { Clear clipboard }
                StopAlert(128, 'Copying is not allowed!');
              END;
            END;
          END;
        END;
      END;
    END;
  UNTIL Button;

  WriteLn('Protection program ended.');
END.

O zamanlar online yaygın olmadığından, virüsler disketlerle yayılırdı ve Mac'in disketleri PC disketlerinden farklıydı.

Dün belirtmiş olduğum gibi Windows öncesi dönemdeyiz, DEBUG mebug gibi programlar içeriğinde virüs yazma hevesi daha yakın dönemle ilişkilidir.

Diyelim ki vesile olsun, not defteri içinde bir şey yazmak veya yazmamak arasında ne fark olabilir ve bununla bir şey anlatmazken çok uzun yazınca çok şey mi anlatılıyor ve bunların toplamı ile hayal dünyasında sandal mı çekilmektedir?

Debug ile şunu yaparız:

-A 0100
MOV AH, 09h
MOV DX, 0104
INT 21h
MOV AH, 4Ch
INT 21h
<Enter>

-E 0104 "infected!$"
<Enter>

-N infected.exe
<Enter>

-R CX
CX 0000
:0010
<Enter>

-W
<Enter>

-Q
<Enter>