Surachman's Life

Analisis encoding pada MTA (Mail Transfer Agent)

surachman — Mon, 19 Jan 2009 09:53:06 +0000

Pada tugas 7 ini penulis mencoba menunjukan bagaimana attachment yang berbentuk image file di encoding oleh MTA untuk dikirim ke alamat tujuan.Pada tugas ini penulis memanfaatkan layanan Yahoo mail yaitu sebuah layanan free mail dengan web based application. ketika kita mengirimkan sebuah email dengan attachment file image maka ketika MTA Yahoo Mail gagal menemukan alamat yang dituju maka email yang kita kirimkan berikut attacmentnya akan dikembalikan ke mail box kita, tanpa berusaha mengembalikan ke bentuk file awal.
Berikut bentuk mail dan berita pengembaliannya dan encoding dan type dari attachment yang dikirim :
Hi. This is the qmail-send program at yahoo.com.
I’m afraid I wasn’t able to deliver your message to the following addresses.
This is a permanent error; I’ve given up. Sorry it didn’t work out.

:
Sorry, I couldn’t find a mail exchanger or IP address. (#5.4.4)

— Below this line is a copy of the message.

Return-Path:
Received: (qmail 96310 invoked by uid 60001); 19 Jan 2009 09:49:26 -0000
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
s=s1024; d=yahoo.com;
h=X-YMail-OSG:Received:X-Mailer:Date:From:Subject:To:MIME-Version:Content-Type:Message-ID;
b=zAs3Kr7sBwrF2HZImM5PGm4+gB7rNyKCUKjMypX+B55YQqpW8SPYQn0xK7V1Wxxyysjfb/YzTZ9Q1GG4KcKaZhYpnUKZy44dtikLtwo5hOG2LxNIVKnuSs0N2NLQ4rb6Scmxs2xdgqorxLopq5yv3MiB25kndUAxfAyReVfZHeM=;
X-YMail-OSG: DOkm76UVM1m8Wo5.AxeXC_omyzSJssGeKHzQbxJG7Qtq1LQqBF2eHMbOs2MzSahVesPB7yF2GpRBO0Cx6Ynw7UUimeuyBru5OjwTfj2z3J9iUmenYOTMGb5YbpjW.rZrKhm6c1PE1ySG4tsFfgpcM.znqg–
Received: from [222.124.158.86] by web31405.mail.mud.yahoo.com via HTTP; Mon, 19 Jan 2009 01:49:26 PST
X-Mailer: YahooMailWebService/0.7.260.1
Date: Mon, 19 Jan 2009 01:49:26 -0800 (PST)
From: Eka Surachman
Subject: Tsest attachment
To: xhssjgscscsdfs@yhaoo.com
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary=”0-1964019659-1232358566=:96079″
Message-ID:

–0-1964019659-1232358566=:96079
Content-Type: multipart/alternative; boundary=”0-27173538-1232358566=:96079″

–0-27173538-1232358566=:96079
Content-Type: text/plain; charset=us-ascii

Tsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachmentTsest attachment

–0-27173538-1232358566=:96079
Content-Type: text/html; charset=us-ascii

–0-27173538-1232358566=:96079–
–0-1964019659-1232358566=:96079
Content-Type: image/jpeg; name=”Blue hills.jpg”
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=”Blue hills.jpg”

Menghitung Banyak Karakter dalam Bahasa Indonesia

surachman — Sun, 09 Nov 2008 16:14:30 +0000

: menghitung karakter

Dari kasus tersebut, dapat disimpulkan bahwa penggunaan huruf ’A’ sering digunakan dalam bahasa Indonesia

Berikut List program yang dibuat menggunakan Borland Delphi

unit Unit1;

// Dibuat oleh:
// Nama : Eka Surachman
// NIM : 232 08 105
// Tgl : 7 Oktober 2008, 14:30 WIB

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    procedure Tampilkan;
public
    { Public declarations }
end;
//definisikan tipe data record
TTabelHtg = record
                huruf: string;
                count: integer;
              end;
THasilHtg = array of TTabelHtg;

var
Form1: TForm1;
penghitung: THasilHtg; //definisi array dinamis

implementation

{$R *.dfm}

{***** Fungsi pencarian *****}
{***** Mengembalikan nilai > -1 jika ketemu *****}

function cari(kar: string): integer;
var i : Integer;
begin
    Result := -1;
    for i := 0 to Length(penghitung) -1 do
    begin
       if penghitung[i].huruf = kar then
       begin
          Result := i;
          Break;
       end;
    end;
end;

// prosedur pengurutan. menggunakan algoritma bubble sort

procedure urutkan;
var i : Integer;
    ditukar: Boolean;
    temp : TTabelHtg;
begin
     repeat
        ditukar := False;
        for i := length(penghitung) -1 downto 0 do
        begin
            if Ord(penghitung[i].huruf[1]) > Ord(penghitung[i +1].huruf[1]) then
            begin
                temp := penghitung[i];
                penghitung[i] := penghitung[i+1];
                penghitung[i+1] := temp;
                ditukar := True;
            end;
        end;
     until not ditukar;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, pjKalimat, ndx : Integer;
begin
    SetLength(penghitung,0);                                       //kosongkan array
    pjKalimat := length(Edit1.Text);
    for i := 0 to pjKalimat do
    begin
        ndx := cari(Edit1.Text[i]);
        if ndx > -1 then
        begin
            penghitung[ndx].count := penghitung[ndx].count +1;
        end else
        begin
            j := length(penghitung);
            SetLength(penghitung, j +1);
            penghitung[j].huruf := Edit1.Text[i];
            penghitung[j].count := 1;
        end;
    end;
   // urutkan;
    Tampilkan;
end;

procedure TForm1.Tampilkan;
var i: Integer;
    hrf: String;
begin
    Memo1.Clear;
    for i := 0 to Length(penghitung) -1 do
    begin
        if penghitung[i].huruf = ‘ ‘ then
           hrf := ‘spasi’
        else hrf := penghitung[i].huruf;
        Memo1.Lines.Append(hrf+’ : ‘+IntToStr(penghitung[i].count));
    end;
end;

end.

Tugas 2 : Whois

surachman — Mon, 20 Oct 2008 03:28:03 +0000

itb.ac.id
o IP
167.205.108.136
167.205.126.66
o NameServer (NS)
ns1.itb.ac.id ( 167.205.23.1 & 202.249.24.65 )
ns2.itb.ac.id ( 167.205.22.123 )
ns3.itb.ac.id ( 167.205.30.114 )
o MailExchanger (MX)
mx1.itb.ac.id ( 167.205.23.6 )
mx2.itb.ac.id ( 167.205.1.67 & 167.205.23.7 )
o Subdomain

1. 8eh.itb.ac.id.
2. academic.itb.ac.id.
3. ae.itb.ac.id.
4. ai3.itb.ac.id.
5. akademik.itb.ac.id.
6. alumni.itb.ac.id.
7. angket-online.itb.ac.id.
8. antivirus.itb.ac.id.
9. antivirus-slb.itb.ac.id.
10. antivirus2.itb.ac.id.
11. apache2006.itb.ac.id.
12. apccas2002.itb.ac.id.
13. ar.itb.ac.id.
14. arc.itb.ac.id.
15. art.itb.ac.id.
16. as.itb.ac.id.
17. astronomi.itb.ac.id.
18. astronomy.itb.ac.id.
19. aula-tmr.itb.ac.id.
20. avist.itb.ac.id.
21. baak.itb.ac.id.
22. backup-mx.itb.ac.id.
23. bangda.itb.ac.id.
24. berkala.itb.ac.id.
25. bi.itb.ac.id.
26. billing.itb.ac.id.
27. billing-ng.itb.ac.id.
28. biomed.itb.ac.id.
29. biostrat.itb.ac.id.
30. biotech.itb.ac.id.
31. blogs.itb.ac.id.
32. bmg.itb.ac.id.
33. bosscha.itb.ac.id.
34. builder.itb.ac.id.
35. cache.itb.ac.id.
36. cache-en.itb.ac.id.
37. cache-ien.itb.ac.id.
38. cache1.itb.ac.id.
39. cache2.itb.ac.id.
40. cache3.itb.ac.id.
41. cache4.itb.ac.id.
42. cache5.itb.ac.id.
43. calonadmin.itb.ac.id.
44. cam.itb.ac.id.
45. campuschannel.itb.ac.id.
46. cas.itb.ac.id.
47. cbsed.itb.ac.id.
48. ccar.itb.ac.id.
49. che.itb.ac.id.
50. chem.itb.ac.id.
51. cintaitb.itb.ac.id.
52. cisco-dial.itb.ac.id.
53. cisco-dialin1.itb.ac.id.
54. cisco-dialin10.itb.ac.id.
55. cisco-dialin11.itb.ac.id.
56. cisco-dialin12.itb.ac.id.
57. cisco-dialin13.itb.ac.id.
58. cisco-dialin14.itb.ac.id.
59. cisco-dialin2.itb.ac.id.
60. cisco-dialin3.itb.ac.id.
61. cisco-dialin4.itb.ac.id.
62. cisco-dialin5.itb.ac.id.
63. cisco-dialin6.itb.ac.id.
64. cisco-dialin7.itb.ac.id.
65. cisco-dialin8.itb.ac.id.
66. cisco-dialin9.itb.ac.id.
67. cisco-en.itb.ac.id.
68. cisco-en-en.itb.ac.id.
69. cisco-itb-telkom.itb.ac.id.
70. cnrg.itb.ac.id.
71. cnrg-lib.itb.ac.id.
72. cnrg1.itb.ac.id.
73. cnrglab.itb.ac.id.
74. comlabs.itb.ac.id.
75. conference.itb.ac.id.
76. course.itb.ac.id.
77. cre.itb.ac.id.
78. crep.itb.ac.id.
79. crs.itb.ac.id.
80. cvsup.itb.ac.id.
81. cyberlib.itb.ac.id.
82. da.itb.ac.id.
83. datacenter.itb.ac.id.
84. db.itb.ac.id.
85. dcpusat.itb.ac.id.
86. devel.itb.ac.id.
87. devlabs.itb.ac.id.
88. dirdikpp.itb.ac.id.
89. distancE-courses.itb.ac.id.
90. distantlearning.itb.ac.id.
91. ditdik.itb.ac.id.
92. ditkeu.itb.ac.id.
93. dkv.itb.ac.id.
94. dl.itb.ac.id.
95. dlo.itb.ac.id.
96. dlomail.itb.ac.id.
97. dp.itb.ac.id.
98. ebs.itb.ac.id.
99. ee.itb.ac.id.
100. eii.itb.ac.id.
101. eis.itb.ac.id.
102. ejournal.itb.ac.id.
103. el92.itb.ac.id.
104. epsdl.itb.ac.id.
105. ezmlm-web.itb.ac.id.
106. fa.itb.ac.id.
107. faraday.itb.ac.id.
108. fi.itb.ac.id.
109. fitb.itb.ac.id.
110. fmb.itb.ac.id.
111. fmipa.itb.ac.id.
112. forum.itb.ac.id.
113. fsrd.itb.ac.id.
114. fti.itb.ac.id.
115. ftmd.itb.ac.id.
116. ftp.itb.ac.id.
117. ftsl.itb.ac.id.
118. ftsp.itb.ac.id.
119. fttm.itb.ac.id.
120. gallery.itb.ac.id.
121. gamais.itb.ac.id.
122. ganeca2.itb.ac.id.
123. ganechat.itb.ac.id.
124. ganesha.itb.ac.id.
125. ganeshatv.itb.ac.id.
126. gate-vhf.itb.ac.id.
127. gc.itb.ac.id.
128. gcca.itb.ac.id.
129. gd.itb.ac.id.
130. gdl.itb.ac.id.
131. geoph.itb.ac.id.
132. gerbang.itb.ac.id.
133. gf.itb.ac.id.
134. graphics.itb.ac.id.
135. groups.itb.ac.id.
136. gw-hf.itb.ac.id.
137. gw-paume.itb.ac.id.
138. hayati.itb.ac.id.
139. hitbox.itb.ac.id.
140. hosting.itb.ac.id.
141. humas.itb.ac.id.
142. hydraulic.itb.ac.id.
143. icpco2007.itb.ac.id.
144. ictmp.itb.ac.id.
145. idln.itb.ac.id.
146. ied.itb.ac.id.
147. if.itb.ac.id.
148. IIE.itb.ac.id.
149. iiwas2002.itb.ac.id.
150. im.itb.ac.id.
151. imhere.itb.ac.id.
152. ims.itb.ac.id.
153. indonesia-itb-ether.itb.ac.id.
154. inkubator.itb.ac.id.
155. ins.itb.ac.id.
156. instrument.itb.ac.id.
157. interior.itb.ac.id.
158. iom.itb.ac.id.
159. ipr.itb.ac.id.
160. ipv6.itb.ac.id.
161. isnet.itb.ac.id.
162. isrg.itb.ac.id.
163. itb-bgp-2.itb.ac.id.
164. ITB-bosscha.itb.ac.id.
165. itb-inherent.itb.ac.id.
166. itb-isat.itb.ac.id.
167. ITB-Jalawave.itb.ac.id.
168. itb-tein2.itb.ac.id.
169. itb-tunnel.itb.ac.id.
170. itbgtw.itb.ac.id.
171. itforum.itb.ac.id.
172. jaktri.itb.ac.id.
173. kabinet-km.itb.ac.id.
174. kaderisasi-admin.itb.ac.id.
175. kamus.itb.ac.id.
176. kantorwrma.itb.ac.id.
177. kealumnian.itb.ac.id.
178. kemitraan.itb.ac.id.
179. kepegawaian.itb.ac.id.
180. kkp.itb.ac.id.
181. km.itb.ac.id.
182. kmrg.itb.ac.id.
183. kolaborasi.itb.ac.id.
184. koperasi.itb.ac.id.
185. kppmb.itb.ac.id.
186. kppwk.itb.ac.id.
187. kria-sr.itb.ac.id.
188. kuliah.itb.ac.id.
189. lapi.itb.ac.id.
190. lc.itb.ac.id.
191. ldap.itb.ac.id.
192. ldap-ng.itb.ac.id.
193. ldap-tes.itb.ac.id.
194. lfd.itb.ac.id.
195. lib.itb.ac.id.
196. library.itb.ac.id.
197. linux.itb.ac.id.
198. lms-inherent.itb.ac.id.
199. localhost.itb.ac.id.
200. loedroek.itb.ac.id.
201. logger.itb.ac.id.
202. logger-ng.itb.ac.id.
203. login.itb.ac.id.
204. logistik.itb.ac.id.
205. lp.itb.ac.id.
206. lpadrc.itb.ac.id.
207. lpkm.itb.ac.id.
208. lpm.itb.ac.id.
209. lppm.itb.ac.id.
210. lss.itb.ac.id.
211. lumbung1.itb.ac.id.
212. mailadm.itb.ac.id.
213. maisy.itb.ac.id.
214. maroon.itb.ac.id.
215. material.itb.ac.id.
216. math.itb.ac.id.
217. maxwell.itb.ac.id.
218. mba.itb.ac.id.
219. mcp-books.itb.ac.id.
220. mesin.itb.ac.id.
221. metallurgy.itb.ac.id.
222. mgb.itb.ac.id.
223. Mgmt.itb.ac.id.
224. mic.itb.ac.id.
225. mining.itb.ac.id.
226. mirror.itb.ac.id.
227. mlearning.itb.ac.id.
228. mm.itb.ac.id.
229. monitoring.itb.ac.id.
230. monitoringv2.itb.ac.id.
231. ms.itb.ac.id.
232. mti.itb.ac.id.
233. multimedia.itb.ac.id.
234. mx.itb.ac.id.
235. mx-in.itb.ac.id.
236. mx0.itb.ac.id.
237. mx1.itb.ac.id.
238. mx2.itb.ac.id.
239. mx3.itb.ac.id.
240. mx4.itb.ac.id.
241. mx5.itb.ac.id.
242. mx6.itb.ac.id.
243. nic.itb.ac.id.
244. nic-ng.itb.ac.id.
245. nicadm.itb.ac.id.
246. nii.itb.ac.id.
247. ninja-hattori.itb.ac.id.
248. noc-ccar.itb.ac.id.
249. noc-sps.itb.ac.id.
250. ns-new.itb.ac.id.
251. ns1.itb.ac.id.
252. ns2.itb.ac.id.
253. ns3.itb.ac.id.
254. nt.itb.ac.id.
255. ntp.itb.ac.id.
256. ocean.itb.ac.id.
257. oceanography.itb.ac.id.
258. oecd.itb.ac.id.
259. ohu2007.itb.ac.id.
260. old-ganesha.itb.ac.id.
261. olimpiade2007.itb.ac.id.
262. opencores.itb.ac.id.
263. openims.itb.ac.id.
264. order.itb.ac.id.
265. packetscanner.itb.ac.id.
266. pantheon.itb.ac.id.
267. pau-router.itb.ac.id.
268. paubt.itb.ac.id.
269. pauir.itb.ac.id.
270. paume.itb.ac.id.
271. pcd.itb.ac.id.
272. penerbit.itb.ac.id.
273. perencanaan.itb.ac.id.
274. petakampus.itb.ac.id.
275. phys.itb.ac.id.
276. pilihrektor.itb.ac.id.
277. pinri.itb.ac.id.
278. pl.itb.ac.id.
279. placeof.itb.ac.id.
280. plesk.itb.ac.id.
281. pmo.itb.ac.id.
282. pn.itb.ac.id.
283. portal.itb.ac.id.
284. poss.itb.ac.id.
285. power.itb.ac.id.
286. powernoc.itb.ac.id.
287. ppk.itb.ac.id.
288. ppkpl.itb.ac.id.
289. ppms.itb.ac.id.
290. pps.itb.ac.id.
291. ppt.itb.ac.id.
292. pptik.itb.ac.id.
293. premium.itb.ac.id.
294. pringgapuk.itb.ac.id.
295. profil-kaderisasi.itb.ac.id.
296. prohil.itb.ac.id.
297. proyek.itb.ac.id.
298. psda.itb.ac.id.
299. psdi.itb.ac.id.
300. pusat.itb.ac.id.
301. pusat-lama.itb.ac.id.
302. pusat2.itb.ac.id.
303. puslog.itb.ac.id.
304. pwk.itb.ac.id.
305. R11.itb.ac.id.
306. ra02.itb.ac.id.
307. ra11.itb.ac.id.
308. RA12.itb.ac.id.
309. ra13.itb.ac.id.
310. ra5.itb.ac.id.
311. radio-net.itb.ac.id.
312. rbl.itb.ac.id.
313. rbn.itb.ac.id.
314. rbn1.itb.ac.id.
315. rbn2.itb.ac.id.
316. register.itb.ac.id.
317. relasialumni.itb.ac.id.
318. rict.itb.ac.id.
319. sa.itb.ac.id.
320. sac-en.itb.ac.id.
321. salman.itb.ac.id.
322. samba.itb.ac.id.
323. sampoernasbm.itb.ac.id.
324. sappk.itb.ac.id.
325. satpam.itb.ac.id.
326. sbm.itb.ac.id.
327. scout.itb.ac.id.
328. sdm.itb.ac.id.
329. server3.itb.ac.id.
330. si.itb.ac.id.
331. sia.itb.ac.id.
332. sibf2008.itb.ac.id.
333. singalodra.itb.ac.id.
334. sipx.itb.ac.id.
335. sisfoperencanaan.itb.ac.id.
336. siskeu.itb.ac.id.
337. siskeu01.itb.ac.id.
338. sismik.itb.ac.id.
339. sispran.itb.ac.id.
340. sispran2.itb.ac.id.
341. sith.itb.ac.id.
342. skd.itb.ac.id.

343. snmptn.itb.ac.id.
344. soi.itb.ac.id.
345. soi-proxy.itb.ac.id.
346. soi-router.itb.ac.id.
347. soi-server.itb.ac.id.
348. sostek.itb.ac.id.
349. sp.itb.ac.id.
350. spe.itb.ac.id.
351. spns.itb.ac.id.
352. stat.itb.ac.id.
353. stei.itb.ac.id.
354. students.itb.ac.id.
355. students-ng.itb.ac.id.
356. suk.itb.ac.id.
357. svnserver.itb.ac.id.
358. sysapp.itb.ac.id.
359. TeknologiInformasi.itb.ac.id.
360. telekomunikasi.itb.ac.id.
361. telekomunikasi.itb.ac.id.
362. telematic.itb.ac.id.
363. tf.itb.ac.id.
364. thinclient.itb.ac.id.
365. ti.itb.ac.id.
366. tl.itb.ac.id.
367. tm.itb.ac.id.
368. tpb.itb.ac.id.
369. transport.itb.ac.id.
370. uka.itb.ac.id.
371. ukp.itb.ac.id.
372. unisispran.itb.ac.id.
373. unit.itb.ac.id.
374. upi.itb.ac.id.
375. uptor.itb.ac.id.
376. usdi.itb.ac.id.
377. usdi-imhere.itb.ac.id.
378. usdi-reps.itb.ac.id.
379. vclass.itb.ac.id.
380. vic-rat.itb.ac.id.
381. video.itb.ac.id.
382. virtual-university.itb.ac.id.
383. vlsi.itb.ac.id.
384. voip.itb.ac.id.
385. vpn.itb.ac.id.
386. waveLAN-disnak.itb.ac.id.
387. WaveLAN-DisNak-ITB.itb.ac.id.
388. wavelan-ikip.itb.ac.id.
389. WaveLAN-ITB-Lapan.itb.ac.id.
390. WaveLAN-ITB-midc.itb.ac.id.
391. waveLAN-ITB-RadNet.itb.ac.id.
392. WaveLAN-ITB-Unisba.itb.ac.id.
393. waveLAN-RadNet-ITB.itb.ac.id.
394. waveLAN-ypkp.itb.ac.id.
395. webhosting.itb.ac.id.
396. webkampus.itb.ac.id.
397. webservices-sispran.itb.ac.id.
398. whois.itb.ac.id.
399. wiki.itb.ac.id.
400. windowsupdate.itb.ac.id.
401. wrks.itb.ac.id.
402. wrm.itb.ac.id.
403. www.itb.ac.id.
404. www1.itb.ac.id.
405. x.itb.ac.id.
406. xxx.itb.ac.id.
407. zimbra.itb.ac.id.

Hasil proses seleksi, dari 813 menjadi 407 sub domain.

Referensi

http://id.wordpress.com/tag/itb/

http://komputasi.wordpress.com/2008/10/17/informasi-domain-dan-host/.

http://www.robtex.com/dns/ai3.itb.ac.id.html

http://www.whois.org

Program Error

surachman — Mon, 20 Oct 2008 03:17:58 +0000

Listing Program

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:”";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:”Times New Roman”;
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}

