REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f

Setelah masuk ke registry editor langkah selanjutnya yang saya lakukan adalah dengan mencoba memahami script yang me-restore registry, dari situ terlihat konten registry yang mencurigakan yang kemungkinan ditulis oleh virus. Contoh konten registry yg mencurigakan seperti ini:

Hsmwci = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\"
Hsmwci&"taskmgr.exe" -> Debugger rundll32.exe
Hsmwci&"PCMAV-CLN.exe" -> Debugger cmd.exe /c del

Dan akhirnya saya hapus semua konten registry yang mencurigakan tersebut, Alhamdulillah semua utility windows dapat berjalan kembali tanpa masalah. Walaupun sangat menjengkelkan dan merepotkan karena virus ini, tapi saya bersyukur karena dapet pengetahuan mengenai registry windows. Terakhir, saya membersihkan virus-virus di flashdisk dengan men-delete langsung melalui ubuntu linux, memang top deh linux.

Masih banyak lagi modul-modul yang bagus untuk di implemen di cms drupal, tetapi menurut saya, modul-modul diatas sudah cukup untuk membangun sebuah web portal. Terakhir, mungkin diperlukan untuk membuat modul sendiri dan mengutak-atik theme system drupal jika modul dan theme yang ada belum dirasa memenuhi keinginan kita.

(open file-source "read")

untuk membaca file tersebut bisa menggunakan beberapa fungsi seperti read-file, read-buffer, read-char atau read-line, misalkan

(read-line input-file)

sedangkan untuk menulis suatu file juga bisa menggunakan fungsi-fungsi built-in yang disediakan seperti write-file, write-buffer, write-char atau write-line, misalkan

(write-line out-file "Hello World!")

Kita dapat membuat fungsi baru berdasarkan fungsi-fungsi tersebut untuk membuka file, membaca file tersebut kemudian menuliskan content dari file ke newlisp shell

(define (read-file-source file-source)
((set 'in-file (open file-source "read"))
(while (read-line in-file)
(write-line))
(close in-file)))

Setelah mencoba menggunakan fungsi-fungsi operasi file dan fungsi copy file yang telah dibuat pada postingan sebelumnya, maka akhirnya saya dapat membuat script file yang saya inginkan untuk meng-copy file-file yang ada atau didaftarkan pada suatu file

(define (copy-file-from-text-file file-text home-path dest-path)
(begin
(set 'in-file (open file-text "read"))
(while (set 'line-read (read-line in-file))
(begin
(set 'src (append home-path line-read))
(set 'dest (append dest-path line-read))
(my-copy-file src dest)))
(close in-file)))

Hehehe sederhana sekali yah, memang seharusnya suatu scripting language seperti newlisp dapat digunakan dengan mudah dan sederhana mungkin tetapi tetap powerfull untuk membantu programmer menyelesaikan task-task nya.

(copy-file file-src file-dest)

fungsi tersebut bisa digunakan tetapi jika file-dest terdapat path direktori pada file tujuan maka fungsi tersebut tidak bisa menghandle-nya. Berarti saya membutuhkan fungsi untuk mengambil direktori kemudian membuat direktori tersebut

(parse "path/to/a/file.txt" "/") akan me-return list ("path" "to" "a" "file.txt")

sedangkan untuk membuat direktori dari list nama direktori tersebut

(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))

nah berarti saya sudah bisa membuat sebuah fungsi untuk copy file dengan direktorinya

(define (my-copy-file src dest)
(begin
(set 'working-dir (real-path))
(set 'src-file (read-file src))
(set 'list-dest (parse dest "/"))
(dotimes (i (- (length list-dest) 1))
(if (directory? (list-dest i))
(change-dir (list-dest i))
(begin
(make-dir (list-dest i))
(change-dir (list-dest i)))))
(write-file (last list-dest) src-file)
(change-dir working-dir)))

dan saya dapat memanggilnya dengan

(my-copy-file "file.txt" "path/to/a/file.txt")

jika folder path/to/a/ belum ada maka akan di-create oleh fungsi tersebut.

to be continued…