Source code, program penghitung huruf.

---------------------------------------------------------------------
Program aplikasi penghitung huruf
Tugas mata kuliah Keamanan Sistem Informasi Lanjut
Magister Teknik Elektro, Institut Teknologi Bandung.
Oleh: Aam Muharam, NIM : 23208104, Bidang Layanan Teknologi Informasi
Program menggunakan bahasa Visual Basic.
---------------------------------------------------------------------
Public Class Form1

Private Sub Butanalisa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butanalisa.Click
Dim index, koun, jum1, jum2, jum3, jum4, jum5 As Integer
Dim arrjmlhhrf(25), kalimat, prsn1, prsn2, prsn3, prsn4, prsn5 As String
Dim huruf, huruf1, huruf2, huruf3, huruf4, huruf5 As String
jum1 = 0 : jum2 = 0 : jum3 = 0 : jum4 = 0 : jum5 = 0

If Teksinput.Text = "" Then
Me.Button2.Enabled = False
MsgBox(" PLEASE INSERT YOUR TEXT FIRST ! ", MsgBoxStyle.Critical, "Letter Counter")
Else
Me.Button2.Enabled = True
End If

kalimat = (Me.Teksinput.Text).ToUpper
For nohuruf As Integer = 1 To kalimat.Length
huruf = kalimat.Substring(nohuruf - 1, 1)
If (huruf >= "A") And (huruf <= "Z") Then
index = Asc(huruf) - 65 'nilai ASCII dari "A" = 65
arrjmlhhrf(index) += 1
End If
Next nohuruf

For koun = 0 To 25
If arrjmlhhrf(koun) > jum1 Then
jum1 = arrjmlhhrf(koun)
huruf1 = Chr(koun + 65)
prsn1 = " (" & Format((jum1 / kalimat.Length), "##.##" & " %)")
End If
Next koun

For koun = 0 To 25
huruf = Chr(koun + 65)
If huruf <> huruf1 Then
If arrjmlhhrf(koun) > jum2 And arrjmlhhrf(koun) <= jum1 Then
jum2 = arrjmlhhrf(koun)
huruf2 = Chr(koun + 65)
prsn2 = " (" & Format((jum2 / kalimat.Length), "##.##" & " %)")
End If
End If
Next

For koun = 0 To 25
huruf = Chr(koun + 65)
If huruf <> huruf1 And huruf <> huruf2 Then
If arrjmlhhrf(koun) > jum3 And arrjmlhhrf(koun) <= jum2 And arrjmlhhrf(koun) <= jum1 Then
jum3 = arrjmlhhrf(koun)
huruf3 = Chr(koun + 65)
prsn3 = " (" & Format((jum3 / kalimat.Length), "##.##" & " %)")
End If
End If
Next
For koun = 0 To 25
huruf = Chr(koun + 65)
If huruf <> huruf1 And huruf <> huruf2 And huruf <> huruf3 Then
If arrjmlhhrf(koun) > jum4 And arrjmlhhrf(koun) <= jum3 And arrjmlhhrf(koun) <= jum2 And arrjmlhhrf(koun) <= jum1 Then
jum4 = arrjmlhhrf(koun)
huruf4 = Chr(koun + 65)
prsn4 = " (" & Format((jum4 / kalimat.Length), "##.##" & " %)")
End If
End If
Next
For koun = 0 To 25
huruf = Chr(koun + 65)
If huruf <> huruf1 And huruf <> huruf2 And huruf <> huruf3 And huruf <> huruf4 Then
If arrjmlhhrf(koun) > jum5 And arrjmlhhrf(koun) <= jum4 And arrjmlhhrf(koun) <= jum3 And arrjmlhhrf(koun) <= jum2 And arrjmlhhrf(koun) <= jum1 Then
jum5 = arrjmlhhrf(koun)
huruf5 = Chr(koun + 65)
prsn5 = " (" & Format((jum5 / kalimat.Length), "##.##" & " %)")
End If
End If
Next

Me.rank1.Text = (" " & huruf1 & " = " & jum1 & " char" & prsn1)
Me.rank2.Text = (" " & huruf2 & " = " & jum2 & " char" & prsn2)
Me.rank3.Text = (" " & huruf3 & " = " & jum3 & " char" & prsn3)
Me.rank4.Text = (" " & huruf4 & " = " & jum4 & " char" & prsn4)
Me.rank5.Text = (" " & huruf5 & " = " & jum5 & " char" & prsn5)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Teksinput.Clear()
Me.rank1.Clear()
Me.rank2.Clear()
Me.rank3.Clear()
Me.rank4.Clear()
Me.rank5.Clear()
Me.Button2.Enabled = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button2.Enabled = False
End Sub

Private Sub Teksinput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teksinput.TextChanged
Me.Button2.Enabled = True
End Sub
End Class

Find Name Server, Siapa Pemiliknya? (bag 3)

Pada halaman ini diuraikan mengenai pemilik domain dengan alamat http://www.itb.ac.id. Karena pada hari minggu saya melakukan penelusuran di luar kampus, jadinya tulisan baru lengkap pas hari senin ini. Dengan masih menggunakan tools whois, diperoleh data yang cukup mencengangkan saya...karena banyaknya name server yang ada di bawah naungan ITB. Coba tebak ada berapa?? 200? wah masih 1/4-nya tuh...hehe bayangkan, ada sekitar 800 name server yang terdetek oleh whois. Namun setelah di pilah dan di pilih, sekitar kurang lebih ada 407 name server yang masuk dalam kriteria tugas security.

Name server yang disebutkan di whois itu yakni:
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.

Banyak sekaliiiiii kan..... puiih (mode menghela nafas lagi=on)

kembali ke halaman utama nU~Abdi.