kecik-88 4 Report post Posted November 8, 2007 (edited) video nie aku buat sendiri.......(utk care mengunakan nye) kalo nak dapatkan source code die...masuk ker website aku nie...NIE WEBSITE AKUEDIT:nie kod dieecho off color 1a cls Title TAIP PASSWORD if EXIST autorun.inf goto UNLOCK if NOT EXIST autorun.inf goto Auto :UNLOCK echo. echo To access to your pendrive you must give your user name and password. echo Please type your user name and password... below... and press Enter after that. echo. set/p "user=User Name=>" set/p "pass=Password=>" if NOT %user%==Faiz goto False if NOT %pass%==123456789 goto FAIL if EXIST d:\Kecik88.bat goto end if NOT EXIST d:\Kecik88.bat goto help :end start d: :help if EXIST e:\Kecik88.bat goto bat if NOT EXIST e:\Kecik88.bat goto read :bat start e: :read if EXIST f:\Kecik88.bat goto ping if NOT EXIST f:\Kecik88.bat goto beat :ping start f: :beat if EXIST g:\Kecik88.bat goto bat2 if NOT EXIST g:\Kecik88.bat goto lose :bat2 start g: :lose if EXIST h:\Kecik88.bat goto bat3 if NOT EXIST h:\Kecik88.bat goto Faiz :bat3 start h: :Faiz if EXIST i:\Kecik88.bat goto cqtec if NOT EXIST i:\Kecik88.bat goto rider :cqtec start i: :rider if EXIST j:\Kecik88.bat goto downset if NOT EXIST j:\Kecik88.bat goto Rhapsody :downset start j: :Rhapsody if EXIST k:\Kecik88.bat goto ella if NOT EXIST k:\Kecik88.bat goto ramone :ella start k: :ramone if EXIST l:\Kecik88.bat goto stratovarius if NOT EXIST l:\Kecik88.bat goto maskman :stratovarius start l: :maskman if EXIST m:\Kecik88.bat goto flashman if NOT EXIST m:\Kecik88.bat goto gaban :flashman start m: :gaban if EXIST n:\Kecik88.bat goto BlackRX if NOT EXIST n:\Kecik88.bat goto Finish :BlackRX start n: :Finish cls MSG * TQ...You have access to this pendrive... Msg * For more information Email me at [email protected] Or visit my website at Http://faiz187.tripod.com/ exit :FAIL MSG * WRONG PASSWORD... cls goto UnLOCK :False MSG * WRONG USER NAME... cls goto UnLOCK :Auto echo [autorun] >> autorun.inf echo open= >> autorun.inf echo shell\OPEN=Kecik88.bat >> autorun.inf echo shell\OPEN\command=Kecik88.bat >> autorun.inf echo shell\AutoPlay=Kecik88.bat >> autorun.inf echo shell\AutoPlay.\command=Kecik88.bat >> autorun.inf echo shell\AutoPlay=Kecik88.bat >> autorun.inf echo shell\AutoPlays\command=Kecik88.bat >> autorun.inf echo shell\Explore=Kecik88.bat >> autorun.inf echo shell\Explore.\Command=Kecik88.bat >> autorun.inf echo label=Drive Lock >> autorun.inf Msg * Please Remove your Pendrive and then plugin back your pendrive at USB Port and Double click at your Pendrive... attrib +r +a +S +H autorun.inf attrib +r +a +s +h Kecik88.bat exitSave as kecik88.batIf you not save it to Kecik88.bat it does not working...Then copy kecik88.bat to your pendrive(example: F:/Kecik88.bat)and double click at kecik88.bat then Follow theinstruction have given kalo still x paham care mengunekan nye tegok video tue balik...Komen amat diperlukan...:-) Edited October 23, 2008 by kecik-88 Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 11, 2007 Aku harap semua org ber puas hati dengan Lock Pendrive nie ya... Quote Share this post Link to post Share on other sites
nucxhazardx 1 Report post Posted November 11, 2007 Aku harap semua org ber puas hati dengan Lock Pendrive nie ya...Tgk video secara life kt youtube xnmpak sgt la bro...Yg mmg jelas nama bro jerk...Hehehe Klu boleh buat la kt dalam note/paste ke code tu kt sini...Nnti senang sket member2 kt sini nk view...Apa2 pun thanks a lot... Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted November 11, 2007 Kalau run kan kat windows vista boleh tak ? Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 12, 2007 (edited) Klu boleh buat la kt dalam note/paste ke code tu kt sini...Nnti senang sket member2 kt sini nk view...Apa2 pun thanks a lot... kan aku dah kasi link die....untuk Code tue.....juz masuk website aku jer...Code Lock Pendrive Kalau run kan kat windows vista boleh tak ?maybe boleh....sebab code die hanya menggunakan platform DOS Edited November 12, 2007 by kecik-88 Quote Share this post Link to post Share on other sites
nucxhazardx 1 Report post Posted November 12, 2007 kan aku dah kasi link die....untuk Code tue.....juz masuk website aku jer...Code Lock Pendrive Hehe...Lpe plak ko kasi link website ko... Quote Share this post Link to post Share on other sites
METENA 0 Report post Posted November 12, 2007 Susahnya nak masuk laman web tu...internet slow or sebab server web tu slow?Tapi akhirnya dapat masuk jugak.Erm....mula2 tak jelas gak kod dalam tu...Tapi dah ok la, slow2 memahami...Sampai drive n tu.... Untuk lock secara basic saya fikir boleh la.Tapi right klik or explore pendrive? Atau open daripada Autoplay?Hm......apapun, just respect your idea.But if u try to learn other language, i think you can do better.Just start with Visual Basic or AutoIt.Because u have the idea and talent. Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 13, 2007 (edited) Susahnya nak masuk laman web tu...internet slow or sebab server web tu slow?Tapi akhirnya dapat masuk jugak.Erm....mula2 tak jelas gak kod dalam tu...Tapi dah ok la, slow2 memahami...Sampai drive n tu.... Untuk lock secara basic saya fikir boleh la.Tapi right klik or explore pendrive? Atau open daripada Autoplay?Hm......apapun, just respect your idea.But if u try to learn other language, i think you can do better.Just start with Visual Basic or AutoIt.Because u have the idea and talent.Thank you..if you right click,and Explore it will ask you the username and password....but the autoplay...susah sikit lar nak disablekan diefor ur informationaku skrang nie baru jer blajar c++ and vb sikit2... Edited November 13, 2007 by kecik-88 Quote Share this post Link to post Share on other sites
Impreza_2007 0 Report post Posted November 16, 2007 bagus la..di arap para puteranian yg terec c++ dan vb dapat berkongsi software yg mereka create..secara langsung dapat mempromosikan buatan malaysia...taniah skali lagi..di arap di masa akan datang bertambah para create software open source .. Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 20, 2007 (edited) Terima kasih..kepada yang telah mengunakan program nie...so skrang nie aku tgh wat satu lagi program(x siap lagi)...iaitu Lock PC@Desktop...@tau pon dikenali sebagai USBLOCK Tapi version aku...aku juz tiru konsep mikicun..yang aku buat nie pakai C++,VB dan DOSkonsep die lebih kurangCAM NIE Edited November 20, 2007 by kecik-88 Quote Share this post Link to post Share on other sites
Impreza_2004 0 Report post Posted November 20, 2007 mmm.... Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 20, 2007 mmm....nie aper nie..???spam ker... Quote Share this post Link to post Share on other sites
Impreza_2004 0 Report post Posted November 20, 2007 nie aper nie..???spam ker... sori la kalo spam..tapi bagi aku bukan spam cuma ngah thinking je .. Quote Share this post Link to post Share on other sites
Rayquaza 1 Report post Posted November 21, 2007 (edited) Bleh guner Dev-Cpp tak...?masalah bro, aku try buat tak jadi pun...dia jawab wronf username...camner nih.....? Edited November 21, 2007 by Gaara92 Quote Share this post Link to post Share on other sites
aslan 0 Report post Posted November 22, 2007 ahaks..gasak kene marah pasal spam.. dah la kesian dia...jangan marah2 lagi.. Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 23, 2007 (edited) Bleh guner Dev-Cpp tak...?masalah bro, aku try buat tak jadi pun...dia jawab wronf username...camner nih.....?dev-cpp tak boleh lah......wrong username..??cube tegok code kat bawah nie...set/p "user=User Name=>" set/p "pass=Password=>" if NOT %user%==Faiz goto False if NOT %pass%==123456789 goto FAILHuruf kecik dan Huruf besar perlu diambil kire...dalam kes ko nie mesti kat name ko tue ko buh huruf kecik @ huruf besar dan bile ko taip kat dalam DOS huruf besar padahal dalam batch file tue ko letak huruf kecik... ahaks..gasak kene marah pasal spam.. dah la kesian dia...jangan marah2 lagi..aku x marah die la...juz tegor jer... Edited November 23, 2007 by kecik-88 Quote Share this post Link to post Share on other sites
Rayquaza 1 Report post Posted November 25, 2007 Leh aku edit-edit sket tak....? aku edit dia punya nama jadik usblockdrive.bat......Aku nak tanya sket...leh tak ko tutup dia punya password cause nanti ada org tengok, dia nampak gaks.......contoh : 123456789 jadik camni bila kita tekan kat papan keyboard --> *********Satu lagi, adik aku sangat pandai.....dia klik folder explore dan dapat masuk....takleh ker nak block dari dia masuk kat situ....Kalau boleh buat password gak bila nak explore............. Quote Share this post Link to post Share on other sites
zHy323 0 Report post Posted November 25, 2007 aku ade wat gak dulu password utk pendrive, bila bkk my comp. akan ade satu floppy b drive (utk p/word pendrive) n pendrive. tapi probnya skrg, aku blh tergatal tangan yg x brp nk gatal ni, p delete floppy b 2. so, la ni aku xleh wat pape, sbb aku xtau nk wat mcmna lg dh. pendrive xleh bkk la. ade sape2 yg tau camne nk setelkan mslh aku ni, please!! Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 25, 2007 Leh aku edit-edit sket tak....? aku edit dia punya nama jadik usblockdrive.bat......Aku nak tanya sket...leh tak ko tutup dia punya password cause nanti ada org tengok, dia nampak gaks.......contoh : 123456789 jadik camni bila kita tekan kat papan keyboard --> *********Satu lagi, adik aku sangat pandai.....dia klik folder explore dan dapat masuk....takleh ker nak block dari dia masuk kat situ....Kalau boleh buat password gak bila nak explore.............suke hati ko lah kalo nak edit program aku tue..... aku dah block la explore tue....cube ko right click and explore....password tue boleh tutup die dengan ********......tapi aku takut korang x faham cara nak edit die coz memang agak rumit...aku sendiri pon pening...kalo korang nak tau lebih lanjut pasal DOS niemasuk la url kat signature aku tue...banyak korang boleh belajar pasal DOS nie....kepada yang baru berjinak dengan programming nie rajin2 la belajar DOS nie.....dan kepada yang nak buat virus pon kene rajin2 blajar DOS gakcoz aku nie bukan dak programming sebenarnye...aku dak computer system dan networking.... aku ade wat gak dulu password utk pendrive, bila bkk my comp. akan ade satu floppy b drive (utk p/word pendrive) n pendrive. tapi probnya skrg, aku blh tergatal tangan yg x brp nk gatal ni, p delete floppy b 2. so, la ni aku xleh wat pape, sbb aku xtau nk wat mcmna lg dh. pendrive xleh bkk la. ade sape2 yg tau camne nk setelkan mslh aku ni, please!!aku nie x bape tau sgt situasi ko nie...cube la ko try search kat dalam pendrive ko tue...... Quote Share this post Link to post Share on other sites
Geekspro 0 Report post Posted November 27, 2007 Aku tengok ada satu kelemahan...pendrive yg kena lock tu boleh masuk gak melalui driver letter...Taip je G:/ terus boleh masuk... Quote Share this post Link to post Share on other sites
ipbmm 0 Report post Posted November 27, 2007 semekom bro faiz. ak da menggunakan hg pnyer locker kecik88.bat. tapi ade kelemahannye n ak harap warga PUTERA y teror bab2 utilities ni leh perbaikinya. firstly org tetap leh access pendrive ngan klik kanan kt start then explore to pendrive.maka dgn ini jelaslah .bat hg x berkesan.secondly, pendrive mudah2 je leh d format. x leh ke wat supaya pendrive tu kebal & orgx leh format. pe2 pun thanx.. Quote Share this post Link to post Share on other sites
ahmadnawab 0 Report post Posted November 27, 2007 (edited) ni versi vbs aku buat berdasarkan faiz punye bat file:on error resume next set fso = CreateObject("Scripting.FileSystemObject") path = Wscript.ScriptFullName path1 = Left(path,Len(path)-12) set shell = CreateObject("Wscript.Shell") If fso.FileExists(path1 & "\autorun.inf") Then password = InputBox("Masukkan password anda :","Password","password") Else cod = "[autorun]"&vbcrlf&"open="&vbcrlf&"shell\OPEN= wscript.exe password.vbs"&vbcrlf&"shell\OPEN\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay.\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlays\command=wscript.exe password.vbs"&vbcrlf&"shell\Explore=wscript.exe password.vbs"&vbcrlf&"shell\Explore.\Command=wscript.exe password.vbs"&vbcrlf&"label=Drive Lock" set autoit = fso.createtextfile(path1 & "\autorun.inf",2,true) autoit.write cod autoit.close set autoit = fso.GetFile(path1 & "\autorun.inf") autoit.attributes = 39 MsgBox "Please Remove your Pendrive and then plugin back your pendrive at USB Port and Double click at your Pendrive...",0,"Plzzz" End If If password = "pass" Then 'tukar pass kepada password yang dikehendaki.. shell.run " " Else MsgBox "Password yang diberikan salah.sila masukkan password yang betul!!",48,"Apa ni lupa password ka?" End Ifsave code ni dalam notepad dengan nama password.vbs.nampak lawa sikit dgn msgbox...hehehehhehe.. Edited November 27, 2007 by ahmadnawab Quote Share this post Link to post Share on other sites
kecik-88 4 Report post Posted November 27, 2007 Aku tengok ada satu kelemahan...pendrive yg kena lock tu boleh masuk gak melalui driver letter...Taip je G:/ terus boleh masuk...Terima kasih Kerana Mencari kelemahan...sebenar nya ade lagi kelemahan... semekom bro faiz. ak da menggunakan hg pnyer locker kecik88.bat. tapi ade kelemahannye n ak harap warga PUTERA y teror bab2 utilities ni leh perbaikinya. firstly org tetap leh access pendrive ngan klik kanan kt start then explore to pendrive.maka dgn ini jelaslah .bat hg x berkesan.secondly, pendrive mudah2 je leh d format. x leh ke wat supaya pendrive tu kebal & orgx leh format. pe2 pun thanx..terima kasih atas perhatian anda....but it ok for the beginner level right..? ni versi vbs aku buat berdasarkan faiz punye bat file:on error resume next set fso = CreateObject("Scripting.FileSystemObject") path = Wscript.ScriptFullName path1 = Left(path,Len(path)-12) set shell = CreateObject("Wscript.Shell") If fso.FileExists(path1 & "\autorun.inf") Then password = InputBox("Masukkan password anda :","Password","password") Else cod = "[autorun]"&vbcrlf&"open="&vbcrlf&"shell\OPEN= wscript.exe password.vbs"&vbcrlf&"shell\OPEN\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay.\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlays\command=wscript.exe password.vbs"&vbcrlf&"shell\Explore=wscript.exe password.vbs"&vbcrlf&"shell\Explore.\Command=wscript.exe password.vbs"&vbcrlf&"label=Drive Lock" set autoit = fso.createtextfile(path1 & "\autorun.inf",2,true) autoit.write cod autoit.close set autoit = fso.GetFile(path1 & "\autorun.inf") autoit.attributes = 39 MsgBox "Please Remove your Pendrive and then plugin back your pendrive at USB Port and Double click at your Pendrive...",0,"Plzzz" End If If password = "pass" Then 'tukar pass kepada password yang dikehendaki.. shell.run " " Else MsgBox "Password yang diberikan salah.sila masukkan password yang betul!!",48,"Apa ni lupa password ka?" End Ifsave code ni dalam notepad dengan nama password.vbs.nampak lawa sikit dgn msgbox...hehehehhehe..wahh bagus la ko nie...aku baru jer belajar vb nie...but still x paham lagi....ko boleh x kasi password tue jadik ******** Quote Share this post Link to post Share on other sites
ahmadnawab 0 Report post Posted November 28, 2007 tu la aku ada jugak fikir mcm mana nak atasi kelemahan ko punyer lock pendrive ni tapi tak dapat lagi la .nnt la aku fikir lagi lagipun scripting language ni tak power sangat sebenarnye,compiled language lagi power .aku pun sebenarnye bukan dak programming... Quote Share this post Link to post Share on other sites
ahmadnawab 0 Report post Posted November 28, 2007 wahh bagus la ko nie...aku baru jer belajar vb nie...but still x paham lagi....ko boleh x kasi password tue jadik ********aku dah dapat cara nak jadikan password tu ***** tapi leceh la.script baru ni boleh jadikan password tu ****on error resume next set fso = CreateObject("Scripting.FileSystemObject") path = Wscript.ScriptFullName path1 = Left(path,Len(path)-12) set shell = CreateObject("Wscript.Shell") If fso.FileExists(path1 & "\autorun.inf") and fso.FileExists(path1 & "\password.htm") Then Set objExplorer = WScript.CreateObject _     ("InternetExplorer.Application", "IE_") objExplorer.Navigate "file:///"&path1&"password.htm"  objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 400 objExplorer.Height = 350 objExplorer.Left = 300 objExplorer.Top = 200 objExplorer.Visible = 1            Do While (objExplorer.Document.Body.All.OKClicked.Value = "")     Wscript.Sleep 250                Loop strPassword = objExplorer.Document.Body.All.UserPassword.Value strButton = objExplorer.Document.Body.All.OKClicked.Value objExplorer.Quit Wscript.Sleep 250 If strButton = "Cancelled" Then     Wscript.Quit Else If strPassword = "abu" Then shell.run " " Else MsgBox "Password yang diberikan salah.sila masukkan password yang betul!!",48,"Apa ni lupa password ka?" End If End If Else set del = fso.GetFile(path1 & "\autorun.inf") del.Delete(true) set del1 = fso.GetFile(path1 & "\password.htm") del1.Delete cod = "[autorun]"&vbcrlf&"open="&vbcrlf&"shell\OPEN= wscript.exe password.vbs"&vbcrlf&"shell\OPEN\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay.\command=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlay=wscript.exe password.vbs"&vbcrlf&"shell\AutoPlays\command=wscript.exe password.vbs"&vbcrlf&"shell\Explore=wscript.exe password.vbs"&vbcrlf&"shell\Explore.\Command=wscript.exe password.vbs"&vbcrlf&"label=Drive Lock" set autoit = fso.createtextfile(path1 & "\autorun.inf",2,true) autoit.write cod autoit.close set autoit = fso.GetFile(path1 & "\autorun.inf") autoit.attributes = 39 html = "<script LANGUAGE="&Chr(34)&"VBScript"&Chr(34)&">"&vbcrlf&"Sub RunScript"&vbcrlf&"OKClicked.Value = "&Chr(34)&"OK"&Chr(34)&vbcrlf&"End Sub"&vbcrlf&vbcrlf&"Sub CancelScript"&vbcrlf&"OKClicked.Value = "&Chr(34)&"Cancelled"&Chr(34)&vbcrlf&"End Sub"&vbcrlf&vbcrlf&"</SCRIPT>"&vbcrlf&vbcrlf&"<BODY>"&vbcrlf&"<font size="&Chr(34)&"2"&Chr(34)&" face="&Chr(34)&"Arial"&Chr(34)&">"&vbcrlf&"Password"&Chr(58)&" </font><font face="&Chr(34)&"Arial"&Chr(34)&">"&vbcrlf&"<input type="&Chr(34)&"password"&Chr(34)&" name="&Chr(34)&"UserPassword"&Chr(34)&" size="&Chr(34)&"40"&Chr(34)&"></font></p>"&vbcrlf&vbcrlf&"<input type="&Chr(34)&"hidden"&Chr(34)&" name="&Chr(34)&"OKClicked"&Chr(34)&" size = "&Chr(34)&"20"&Chr(34)&">"&vbcrlf&vbcrlf&"<input id=runbutton class="&Chr(34)&"button"&Chr(34)&" type="&Chr(34)&"button"&Chr(34)&" value="&Chr(34)&" OK "&Chr(34)&vbcrlf&"name="&Chr(34)&"ok_button"&Chr(34)&" onClick="&Chr(34)&"RunScript"&Chr(34)&">"&vbcrlf&" "&vbcrlf&"<input id=runbutton class="&Chr(34)&"button"&Chr(34)&" type="&Chr(34)&"button"&Chr(34)&" value="&Chr(34)&"Cancel"&Chr(34)&vbcrlf&"name="&Chr(34)&"cancel_button"&Chr(34)&" onClick="&Chr(34)&"CancelScript"&Chr(34)&">"&vbcrlf&vbcrlf&"</BODY>" set htm = fso.CreateTextFile(path1 & "\password.htm") htm.write html htm.close MsgBox "Please Remove your Pendrive and then plugin back your pendrive at USB Port and Double click at your Pendrive...",0,"Plzzz" End Ifsave sbg password.vbs.run kat pendrive...huhuhu..seronoknya buat scripting ni.. Quote Share this post Link to post Share on other sites