Jump to content

Programsız Klasör Gizlemek/Şifrelemek - Türkçe

gangster94

By gangster94,
in Yazılım

Recommended Posts

gangster94 Newbie

gangster94

Posted
Posted

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ı :

2qnxr3m.jpg

Bat dosyasına tıkladıktan sonra çıkan Lock Klasörüne dosyalarınızı atın :

29gfzg1.jpg

Burda Gizlemek İstiyormusunuz Sorusunu Soruyor... Y Tuşuna Basın

e6rrwy.jpg

Burdada Klasörü Gizledikten Sonra Şifre İsteyen Bölüm

vg3pyq.jpg

************************************************

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

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
isnes Newbie

isnes

Posted
Posted

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
gangster94 Newbie

gangster94

Posted
  • Author
Posted

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
  • 2 hafta sonra ...
shmd Newbie

shmd

Posted
Posted

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
blur Newbie

blur

Posted
Posted

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
  • 2 hafta sonra ...
gangster94 Newbie

gangster94

Posted
  • Author
Posted

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

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...