Cyber Environtment

Di UPT SI STT-Garut, aku dikepung jiwa-jiwa digital Lingkungan kerja itu terkadang mempengaruhi prikologi kita. Dalam salah satu referensi disebutkan bahwa terkadang orang teknik terkena dampak karena kesehariaannya bergaul dengan perangkat teknik. Salah satu pengaruh itu misalnya ia bergaul dengan manusia sebagaimana...

Read More

Vertigo

Ujian dalam ibadah menuntut ilmu selain lelah yang menghambat konsentrasi belajar, terakhir datang juga vertigo yang membuat tubuh ini tidak bisa beranjak selama satu minggu karena pandangan mata tidak fokus (puyeng). Mungkin gara-gara ngajak ngebut kuda tungganganku sampe 100 km pulang pergi Garut Bandung buat ngejar solat...

Read More

Generasi Muslim al-Muhajirin

Generasi Muslim al-Muhajirin (GMA) merupakan organisasi masyarakat yang dibangun oleh para pemuda di lingkungan tempat tinggal saya sewaktu di Subang. Organisasi berbasis keagamaan ini diprakarsai berdirinya oleh Yudho Hertono Rifangi yang kemudian menjadi ketua umumnya yang pertama. Saya termasuk angkatan ke-3 dan bergabung...

Read More

Panggilan Alloh

Panggilan Alloh yang pertama, yakni saat dimintai kesaksian di alam ruh sebelum ruh dimasukan ke dalam jasad. Dan (ingatlah), ketika Tuhanmu mengeluarkan keturunan anak-anak Adam dari sulbi mereka dan Allah mengambil kesaksian terhadap jiwa mereka (seraya berfirman): Bukankah Aku ini Tuhanmu? Mereka menjawab: Betul...

Read More

Teman Pascasarjana

Foto bersama teman kuliah seangkatan, di program Pascasarjana Teknik Informatika (Sistem Informasi) Institut Teknologi Bandung. Foro diambil selesai buka puasa bareng di rumah makan Cigandea Bandung, tahun 200...

Read More

Selamat Menunaikan Ibadah Puasa

Selamat berpuasa ya .... semoga segala kebaikan bulan Ramadhan terlimpah untuk kita, amien. Rasululloh SAW bersabda: Wahai manusia! Sungguh telah datang pada kalian bulan Allah dengan membawa berkah rahmat dan maghfirah. Bulan yang paling mulia disisi Allah. Hari-harinya adalah hari-hari yang paling utama. Malam-malamnya...

Read More

Merdeka !!!

"Kebebasan berarti bahwa si hamba bebas dari belenggu sesama mahluk; kekuasaan mahluk tidak berlaku atas dirinya. Tanda absahnya kebebasan adalah tersingkirnya pembedaan tentang segala hal dalam hatinya sehingga semua gejala duniawi di hadapannya adalah sama." (Imam al-Qusyairi) Kemerdekaan menurut kamus besar bahasa...

Read More

Awal Perjalanan di Institut Teknologi Bandung

Berawal dari ajakan rekan kerja di kampus untuk kuliah pascasarjana bidang information security management system di Universitas Langlangbuana. Saya memang sudah lama bereksperimen dengan kriptografi dan benar-benar berminat mendalami ilmu tersebut. Tetapi Prof. Ali Ramdhani bersikeras menginginkan agar saya masuk ke Institut...

Read More

Perjalanan Pertama Syauqi ke Subang

...

Read More

I with IM3 goes to Campus

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postinga...

Read More

Tentang Nurulloh Laboratory

Nurulloh Laboratory adalah kegiatan Software Engineering yang dilakukan untuk menjawab berbagai kebutuhan masyarakat akan dukungan Teknologi Informasi pada wilayah kerjanya. Kegiatannya terbagi menjadi dua bagian, yakni: Pertama, Penelitian yang menghasilkan produk perangkat lunak prototipe, dipublikasi sebagai perangkat freeware. Kedua, Komersial yang menghasilkan produk penuh dan dijua...

Read More

Tampilan Produk

Programable SMS CenterSistem Informasi untuk Laboratorium MedikKriptografiPingerAutosurferUjian OnlineExporter Basis data dan Validator Ketergantungan FungsionalPembangkit Basis Data SI Offline untuk SI OnlineSistem Informasi Pembayaran Uang MahasiswaSistem Informasi Manajemen Perpustaka...

Read More

Perangkat Lunak dalam Promosi atau Tunggu

Tahun 2007 Sistem Informasi Medik, untuk Laboratorium Medik.Run and Backup for Sistem Informasi berbasis MS Access, digunakan untuk membackup Sistem Informasi Akademik Sekolah Tinggi Teknologi Garut.Tahun 2008 Portal Kampus digunakan oleh Sekolah Tinggi Teknologi GarutKolektor Calon Pemilih, digunakan oleh Abdul Halim DatacenterSMS Center, digunakan oleh Abdul Halim Datacent...