unit u_biodata1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type

Tf_biodata1 = class(TForm)

Bevel1: TBevel;

Label13: TLabel;

DBGrid1: TDBGrid;

Bevel2: TBevel;

Bevel3: TBevel;

bt_hapus: TBitBtn;

bt_tutup: TBitBtn;

bt_edit: TBitBtn;

bt_tambah: TBitBtn;

e_nip: TEdit;

e_nama: TEdit;

e_homebase: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

bt_cetak: TBitBtn;

procedure bt_tambahClick(Sender: TObject);

procedure bt_editClick(Sender: TObject);

procedure e_nipKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure bt_hapusClick(Sender: TObject);

procedure bt_tutupClick(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure bt_cetakClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

f_biodata1: Tf_biodata1;

implementation

uses u_biodata,udm_data, DB, ADODB, qr_direktori;

{$R *.dfm}

procedure Tf_biodata1.bt_tambahClick(Sender: TObject);

begin

with f_biodata do

begin

e_nip.clear;

e_gelar1.Clear;

e_nama.clear;

e_gelar2.Clear;

e_tempat.clear;

dtp_lahir.Date:=date;

cb_sex.ItemIndex:=0;

cb_gol.ItemIndex:=0;

cb_jabfung.ItemIndex:=0;

cb_pendidikan.ItemIndex:=0;

e_homebase.clear;

e_alamat.Clear;

e_telp.clear;

e_hp.clear;

e_fax.clear;

e_email.clear;

e_pakar1.clear;

e_pakar2.clear;

e_pakar3.clear;

dm_data.t_biodata.Append;

showmodal;

end;

procedure Tf_biodata1.bt_editClick(Sender: TObject);

begin

with dm_data.t_biodata do

begin

if recordcount <> 0 then

begin

Locate(‘nip’,e_nip.Text,[]);

if FieldByName(‘nip’).AsString = e_nip.Text then

begin

with f_biodata do

begin

e_nip.Text:=FieldByName(‘nip’).AsString;

e_gelar1.Text:=FieldByName(‘gelar1′).AsString;

e_nama.Text:=FieldByName(‘nama’).AsString;

e_gelar2.Text:=FieldByName(‘gelar2′).AsString;

e_tempat.Text:=FieldByName(‘tempat_lahir’).AsString;

dtp_lahir.Date:=FieldByName(‘tgl_lahir’).asdatetime;

if FieldByName(‘sex’).AsString = ‘Laki-laki’ then

cb_sex.ItemIndex:=0

else

cb_sex.ItemIndex:=1;

if FieldByName(‘pendidikan’).AsString = ‘S1′ then

cb_pendidikan.ItemIndex:=0;

if FieldByName(‘pendidikan’).AsString = ‘S2′ then

cb_pendidikan.ItemIndex:=1;

if FieldByName(‘pendidikan’).AsString = ‘S3′ then

cb_pendidikan.ItemIndex:=2;

cb_gol.ItemIndex:=FieldByName(‘gol_kode’).AsInteger;

cb_jabfung.ItemIndex:=FieldByName(‘jabfung_kode’).AsInteger;

e_homebase.Text:=FieldByName(‘homebase’).AsString;

e_alamat.Text:=FieldByName(‘alamat’).AsString;

e_telp.Text:=FieldByName(‘no_telp’).AsString;

e_hp.Text:=FieldByName(‘no_hp’).AsString;

e_fax.Text:=FieldByName(‘no_fax’).AsString;

e_email.Text:=FieldByName(‘email’).AsString;

e_pakar1.Text:=FieldByName(‘pakar1′).AsString;

e_pakar2.Text:=FieldByName(‘pakar2′).AsString;

e_pakar3.Text:=FieldByName(‘pakar3′).AsString;

dm_data.t_biodata.Edit;;

showmodal;

end;

end

else

showmessage(‘Belum Ada Data’);

end;

procedure Tf_biodata1.e_nipKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

nama:string;

begin

with dm_data.t_biodata do

begin

if key = 13 then

begin

Locate(‘nip’,e_nip.Text,[]);

if FieldByName(‘nip’).AsString = e_nip.Text then

begin

if FieldByName(‘gelar1′).AsString <> ” then

nama:=FieldByName(‘gelar1′).AsString

else

nama:=”;

nama:=nama+’ ‘+FieldValues['nama'];

if FieldByName(‘gelar2′).AsString <> ” then

nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;

e_nama.Text:=nama;

e_homebase.Text:=FieldValues['homebase'];

end

else

showmessage(‘NIP Tidak Ditemukan !’);

end;

procedure Tf_biodata1.bt_hapusClick(Sender: TObject);

begin

with dm_data.t_biodata do

begin

Locate(‘nip’,e_nip.Text,[]);

if FieldByName(‘nip’).AsString = e_nip.Text then

Delete;

end;

procedure Tf_biodata1.bt_tutupClick(Sender: TObject);

begin

close;

end;

procedure Tf_biodata1.DBGrid1CellClick(Column: TColumn);

var

nama:string;

begin

with dm_data.t_biodata do

begin

e_nip.Text:=FieldValues['nip'];

Locate(‘nip’,e_nip.Text,[]);

if FieldByName(‘gelar1′).AsString <> ” then

nama:=FieldByName(‘gelar1′).AsString

else

nama:=”;

nama:=nama+’ ‘+FieldValues['nama'];

if FieldByName(‘gelar2′).AsString <> ” then

nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;

e_nama.Text:=nama;

e_homebase.Text:=FieldValues['homebase'];

end;

procedure Tf_biodata1.bt_cetakClick(Sender: TObject);

var

nama:string;

begin

with dm_data.t_biodata do

begin

close;open;

dm_data.q_biodata.Close;

dm_data.q_biodata.Parameters.ParamValues['nip']:=e_nip.Text;

dm_data.q_biodata.Open;

Locate(‘nip’,e_nip.Text,[]);

if (FieldByName(‘nip’).AsString = e_nip.Text) then

begin

if FieldByName(‘gelar1′).AsString <> ” then

nama:=FieldByName(‘gelar1′).AsString

else

nama:=”;

nama:=nama+’ ‘+FieldValues['nama'];

if FieldByName(‘gelar2′).AsString <> ” then

nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;

dm_data.q_pendidikan.Close;

dm_data.q_pendidikan.Parameters.ParamValues['nip']:=e_nip.text+’%';

dm_data.q_pendidikan.open;

dm_data.q_buku.Close;

dm_data.q_buku.Parameters.ParamValues['nip']:=e_nip.text+’%';

dm_data.q_buku.open;

dm_data.q_penelitian.Close;

dm_data.q_penelitian.Parameters.ParamValues['nip']:=e_nip.text+’%';

dm_data.q_penelitian.open;

dm_data.q_seminar.Close;

dm_data.q_seminar.Parameters.ParamValues['nip']:=e_nip.text+’%';

dm_data.q_seminar.open;

dm_data.q_artikel.Close;

dm_data.q_artikel.Parameters.ParamValues['nip']:=e_nip.text+’%';

dm_data.q_artikel.open;

with qr do

begin

l_nama.Caption:=nama;

l_ttl.Caption:=FieldByName(‘tempat_lahir’).AsString+’ / ‘+datetostr(FieldByName(‘tgl_lahir’).asdatetime);

preview;

end;

end

else

ShowMessage(‘Data Tidak Ditemukan !’);

end;

end.

Singlevendor vs Multivendor

surachman — Sun, 21 Sep 2008 10:00:26 +0000

Tugas 1. Keamanan Informasi Sistem Lanjut

Singlevendor Vs Multivendor

Perkembangan teknologi sangat pesat sehingga semua bidang kegiatan tidak akan terlepas dari penggunaan teknologi IT untuk menghasilkan informasi yang berkualitas baik dari sisi kecepatan dan ketepatannya namun demikian di pasaran banyak sekali tersedia perangkat keras dan perangkat lunak yang ditawarkan dengan penyedia yang berbeda-beda, sehingga kita selaku penguna IT harus mengetahui spesifikasi feature, alokasi dana, Intropabilitas, Integritas dan Kapabilitas IT yang kita butuhkan.
Dari sekian aspek yang telah dapat diidentifikasi maka penentuan singlevendor dan multivendor dapat ditentukan, strategi single vendor maupun multi vendor memiliki kelebihan dan kekurangannya masing-masing. Menurut Cisco yang merupakan salah satu vendor jaringan terkuat saat ini, Tetapi bukan berarti tidak ada produk lain seperti, Juniper, 3Com, Alcatel, Nortel, dll. Masing-masing produk memilki kelebihan dan kekurangan.

Single Vendor :
Kelebihan :
• lebih murah biaya maintenancenya karena membeli satu paket.
• untuk instalasi lebih mudah karena kompatibilitasnya tinggi
• dari sisi kebijakan pemerintah walaupun yang dibutuhkan cuma produk dari satu perusahaan vendor harus melalui lelang.
• lebih mudah bekerja sama dengan sebuah vendor daripada dengan banyak vendor
• pengeloaan jaringan yang terarah
• mengurangi usaha procurement
Kekurangan :
• jika pasokan barang macet akan menggangu proses bisnis perusahaan
• akan mengakibatkan ketergantungan pada satu vendor dan vendor tersebut makin lama akan menaikkan harga karena tidak ada vendor pembanding.
• kehilangan kesempatan untuk memilih vendor yang lain
• kehilangan kuasa untuk negosiasi harga
• kehilangan kesempatan mendapatkan teknologi terbaru dari vendor lain
• memiliki resiko tinggi seperti halnya menaruh banyak telur dalam sebuah wadah
• dapat dipaksa vendor untuk upgrade sesuai dengan produk vendor

Multivendor
Kelebihan :
• Suatu sistem bisnis proses dapat dibangun dari pemilihan spesifikasi teknis yang terbaik hasil dari produk unggulan vendor yang berbeda.
• Pasokan barang akan mudah karena didapatkan dari berbagai sumber perusahaan
• Perusahaan user bisa menekan harga karena ada pembanding, Jika harga produk dari salah satu vendor mahal, akan lari ke Vendor lain.
• Jika pasokan barang tidak ada akan beralih ke vendor lain.
Kekurangan :
• Kalau terdapat perubahan memakan waktu lama terkait masalah kompatibilitas dari multi produk yang berbeda.

Kesimpulan
Penggunaan multivendor dalam penggunaan teknologi IT untuk menghasilkan informasi yang berkualitas baik dari sisi kecepatan dan ketepatannya sangat bermanfaat karena dapat menyediakan sistem layanan yang sempurna, maupun bagi vendor itu sendiri dalam mengembangkan kulitas produk dan layanan yang baik, Single Vendor akan lebih baik, lebih mudah dan kompatibilitasnnya tinggi tetapi ini juga akan menimbulkan monopoli pengadaan barang. Dalam hal ini kembali lagi pada kebijakan perusahaan itu sendiri akan menggunakan sistem singlevendor atau multivendor.

Daftar Pustaka

………..http://docs.rinet.ru/MuNet/index.htm
………..http://searchnetworkingchannel.techtarget.com/tip/0,289483,sid100_gci1305061,00.html
………..http://www.cisco.com/en/US/prod/collateral/switches/ps5718/ps708/ps713/prod_white_paper0900aecd806db80d.html
………..http://www.networkworld.com/news/2007/100407-cisco-side.html
Matt Stansberry, News Editor,http://searchwinit.techtarget.com/news/article/0,289142,sid1_gci1111012,00.html

Hello world!

surachman — Thu, 18 Sep 2008 08:22:58 +0000

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!