gangster94 Posted February 10, 2010 Share Posted February 10, 2010 Klasör Şifreleme/Gizlemek - Çeviri gangster94 - TR Arkadaşlar BirÇoğunuz FolderLock Gibi Gereksiz Programlarla Klasör Şifrelemek İÇİN Uğraşırlar .. Artık Yeni Metin Belgesiyle yani CMD ile Klasörleri Gizliyecez ve Şifre Koyacağız ... Tabiki Bu Çok Kolay Bu Arada Koduda Verelim : @ECHO OFF title ******* Gangster94 - Klasor Gizlemek/Sifrelemek - TR Ceviri ******* if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK if NOT EXIST Locker goto MDLOCKER :CONFIRM echo Klasoru Sifre Ile Acilacak Sekilde Gizlemek Istiyormusunuz ? (Y/N) set/p "cho=>" if %cho%==Y goto LOCK if %cho%==y goto LOCK if %cho%==n goto END if %cho%==N goto END echo Invalid choice. goto CONFIRM :LOCK ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" echo Folder locked goto End :UNLOCK echo Gizlenen Klasor Icin Sifreyi Giriniz... set/p "pass=>" if NOT %pass%== gangster94 goto FAIL attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker echo Folder Unlocked successfully goto End :FAIL echo Invalid password goto end :MDLOCKER md Locker echo Locker created successfully goto End :End Not : Şifre gangster94 'dür.. Kendinize Göre Düzenleyin ************************************************* Kodun Çalışması İçin Anlatım : Masaüstüne Gelerek Sağ Tıklayın Yeni Metin Belgesi Oluşturun Yukarıkdai Kodu Kopyalayıp Yapıştırın Sonra Dosya > Farklı Kaydet Butonuna Tıklayın ... Dosya İsmi : Buraya Koyacağınız İsim .bat (Not : .BAT Uzantısını Silmeyin) Kayıt Türü : Tüm Dosyalar Ayarlarını Yapıp Kaydedin ... bat dosyası masaüstünde oluştu .. Bu kadar ben resimleri verdim ama yinede söylim bat dosyasına tıklayın sonra masaüstünde Locker Diye bir klasör açılacak oraya dosyalarınızı koyun farketmez sonra yine bat dosyasına tıklayıp Y tuşuna basıp entere basın Locker Klasörünüz Gözükmeyecek Çünkü Gizlendi .... Naparsanız yapın gözükmez sadece oluşturduğunuz bat dosyasına tıklayıp şifreyi girdikten sonra Locker isimli klasör gözükecektir.... ************************************************** Resimler : Oluşturduğunuz Bat Dosyası : Bat dosyasına tıkladıktan sonra çıkan Lock Klasörüne dosyalarınızı atın : Burda Gizlemek İstiyormusunuz Sorusunu Soruyor... Y Tuşuna Basın Burdada Klasörü Gizledikten Sonra Şifre İsteyen Bölüm ************************************************ Link to comment Share on other sites More sharing options...
gangster94 Posted February 10, 2010 Author Share Posted February 10, 2010 Ben Yapamadım Diyenler İÇİN : Please register to see this content. bat dosyası rar içinde şifre yok tşkler Link to comment Share on other sites More sharing options...
blue_life Posted February 10, 2010 Share Posted February 10, 2010 Paylaşım için teşekkürler... Ama burda şifreleme yok malesef! Sadece yönlendirme var diyebilirim... Aslında bu yöntemi ben çok çok uzun zamandır basit klasörlerim için kullanıyorum. Lakin klasöre isim yazmak yerine desktop.ini den faydalanıyorum.. [.ShellClassInfo] CLSID={20D04FE0-3AEA-1069-A2D8-08002B30309D}[/CODE] vs. gibi...... Link to comment Share on other sites More sharing options...
gangster94 Posted February 10, 2010 Author Share Posted February 10, 2010 sağol bende başka sitede gördüm paylaşim dedim ama şifreleme var yoksa gizli klasör gözükmüyor Link to comment Share on other sites More sharing options...
mersinli25 Posted February 10, 2010 Share Posted February 10, 2010 bunu bende daha önceden kullanıyordum ama sonradan sonraya kod işlevini yitirmeye başladığını gördüm (yani gizlememeye başladı) Link to comment Share on other sites More sharing options...
gangster94 Posted February 10, 2010 Author Share Posted February 10, 2010 arkadaşım sen kodla oynamışsan bozulmuşur öyle bişey olmaz Link to comment Share on other sites More sharing options...
isnes Posted February 10, 2010 Share Posted February 10, 2010 Hemen söliim kesinlikle görünmez diyorsun ama bende görünüyor. Sebebine gelince; makinama bulaşan amwo virüsünü silmek için kullandığım script dosyası sayesinde en görünmez denen dosyalar bile artık görünüyor:D Link to comment Share on other sites More sharing options...
EXPOLIT Posted February 10, 2010 Share Posted February 10, 2010 isnes arkadasım... o zaman sorun sende olmus oluyor... gangster94 arkadasımızın verdıgınde sorun yok... sen windowsla oynamıs sayılıyorsun... Link to comment Share on other sites More sharing options...
gangster94 Posted February 11, 2010 Author Share Posted February 11, 2010 gizli dosyaların gözüküyorsa gizle dediğin halde ammo virüsü bulaşmıştır bunun çözümü vardır ******************** 1-İlk önce yeni metin belgesi aç on Error Resume Next Dim objShell, objFileSystem, objTextStream, objRegex Dim colRegexMatches1, colRegexMatches2 Dim nReturnCode Dim strIpFileText Dim element, i Dim Lista Lista=array("n1de?ect.com","nide?ect.com","nlde?ect.com","j*.bat","m*.com","d*.com","copy.exe","host.exe",_ "a0*.com","ntdeiect.com","ntdelect.com", "u?de*.com","ntde1ect.com", "x*.com", "tio*.*",_ "80*.com","semo*.exe","autorun*.*","x*.exe","yl*.exe","qd*.cmd") Set geekside=WScript.CreateObject("WScript.Shell") Set objShell = WScript.CreateObject("WScript.Shell") Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") Set colDrives = objFSO.Drives Wscript.Echo "Software provided by MyGeekSide.com to remove malicious software amvo, avpo, n1detect y variants" Wscript.Echo "Proccess of search and removing can take some seconds. Please be patient." i=0 For Each objDrive in colDrives If objDrive.IsReady = True Then nret=geekside.Run("cmd /C attrib -s -h -r "&objDrive.DriveLetter&":\autorun.inf",0,TRUE) Set objTextStream = objFileSystem.OpenTextFile(objDrive.DriveLetter&":\autorun.inf",1) strIpFileText = objTextStream.ReadAll objTextStream.Close End If Next Set objRegex = new RegExp objRegex.Pattern = "=\w+(.com|.bat|.exe|.pif|.scr|.svd|.dat|.tmp|.cmd)" objRegex.Global = True objRegex.IgnoreCase = True Set colRegexMatches1 = objRegex.Execute(strIpFileText) i=0 For Each element In colRegexMatches1 element = Replace(element,"=","") WScript.Echo "Proceeding to remove file of virus :" & element For Each objDrive in colDrives If objDrive.IsReady = True Then Wscript.Echo "Clean drive: " & objDrive.DriveLetter nret=geekside.Run("cmd /C taskkill /f /im amvo.exe",0,TRUE) nret=geekside.Run("cmd /C taskkill /f /im avpo.exe",0,TRUE) nret=geekside.Run("cmd /C taskkill /f /im semo2x.exe.tmp",0,TRUE) nret=geekside.Run("cmd /C taskkill /f /im semo2x.exe",0,TRUE) nret=geekside.Run("cmd /C taskkill /f /im help.exe.tmp",0,TRUE) nret=geekside.Run("cmd /C attrib -s -h -r " &objDrive.DriveLetter&":\" & element &"",0,TRUE) nret=geekside.Run("cmd /C cd \ & del "&objDrive.DriveLetter&":\" & element & "/f /q /a",0,TRUE) nret=geekside.Run("cmd /C cd \ & del "&objDrive.DriveLetter&":\autorun.inf",0,TRUE) End If Next i = i + 1 Next Set objRegex= Nothing Set objTextStream = Nothing Set objFileSystem = Nothing Set objShell = Nothing nret15=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\amvo*.*",0,TRUE) nret16=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\avpo*.*",0,TRUE) nret20=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\help.exe.tmp",0,TRUE) nret56=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\semo*.*",0,TRUE) nret60=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\semo*.*.*",0,TRUE) nret23=geekside.Run("cmd /C del /f c:\windows\system32\amvo*.*",0,TRUE) nret24=geekside.Run("cmd /C del /f c:\windows\system32\avpo*.*",0,TRUE) nret57=geekside.Run("cmd /C del /f c:\windows\system32\semo*.*.*",0,TRUE) nret59=geekside.Run("cmd /C del /f c:\windows\system32\semo*.*",0,TRUE) WScript.Echo "Proceeding to restore registry to see Hidden Files" nret31=geekside.Run("cmd /C reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ /v amva /f",0,TRUE) nret32=geekside.Run("cmd /C reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ /v avpo /f",0,TRUE) nret68=geekside.Run("cmd /C reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ /v avpa /f",0,TRUE) nret33=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 1 /f",0,TRUE) nret43=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE) nret44=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE) nret45=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v Hidden /t REG_DWORD /d 1 /f",0,TRUE) nret46=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE) nret47=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE) nret34=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\ /v CheckedValue /t REG_DWORD /d 2 /f",0,TRUE) nret35=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE) nret36=geekside.Run("cmd /C reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\ /v CheckedValue /f",0,TRUE) nret37=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\ /v CheckedValue /t REG_DWORD /d 1 /f",0,TRUE) nret38=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\ /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE) nret39=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\ /v CheckedValue /t REG_DWORD /d 0 /f",0,TRUE) nret40=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\ /v DefaultValue /t REG_DWORD /d 0 /f",0,TRUE) nret48=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\ /v Type /t REG_SZ /d Group /f",0,TRUE) nret61=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE) nret62=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\ /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE) nret63=geekside.Run("cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableRegistryTools /t REG_DWORD /d 0 /f",0,TRUE) nret78=geekside.Run("cmd /C taskkill /f /im explorer.exe",0,TRUE) nret79=geekside.Run("cmd /C start explorer.exe",0,TRUE) nret15=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\amvo*.*",0,TRUE) nret16=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\avpo*.*",0,TRUE) nret20=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\help.exe.tmp",0,TRUE) nret56=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\semo*.*.*",0,TRUE) nret60=geekside.Run("cmd /C attrib -s -h -r c:\windows\system32\semo*.*",0,TRUE) nret23=geekside.Run("cmd /C del /f c:\windows\system32\amvo*.*",0,TRUE) nret24=geekside.Run("cmd /C del /f c:\windows\system32\avpo*.*",0,TRUE) nret57=geekside.Run("cmd /C del /f c:\windows\system32\semo*.*.*",0,TRUE) nret59=geekside.Run("cmd /C del /f c:\windows\system32\semo*.*",0,TRUE) For Each objDrive in colDrives If objDrive.IsReady = True Then For X=0 to UBound(Lista) nret=geekside.Run("cmd /C attrib -s -h -r "&objDrive.DriveLetter&":\"&Lista(X)&"",0,TRUE) nret=geekside.Run("cmd /C cd \ & del "&objDrive.DriveLetter&":\" &Lista(X)& "/f /q /a",0,TRUE) Next End If Next WScript.Echo "Congratulations! Your computer is disinfected of amvo virus and variants" WScript.Echo "www.mygeekside.com" WScript. Quit(0) kodunu yapıştır dosya>farklı kaydet yoluna git ve farklı kaydete bas Dosya İsmi :Kill ammo virüs.vbs Türü : Tüm dosyalar yap kaydet sonra oluşturduğun .vbs script dosyasına tıkla yabancı yazıyor ama sen hep tamama bas C: D: USB takılıysa onu bile tarıyor PC Gidip gelicek bittiğinde mygeekside.com diye bişey yazıcak gizli dosyaların gözükmeye başlıyacak sonra klasör seçeneklerinde gizleye basarsın işte Link to comment Share on other sites More sharing options...
deejay_2006 Posted February 23, 2010 Share Posted February 23, 2010 bişi fakettim yani bir açığı diyebilirm...tam ğüvenilir değil... gizlenecek hedef klasör denetim masası kısa yolu oluyor ya : onun adını herhangi bir isimle değştirildiğinde klasör içeriği görülebiliyor bi deneyin bakalım.... Link to comment Share on other sites More sharing options...
gangster94 Posted February 27, 2010 Author Share Posted February 27, 2010 arkadaşım güvenilir hiçbir sorun yok Link to comment Share on other sites More sharing options...
shmd Posted February 28, 2010 Share Posted February 28, 2010 mesala bu program bir klasör açıyo ve gizliyo ben program ve klasörün bulunduğu klasörü rarlıyorum sonra klasörün içindeki doyaları alabiliryorum.yinede bazı becerikiszler bunu bile düşünemez heralde işe yarar umarım paylaım içiin sağol. Link to comment Share on other sites More sharing options...
blur Posted February 28, 2010 Share Posted February 28, 2010 Başlat>Çalıştır>CMD Yazıp Komut Satırına Şu Komutu Girin: attrib +r +h +s D:\Klasör ismi Enter. Bu Komutu Uygulayınca ismini Yazdığınız Klasör Kaybolacaktır. Tekrar Açmak için: Aynı işlemleri Yapıp Komutu attrib -r -h -s D:\Klasör ismi Olarak Uygulayın.Her Seferinde Komutu Uygulamak Zor Geliyorsa Şu Yolu izleyebilirsiniz.Bilgisayarımı Açıp Dosyayı Gizlediğiniz Diskin içine Girin Yukarda Adres Çubuğuna Disk isminden Sonra Gizlediğiniz Klasörün Adını Yazıp Enter'a Bastığınız Zaman Açılacaktır. Klasör Seçeneklerinden "Gizli Dosya Ve Klasörleri Göster" Seçili Olsa Bile Gizlediğiniz Klasör Görünmez. Link to comment Share on other sites More sharing options...
FİRE BİRD Posted February 28, 2010 Share Posted February 28, 2010 Bat dosyasını not defteri ile açtığımızda şifremiz ortada.... Link to comment Share on other sites More sharing options...
gangster94 Posted March 13, 2010 Author Share Posted March 13, 2010 Arkadaşlar evet bat dosyasını sağ tıkla şifre ortada ama autoıt ile yapılabiliyor İlk önce autoıt indiriyoruz googleden arayın indirin yükleyin sonra masaüstüne gelerek sağ tıklayın yeni autoıt script yazar ona tıklayın oluşan dosyaya sağ tıklayıp edit script diyin ordaki kodları silip if FileExists(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}") then _sifrecoz() EndIf if not FileExists(@scriptdir & "\dvd") then DirCreate(@scriptdir & "\dvd") EndIf $mesaj = MsgBox(4,"Klasör Şifreleme 1.0","Klasoru Sifre Ile Acilacak Sekilde Gizlemek Istiyormusunuz ?") if $mesaj = 6 Then _sifrele() Else Exit EndIf func _sifrele() $sifrebelirle = InputBox("Klasör Şifreleme 1.0","Klasörünüz için bir şifre giriniz:","","*") if @error Then Exit Else $dirmove = DirMove(@scriptdir & "\dvd",@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",0) $setfile = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","+HS",1) if $setfile = 1 and $dirmove = 1 Then MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifreleme başarıyla tamamlandı.") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon","REG_SZ",$sifrebelirle) Else MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.") Exit EndIf EndIf Exit EndFunc func _sifrecoz() $sifresor = InputBox("Klasör Şifreleme 1.0","Gizlenen Klasor Icin Sifreyi Giriniz:","","") if @error Then Exit $sifregetir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\blackman12","Versiyon") if $sifregetir = $sifresor Then $setfile2 = FileSetAttrib(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}","-HS",1) $dirmove2 = DirMove(@scriptdir & "\Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}",@scriptdir & "\dvd",0) if $setfile2 = 1 and $dirmove2 = 1 Then MsgBox(0,"Klasör Şifreleme 1.0","Klasör şifresi başarıyla kaldırıldı.") Else MsgBox(0,"Klasör Şifreleme 1.0","Bir hatayla karşılaşıldı, program kapatılacak.") EndIf Else MsgBox(0,"Klasör Şifreleme 1.0","Yanlış bir şifre girdiniz!") EndIf Exit EndFunc kodunu yapıştırın çıkın onaylayın kaydet deyin yani sonra kaydet dediğimiz scriptie sağ tıklayıp compile script diyin işlem tamam dosyamız masaüntünde zaten ondan sonra türkçe dvd adında bir klasör açılacak oraya dosyalarınızı koyarsınız Link to comment Share on other sites More sharing options...
bilirsinya Posted March 13, 2010 Share Posted March 13, 2010 winrarla dosya açılıyor malesef :S güvenlik pc den anlamayanlar için var diyebiliriz Link to comment Share on other sites More sharing options...
Win-Par Posted March 14, 2010 Share Posted March 14, 2010 Saolasın işe yaradı . Link to comment Share on other sites More sharing options...
samo23 Posted March 14, 2010 Share Posted March 14, 2010 klasör seçeneklerinde gizli dosyaları göster dedinginde dosya başka isinle görünüyor Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.