Peran Relawan Teknologi Informasi Dalam Pemanfaatan Warung Internet Perdesaan

Abstrak - Relawan Teknologi Informasi memiliki peran dalam pemanfaatan Warung Internet Perdesaan. Perannya tersebut dapat diidentifikasi dari permasalahan yang ada. Penelitian ini mendefinisikan peran Relawan Teknologi Informasi berdasarkan permasalahan Warung Internet Perdesaan di Garut yang dilaporkan dalam literatur yang dirujuk, sebagai salah satu entitas Quadruple Helix yang mempengaruhi layanan Warung Internet Perdesaan. Tidak seperti entitas Pemerintah dan Perusahaan yang mempengaruhi dalam area pengadaan, Relawan sebagaimana masyarakat berpengaruh dalam area pemanfaatan. Peran relawan ini dijabarkan dalam bentuk program pelatihan dan pendampingan bagi pengguna dan pengelola fasilitas tersebut. Dalam kaitannya dengan pelatihan, ada tiga jenis pelatihan yang diperlukan yakni untuk relawan TI itu sendiri, serta untuk masyarakat umum di tempat ataupun bergerak.

Kata Kunci - Teknologi Informasi, Relawan, Internet, Perdesaan

Lokasi Artikel

Read More

Perangkat lunak bajakan untuk aktivitas non komersial menurut UU nomor 19 tahun 2002

Pasal 72 ayat 3 UU Hak Cipta berbunyi, “Barangsiapa dengan sengaja dan tanpa hak memperbanyak penggunaan untuk kepentingan komersial suatu program komputer dipidana dengan pidana penjara paling lama 5 (lima) tahun dan/atau denda paling banyak Rp. 500.000.000,00 (lima ratus juta rupiah)” . Dari pasal ini sebagian dari kita mungkin berfikir untuk kegiatan non komersial seperti pendidikan, program komputer boleh diperbanyak.

Tapi coba perhatikan UU No. 19 Tahun 2002 pasal 15 e yang berbunyi sebagai berikut : “Perbanyakan suatu Ciptaan selain Program Komputer, secara terbatas dengan cara atau alat apa pun atau proses yang serupa oleh perpustakaan umum, lembaga ilmu pengetahuan atau pendidikan, dan pusat dokumentasi yang non-komersial semata-mata untuk keperluan aktivitasnya;”tidak melanggar undang-undang." Artinya, institusi non komersial tidak boleh memperbanyak program komputer yang dilindungi hak cipta untuk keperluan aktivitasnya.

Bagaimana kalau institusi non komersial tidak memperbanyak tetapi menggunakan program komputer yang dibeli dari seseorang yang tidak memiliki hak menjual (bajakan)? Jika ditelusuri dari UU tersebut, sangsi hukum diberikan hanya kepada orang yang tanpa hak menjual program komputer tersebut, sebagaimana disebutkan dalam Pasal 72 ayat 3. Sementara bagi institusi non komersial yang menggunakan program komputer bajakan, tidak ditemukan dalam UU tersebut adanya sangsi hukum.

Hanya saja berdasarkan pasal 73 ayat 1, program komputer bajakannya dapat dirampas oleh Negara, baik dari tangan penjual atau pengguna, untuk dimusnahkan. Dalam prakteknya seringkali aparat tidak bisa membedakan antara program dengan komputernya, sehingga aparat mengambil serta komputer yang mengandung program komputer bajakan. Padahal menurut pasal tersebut, yang boleh dirampas oleh aparat hanyalah program komputernya saja, apakah dengan jalan menghapus file installer-nya, merampas disk installer-nya, atau menghapus program dari komputer.

Walau pemilik hak cipta seperti Microsoft mendefinisikan pengguna software bajakan sebagai "victim of software counterfeiting" dan tidak ada sangsi hukum bagi pengguna software bajakan, namun mereka yang mengetahui program komputer tersebut bajakan sebaiknya mencoba untuk menghindari menggunakan program komputer tersebut, walau untuk kepentingan non komersil sekalipun. Berusaha untuk membeli perangkat lunak asli, atau menggunakan perangkat lunak gratis, bebas, atau terbuka.

Read More

Mengatur angka di belakang koma

Perintahnya :Format('%8.2f'[])

2 menunjukan jumlah angka di belakang komanya, yakni 2.

diganti dengan angka floatnyaFungsi di atas menghasilkan keluaran bertipe string.

Read More

Menyimpan jpg ke database

Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan

uses DB, jpeg;

Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adalah sebagai berikut :

1. Tambahkan komponen bernama OpenDialog1, ADOQuery1, Button1, dan Image1
2. Pada event onClick komponen tombol Button1, tuliskan kode berikut :

procedure TFormPustaka.Button1Click(Sender: TObject);

var

FileStream: TFileStream;

BlobStream: TStream;

begin

OpenDialog1.Execute;

ADOQuery1.Edit;

try

BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('photo'),bmWrite);

FileStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);

BlobStream.CopyFrom(FileStream,FileStream.Size);

FileStream.Free;

BlobStream.Free;

ADOQuery.Post; // menimpan gambar ke field "photo"

QDataPustakaAfterScroll(QDataPustaka); // memanggil event AfterScroll (di bawah)

except

ADOQuery1.Cancel;

end;

end;

end;

Cara untuk menampilkan data gambar yang merupakan isi field "photo" dengan menggunakan komponen ADOQuery1 dan Image1 adalah sebagai berikut :

1. Pastikan properti string dari komponen ADOQuery1 mengandung SQL yang terhubung ke tabel yang memiliki field bertipe text.
2. Pada event AfterScroll dari komponen ADOQuery1, tuliskan perintah berikut ini :

procedure ADOQuery1AfterScroll(DataSet: TDataSet);

var

JpegImage: TJPEGImage;

BlobStream: TStream;

begin

if (not ADOQuery1.FieldByName('photo').IsNull) then

begin

BlobStream:= ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('photo'),bmRead);

JpegImage := TJPEGImage.Create;

try

JpegImage.LoadFromStream(BlobStream);

Image1.Picture.Assign(JpegImage);

Image1.Visible := True; // ini tidak perlu jika Image1.Visible := False; tdk ditulis di bawah

finally

JpegImage.Free;

BlobStream.Free;

end;

end

else

Image1.Visible := False; // atau bisa juga Image1.Picture.Assign(nil);

end;

Tambahkan DBGrid, kemudian hubungkan dengan ADOQuery menggunakan DataSource. Setiap anda mengklik sel DBGrid, maka apabila field "photo" pada record tersebut mengandung gambar, akan muncul gambarnya di komponen image1.

Read More

Enkripsi dan Deskripsi Password

unit uEncrypt;

interface

function Decrypt(const S: AnsiString; Key: Word): AnsiString;

function Encrypt(const S: AnsiString; Key: Word): AnsiString;

implementation

const

C1 = 52845;

C2 = 22719;

function Decode(const S: AnsiString): AnsiString;

const

Map: array[Char] of Byte = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 0, 63, 52, 53,

54, 55, 56, 57, 58, 59, 60, 61, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2,

3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,

20, 21, 22, 23, 24, 25, 0, 0, 0, 0, 0, 0, 26, 27, 28, 29, 30,

31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,

46, 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

0);

var

I: LongInt;

begin

case Length(S) of

2:

begin

I := Map[S[1]] + (Map[S[2]] shl 6);

SetLength(Result, 1);

Move(I, Result[1], Length(Result))

end;

3:

begin

I := Map[S[1]] + (Map[S[2]] shl 6) + (Map[S[3]] shl 12);

SetLength(Result, 2);

Move(I, Result[1], Length(Result))

end;

4:

begin

I := Map[S[1]] + (Map[S[2]] shl 6) + (Map[S[3]] shl 12) +

(Map[S[4]] shl 18);

SetLength(Result, 3);

Move(I, Result[1], Length(Result))

end

end

end;

function PreProcess(const S: AnsiString): AnsiString;

var

SS: AnsiString;

begin

SS := S;

Result := '';

while SS <> '' do

begin

Result := Result + Decode(Copy(SS, 1, 4));

Delete(SS, 1, 4)

end

end;

function InternalDecrypt(const S: AnsiString; Key: Word): AnsiString;

var

I: Word;

Seed: Word;

begin

Result := S;

Seed := Key;

for I := 1 to Length(Result) do

begin

Result[I] := Char(Byte(Result[I]) xor (Seed shr 8));

Seed := (Byte(S[I]) + Seed) * Word(C1) + Word(C2)

end

end;

function Decrypt(const S: AnsiString; Key: Word): AnsiString;

begin

Result := InternalDecrypt(PreProcess(S), Key)

end;

function Encode(const S: AnsiString): AnsiString;

const

Map: array[0..63] of Char = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +

'abcdefghijklmnopqrstuvwxyz0123456789+/';

var

I: LongInt;

begin

I := 0;

Move(S[1], I, Length(S));

case Length(S) of

1:

Result := Map[I mod 64] + Map[(I shr 6) mod 64];

2:

Result := Map[I mod 64] + Map[(I shr 6) mod 64] +

Map[(I shr 12) mod 64];

3:

Result := Map[I mod 64] + Map[(I shr 6) mod 64] +

Map[(I shr 12) mod 64] + Map[(I shr 18) mod 64]

end

end;

function PostProcess(const S: AnsiString): AnsiString;

var

SS: AnsiString;

begin

SS := S;

Result := '';

while SS <> '' do

begin

Result := Result + Encode(Copy(SS, 1, 3));

Delete(SS, 1, 3)

end

end;

function InternalEncrypt(const S: AnsiString; Key: Word): AnsiString;

var

I: Word;

Seed: Word;

begin

Result := S;

Seed := Key;

for I := 1 to Length(Result) do

begin

Result[I] := Char(Byte(Result[I]) xor (Seed shr 8));

Seed := (Byte(Result[I]) + Seed) * Word(C1) + Word(C2)

end

end;

function Encrypt(const S: AnsiString; Key: Word): AnsiString;

begin

Result := PostProcess(InternalEncrypt(S, Key))

end;

end.

Sumber : http://www.swissdelphicenter.ch/torry/showcode.php?id=1243

Read More

Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb-Nya

Kebetulan dapat kutipan perkataan Yesus dalam Injil Thomas yang dikutip dari buku kajian tentang perpustakaan Nag Hamady, sebagai berikut :

"ketika kalian semua mengenali diri kalian saat itu kalian akan menjadi mengerti (Arifin) …"

Perkataan ini mirip dengan “Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb (Tuhan)-Nya”. yang dianggap Imam Ghazali dalam kitab Kimiya-i Sa'adah sebagai hadits Qudsi. Sejumlah ulama telah meneliti perkataan ini, yang ternyata bukan firman Tuhan dalam hadits qudsi atau perkataan Rasulullah SAW.

Dalam Gus Har disebutkan bahwa Syaikh Al-Albaniy -rahimahullah- dalam Adh-Dha’ifah (1/165) berkata, “Hadits ini tidak ada asalnya” [Adh-Dha’ifah (1/165)]. An-Nawawiy berkata, “Hadits ini tidak tsabit (tidak shahih)” (Al-Maqashid (198) oleh As-Sakhowiy)

As-Suyuthiy berkata, “Hadits ini tidak shahih” (Lihat Al-Qoul Asybah (2/351 Al-Hawi)

Dalam kitab Tamyizutthoyyib Minal Khobits Fima Yadurru Ala Alsinatinnasi Minal Hadits, karya Imam Abdurrahman Assyibani AsSyaf'i, Assamani berkata ucapan tersebut tidak dikenal sebagai hadits marfu yang sampai kepada Nabi, ia hanyalah ungkapan dari Yahya bin Muadz Ar-Razy. Imam Nawawi berkata hadits ini tidak shahih, innahu laysa bitsabit (maksudnya tidka sampai kepada Nabi). Dalam kitab lain yaitu : Asnal Matholib Fi Ahadits Mukhtalifail Marotib karya Syeikh Abdurrahman Albayruthy disebutkan Imam Nawawi berkata ungkapan itu bukan hadits tetapi ucapan Abu Said Al Khorroj atau Yahya bin Muadz Ar-Razy.

Perkataan Yahya bin Muadz Ar-Razy yang dianggap hadits ini sama dengan perkataan Yesus dalam Injil Thomas. Apa perkataan ini sebenarnya kutipan dari sana yang disalahfahami al Ghazali sebagai hadits Qudsi ? Allahu'alam.

Read More

Asal Dosa Manusia

Asal dosa itu adalah mengikuti tipu daya setan jin dan setan manusia.

Dan demikianlah Kami jadikan bagi tiap-tiap nabi itu musuh, yaitu syaitan-syaitan (dari jenis) manusia dan (dan jenis) jin, sebahagian mereka membisikkan kepada sebahagian yang lain perkataan-perkataan yang indah-indah untuk menipu (manusia). Jikalau Tuhanmu menghendaki, niscaya mereka tidak mengerjakannya, maka tinggalkanlah mereka dan apa yang mereka ada-adakan. (6:112)

Jika nafsu manusia tidak diberi rahmat oleh Allah, nafsu inilah yang mendorong manusia mengikuti tipu daya setan

Dan aku tidak membebaskan diriku (dari kesalahan), karena sesungguhnya nafsu itu selalu menyuruh kepada kejahatan, kecuali nafsu yang diberi rahmat oleh Tuhanku. Sesungguhnya Tuhanku Maha Pengampun lagi Maha Penyanyang. (12:53)

Dengan demikian, nafsu dapat menjadi musuh dalam selimut, yang digunakan setan untuk memperkuat pengaruhnya.

Agama yang berisi keterangan halal dan haram dari Tuhan menjadi penyelamat dari tipu daya setan. Orang yang menuruti hawa nafsunya yang meyeru dirinya kepada kejahatan yang dikehendaki setan, akan beroleh dosa.

Maka apakah orang yang berpegang pada keterangan yang datang dari Rabbnya sama dengan orang yang (shaitan) menjadikan dia memandang baik perbuatannya yang buruk itu dan mengikuti hawa nafsunya? (47:14)

Kesimpulannya :

Dan tidaklah seorang membuat dosa melainkan kemudharatannya kembali kepada dirinya sendiri; dan seorang yang berdosa tidak akan memikul dosa orang lain. (al An’am : 164) Kamu tidak akan ditanya (bertanggung jawab) tentang dosa yang kami perbuat dan kami tidak akan ditanya (pula) tentang apa yang kamu perbuat. (Saba’ : 25)

Read More