Read More

Daftar Perangkat Lunak Penelitian

Tahun 2002 - Sistem Penilaian Kesehatan Baitul Ma'al Wat Tamwil PINBUK Jawa Barat, dalam tugas Kerja Praktek.Tahun 2003 - Turbo Alkhowarizmi, Analisator Bahasa Pemrograman Indonesia Pascal Like, dalam Tugas Akhir.Tahun 2006 - Licence Creator, untuk serial number resmi produk Nurulloh LaboratoryTahun 2007 Qur'an Reader, Multi Bahasa dan Suara.Autosurfing, Browser Autopilot.Pinger grafis, digunakan untuk mengecek konektifitas jaringan wifi kota (InterYamusa...

Read More

Daftar Perangkat Lunak Terjual

Tahun 2004 - Sistem Pembayaran (SIYAR), untuk Sekolah Tinggi Teknologi Garut.Tahun 2005 - Sistem Absensi Dosen, untuk Sekolah Tinggi Teknologi Garut.Tahun 2006 - Radio Broadcaster Auto Pilot, untuk PT Radio Yamusa Pratama (Yamusa FM).Tahun 2007 - Sistem Informasi Hotel (Reservasi), untuk Kampung Sampireun.Tahun 2008 - Sistem Informasi Perpustakaan, untuk Sekolah Tinggi Teknologi Garu...

Read More

My Family

Berfoto di kamarku (Pesantren Teknik al-Musaddadiyah) bersama orang tuaku selepas Wisuda Sarjana tahun 20...

Read More

Syuqi Ahmad Nurulloh

Syauqi 2 tahunSyauqi, 1 tahunSyauqi usia 6 bulan Syauqi usia 4 bulan Usia 1 Ha...

Read More

Tungganganku

NMax 2018 Fino Premium 2016 Jimny 1988 Jupiter MX 2012 Tahun 2007, Yamaha Speed Extreme Raider Yamaha Jupiter MX, 135 CC - Z 4748 DY Tahun 2004, Blackstone Honda Kharisma 125 CC - T 5532 DY...

Read More

Mengubah wallpaper dan mematikan screensaver dengan memanipulasi registry

uses registry; procedure TForm1.FormCreate(Sender: TObject) ; var reg:TRegistry; begin reg:=TRegistry.Create; with reg do begin try if OpenKey('\Control Panel\desktop', False) then begin //change wallpaper and tile it reg.WriteString ('Wallpaper','c:\windows\CIRCLES.bmp') ; reg.WriteString ('TileWallpaper','1') ; //disable screen saver//('0'=disable, '1'=enable) reg.WriteString('ScreenSaveActive','0') ; //update changes immediately SystemParametersInfo...

Read More

Menampilkan Informasi BIOS

function GetBiosInfoAsText: string; var p, q: pchar; begin q := nil; p := PChar(Ptr($FE000)); repeat if q <> nil then begin if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin if (p^ = #0) and (p - q >= 8) then begin Result := Result + TrimRight(String(q)) + #13#10; end; q := nil; end; end else if p^ in [#33..#126, #169, #184] then q := p; inc(p); until p > PChar(Ptr($FFFFF)); Result := TrimRight(Result); en...

Read More

Checksum BIOS

function GetBiosCheckSum: string; var s: int64; i: longword; p: PChar; begin i := 0; s := 0; p := PChar($F0000); repeat inc(s, Int64(Ord(p^)) shl i); if i < 64 then inc(i) else i := 0; inc(p); until p > PChar($FFFFF); Result := IntToHex(s,16); en...

Read More

Nomor Serial BIOS

uses SHA1, Base64; function GetHashedBiosInfo: string; var SHA1Context: TSHA1Context; SHA1Digest: TSHA1Digest; begin // Get the BIOS data SetString(Result, PChar(Ptr($F0000)), $10000); // Hash the string SHA1Init(SHA1Context); SHA1Update(SHA1Context, PChar(Result), Length(Result)); SHA1Final(SHA1Context, SHA1Digest); SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest)); // Return the hash string encoded in printable characters Result := ...

Read More

Nomor Serial BIOS

uses SHA1, Base64; function GetHashedBiosInfo: string; var SHA1Context: TSHA1Context; SHA1Digest: TSHA1Digest; begin // Get the BIOS data SetString(Result, PChar(Ptr($F0000)), $10000); // Hash the string SHA1Init(SHA1Context); SHA1Update(SHA1Context, PChar(Result), Length(Result)); SHA1Final(SHA1Context, SHA1Digest); SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest)); // Return the hash string encoded in printable characters Result := ...

Read More

Mematikan Mouse dan Keyboard selama 5 detik

procedure TForm1.Button1Click(Sender: TObject) ; function FuncAvail (_dllname, _funcname: string; var _p: pointer): boolean; var _lib: tHandle; begin Result := false; _p := NIL; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllname)) ; if _lib <> 0 then begin _p := GetProcAddress(_lib, PChar(_funcname)) ; if _p <> NIL then Result := true; end; end; var xBlockInput : function(Block: BOOL): BOOL; stdcall; begin if...

Read More

Mengambil nama komputer dan penggunanya

function GetComputerNetName: string; var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end; Function GetUserFromWindows: string; Var UserName : string; UserNameLen : Dword; Begin UserNameLen := 255; SetLength(userName, UserNameLen) ; If GetUserName(PChar(UserName), UserNameLen) Then Result := Copy(UserName,1,UserNameLen - 1) Else Result := 'Unknown'; En...

Read More

Menampilkan proses yang sedang berjalan di Windows

function EnumProcess(hHwnd: HWND; lParam : integer): boolean; stdcall; var pPid : DWORD; title, ClassName : string; begin //if the returned value in null the //callback has failed, so set to false and exit. if (hHwnd=NULL) then begin result := false; end else begin //additional functions to get more //information about a process. //get the Process Identification number. GetWindowThreadProcessId(hHwnd,pPid); //set a memory area to receive //the...

Read More

Mematikan ALT+TAB, CTRL+ESC, CTRL+ALT+DEL

procedure SystemKeys(Disable: Boolean) ; var OldVal : LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0) ; en...

Read More

Mematikan Ctrl+Alt+Del Kedua

procedure DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = True then begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; //...

Read More

Mematikan Ctrl+Alt+Del Pertama

uses Registry; procedure EnableCTRLALTDEL(YesNo : boolean); const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System\',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1); end; True: begin WriteInteger('DisableTaskMgr',0); end; end; end; CloseKey; if OpenKey(sRegPolicies+'\Explorer\',True) then begin case...

Read More

Melihat Nomor Serial Harddisk

function GetHardDiskSerial(const DriveLetter: Char): string; var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin GetVolumeInformation(PChar(DriveLetter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := Format('Label = %s VolSer = %8.8X', [VolumeInfo, VolumeSerialNumber]) end; procedure TForm1.Button1Click(Sender: TObject); begin S...

Read More

Melihat informasi CPU

unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } procedure info(s1, s2: string); end; var frm_main: Tfrm_main; gn_speed_y: Integer; gn_text_y: Integer; const gn_speed_x: Integer = 8; gn_text_x: Integer = 15; gl_start: Boolean...

Read More

Menutup Notepad

procedure TForm1.Button1Click(Sender: TObject); var Hnd: THandle; begin Hnd := FindWindow (PChar ('Notepad'), nil); if Hnd > 0 then SendMessage (Hnd, WM_CLOSE, 0, 0); en...

Read More

Mematikan screen saver sementara

procedure TForm1.AppMessage (var Msg: TMsg; var Handled: boolean); begin if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then Handled := true; end; dituliskan pada modul event OnCreate Form: Application.OnMessage := AppMessag...

Read More

Membuat scrollbar horisontal untuk komponen Listbox

procedure HorScrollBar (ListBox: TListBox; MaxWidth: integer); var i, w: integer; begin if MaxWidth >= 0 then SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0) else begin { get largest item } for i := 0 to ListBox.Items.Count - 1 do with ListBox do begin w := Canvas.TextWidth (Items [i]); if w > MaxWidth then MaxWidth := w; end; SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth + GetSystemMetrics (SM_CXFRAME), 0...

Read More

Dialog untuk memilih direktori

uses FileCtrl; var Dir: string; (...) Dir := 'C:\Windows'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Label1.Caption := Di...

Read More

Membuat Direktori Baru

var Dir: string; (...) Dir := 'C:\APPS\SALES\LOCAL'; ForceDirectories(Dir); if DirectoryExists(Dir) then Label1.Caption := Dir + ' successfully created...

Read More

Get the long file name from a shortened (8 + 3) file name

function LongFileName (ShortName: string): string; var SR: TSearchRec; begin Result := ''; if (pos ('\\', ShortName) + pos ('*', ShortName) + pos ('?', ShortName) <> 0) or not FileExists (ShortName) then { ignore NetBIOS name, joker chars and invalid file names } Exit; while FindFirst (ShortName, faAnyFile, SR) = 0 do begin { next part as prefix } Result := '\' + SR.Name + Result; SysUtils.FindClose (SR); { the SysUtils, not the WinProcs...

Read More