Cek Konsistensi File di Clipper

*************************************
* Sub program melihat isi file
*************************************
Proc Struk
Private isi, buka, semu, kapasitas, periksa, war_vir, lay_vir
War_Vir= SETCOLOR()
SAVE SCREEN TO LAY_VIR

/* Membuka file Command.Com */
BUKA= FOPEN(“C:\COMMAND.COM”)
/* File Command.Com ini hanya kepunyaan MS-DOS 6.22 dgn kapasitas sebesar 54,645 Bytes */

/* Membaca pada baris ke-512 */
ISI= FREADSTR(BUKA, 512)
/* Tanya Ascii-nya berapa */
PERIKSA= ASC(RIGHT(ISI, 1))

KAPASITAS= FSEEK(BUKA, 0, 2)
/* 54645 adalah besar kapasitas file COMMAND.COM */
SEMU= TRANSFORM(KAPASITAS – 54645, “999,999 Byte”)
FCLOSE(BUKA)
/* Kode Ascii-nya adl. 21 dibandingkan juga dgn kapasitas */
IF PERIKSA <> 21 .OR. KAPASITAS <> 54645
POPERROR(“COMMAND.COM Berubah, ” + ;
“File ini mungkin telah terjangkit Virus !!! ” + ;
“Kapasitas Semu : ” + SEMU)
ENDIF
SETCOLOR(WAR_VIR)
RESTORE SCREEN FROM LAY_VIR
RETURN

Categories: Clipper | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: