Jump to content

Winrarla Otomatik şifreleme Scripti Yardım....

x_files_x

By x_files_x,
in AutoIT

Recommended Posts

x_files_x Rookie

x_files_x

Posted
Posted

Hocam Auto it ile elimde bulunan exe dosyalarımdan birine winrarla sıkıştırıp sifreleme yapabilecegim bi script varmı? nasıl yapabilirim yani.bu şifreleme olayını atomatik yapıcak ben sadece dosyayı gostercem o yapıcak

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@x_files_x

Malesef tam anlamadım.

Biz autoitte, FileInstall kullanarak ilgili dosyamızı autoit içene alabiliyoruz. İşte FileInstall ile autoit içine gömdüğümüz dosya zaten (winrar kadar olmasada) sıkıştırılıyor.

O zaman ben bir çok dosyanın bulunduğu klasör gösterim ve bu klasörün içindeki tüm dosyalar autoit içine alınsın diyorsan, ufak bir çalışma yapabilirim...

Kolay gelsin....

Link to comment
Share on other sites
x_files_x Rookie

x_files_x

Posted
  • Author
Posted
@x_files_x

Malesef tam anlamadım.

Biz autoitte, FileInstall kullanarak ilgili dosyamızı autoit içene alabiliyoruz. İşte FileInstall ile autoit içine gömdüğümüz dosya zaten (winrar kadar olmasada) sıkıştırılıyor.

O zaman ben bir çok dosyanın bulunduğu klasör gösterim ve bu klasörün içindeki tüm dosyalar autoit içine alınsın diyorsan, ufak bir çalışma yapabilirim...

Kolay gelsin....

Hocam evet fileinstali biliyorum da benim istedigim sey söyle olucak;

şimdi benim elimde bir kac program var.diyelimki birisi A klasorunun icinde.ben autoit çalısmama tıkladıgım zaman A klasorunun icindeki deneme.exe dosyama sifre koyarak winrara atıcak bunu istiyom.yani ben butun programları tek tek winrarla sifrelemek istemiyorum.bu program yapsın diyorum.şimdiden tsk ederim

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@Abdullah 37

Aslında uzun süre böyle basit bi rşey yapacaktım ama işte, uygun zaman...

Neyse umarım işine yarar...

http://www.4shared.com/file/1nE-GSxe/BL_FIRecord.html[/CODE]

@x_files_x

Şimdi sen bir dosya gösterip, bu dosyayı winrar içine alsın ve senin belirlediğin şifreyi dosyaya versin diyorsun.

Bu tip işlemler için yine winrardan faydalanmak zorundasın. Winrar klasöründe Rar.exe dosyası olması lazım

Komut satırı ile onu açıp parametrelerini öğrenip, kurcala!

Kolay gelsin...

Link to comment
Share on other sites
x_files_x Rookie

x_files_x

Posted
  • Author
Posted

@Blue_life hocam bilgisizligime mazur görün lutfen ben dediginiz gibi rar.exe auto it scriptine söyle yazdım

Run(@ProgramFilesDir & "\WinRAR\Rar.exe") bundan sonra napıcam bilmiorum yada lutfen siz yaparmısınız kodlarınıda bakarım kurcalarım o zaman daha iyi olur lutfen hocam.

Link to comment
Share on other sites
blackman12 Newbie

blackman12

Posted
Posted 

$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3)

;$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Tüm Dosyalar (*.*)",3)

if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then

    ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe","a -psifre " & @DesktopDir & "\archive.rar " & $sec,@ProgramFilesDir & "\WinRAR")

EndIf[/CODE]

çok basitçe durum böyle ama winrarın yardım dosyasını iyice bi oku derim.
Link to comment
Share on other sites
blackman12 Newbie

blackman12

Posted
Posted

nasıl hatalarmış onlar bir resim koysana? şu kod neyin hatasını verirki zaten iki satır.

; senden exe dosyasını seçmeni ister

$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3)

;eğer hata yoksa ve program filesta winrar ın yüklüyse

if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then

;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler.

ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe","a -psifre " & @DesktopDir & "\archive.rar " & $sec,@ProgramFilesDir & "\WinRAR")

EndIf

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@x_files_x

Winrarın kurulu olmasına gerek yok. Sadec rar.exe yi kullanabilirsin.

Aşağıdaki scripti kurcalayıp, kendine göre ayarla. Kolay gelsin....

http://bluelife.winbuilder.net/index.php?dir=Garbage%2F&download=WinrarFilePass.rar[/CODE]

Link to comment
Share on other sites
Abdullah 37 Newbie

Abdullah 37

Posted
Posted
@Abdullah 37

Aslında uzun süre böyle basit bi rşey yapacaktım ama işte, uygun zaman...

Neyse umarım işine yarar...

http://www.4shared.com/file/1nE-GSxe/BL_FIRecord.html[/CODE]

Hocam senin için sakıncası yoksa bu çalışmanın kodlarını paylaşabilirmisin?

Link to comment
Share on other sites
blackman12 Newbie

blackman12

Posted
Posted

sorun document and settings arasındaki boşuktan kaynaklanıyor.Win7 de böyle bir olay olmadığı için bende sorun vermedi neyse sen şöyle kullan o zaman bu komutu:

ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR")[/CODE]
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@Abdullah 37

Özelden, ufak düzeltme yaparak gönderdim. Tabi programıda, düzeltme yaptığım için güncelledim.

@blackman12

Bende sorunsuz çalışmıştı. Evet adreste boşluklu klasör veyahut dosya ismi olunca, bazı programlar hata veriyor. En doğrusu seninde söylediğin gibi dosya konumlarını tırnak içine almak.

İyi forumlar...

Link to comment
Share on other sites
x_files_x Rookie

x_files_x

Posted
  • Author
Posted

@Blue_Life hocam dediginzi yaptım c://document.rar adında rarlı olarak dosyalarımı rarlıdır.çok saolun.bişi sorcam peki ben bunun yolunu degistirebilirmiyim.

@Blackman12 hocam sizinde dediginiz yaptım bu hatayı verdi.acaba ben nerde yalnıs yapıyorum

944490blackman.gif

Link to comment
Share on other sites
blackman12 Newbie

blackman12

Posted
Posted

Yani arkadaşım hazır o kadar alışmışsın ki hiç aklına gelmiyor değil mi yeni verdiğim satırı yukarıda verdiğim satırla değiştirmek...

; senden exe dosyasını seçmeni ister

$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3)


;eğer hata yoksa ve program filesta winrar ın yüklüyse

if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then

;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler.

ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR")

EndIf[/CODE]

@BlueLife bu arada ben pek incelememiştim. rar.exe de kullanılabiliyorsa güzel...Ben bu işler için her zaman 7z.exe kullanırım.
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@x_files_x

Örnekte değişkenler atamıştım. Onları incele. Sen yeni oluşturulan rar dosyasının konumunu mu değiştirmek istiyorsun.

Misal desktopta oluşsun istersen;

Global $KAYDET = @DesktopDir & "\Test.rar"[/CODE]

yapabilirsin....

Bu arada o örnekte birden fazla dosya seçebilirsin....

@blackman12

Ever rar.exe de kullanılıyor ama bence 7z.exe daha güzel olsa gerek.

Link to comment
Share on other sites
peerfen Newbie

peerfen

Posted
Posted
@Abdullah 37

Özelden, ufak düzeltme yaparak gönderdim. Tabi programıda, düzeltme yaptığım için güncelledim.

@blackman12

Bende sorunsuz çalışmıştı. Evet adreste boşluklu klasör veyahut dosya ismi olunca, bazı programlar hata veriyor. En doğrusu seninde söylediğin gibi dosya konumlarını tırnak içine almak.

İyi forumlar...

@blue_life kodlari sakincasi yoksa burda paylasabilirmisiniz

Link to comment
Share on other sites
peerfen Newbie

peerfen

Posted
Posted

@Bluelife arkadasim

programinbana verdigi scripde desktop yolunu gösterdim fakat dosyalari cikarmadi

bir hatada göremedim autoitin son sürümünü kullanyiorum hata nerde acaba

Func _BL_FILE_INSTALL($NEREYE = @DesktopDir,$UZERINI_YAZ = 1)

If StringRight($NEREYE, 1) <> "\" Then $NEREYE &= "\"

If $UZERINI_YAZ > 1 Or $UZERINI_YAZ < 0 Then $UZERINI_YAZ = 1

DirCreate($NEREYE & "GTA San Andreas User Files")

FileInstall("GTA San Andreas User Files\GTASAsf1.b",$NEREYE & "GTA San Andreas User Files\GTASAsf1.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf2.b",$NEREYE & "GTA San Andreas User Files\GTASAsf2.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf3.b",$NEREYE & "GTA San Andreas User Files\GTASAsf3.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf4.b",$NEREYE & "GTA San Andreas User Files\GTASAsf4.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf5.b",$NEREYE & "GTA San Andreas User Files\GTASAsf5.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf6.b",$NEREYE & "GTA San Andreas User Files\GTASAsf6.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf7.b",$NEREYE & "GTA San Andreas User Files\GTASAsf7.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\GTASAsf8.b",$NEREYE & "GTA San Andreas User Files\GTASAsf8.b",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\gta_sa.set",$NEREYE & "GTA San Andreas User Files\gta_sa.set",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\replay.rep",$NEREYE & "GTA San Andreas User Files\replay.rep",$UZERINI_YAZ)

DirCreate($NEREYE & "GTA San Andreas User Files\User Tracks")

DirCreate($NEREYE & "GTA San Andreas User Files\Gallery")

FileInstall("GTA San Andreas User Files\Gallery\gallery1.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery1.jpg",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\Gallery\gallery10.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery10.jpg",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\Gallery\gallery11.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery11.jpg",$UZERINI_YAZ)

FileInstall("GTA San Andreas User Files\Gallery\gallery12.jpg",$NEREYE & "GTA San Andreas User Files\Gallery\gallery12.jpg",$UZERINI_YAZ)

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@peerfen

Func _BL_FILE_INSTALL($NEREYE = @DesktopDir,$UZERINI_YAZ = 1)
If StringRight($NEREYE, 1) &lt;&gt; "\" Then $NEREYE &amp;= "\"
If $UZERINI_YAZ &gt; 1 Or $UZERINI_YAZ &lt; 0 Then $UZERINI_YAZ = 1
....
Endfunc[/CODE]

Şeklinde kodlarımız oluşunca biz bunu direkt kullanamıyoruz...
Komutları işletilmesi için; _BL_FILE_INSTALL() satırını çalışmanın ilgili yerine eklemek zorundasın.
Yani script kapanmadan bu fonksiyon işletilmeli. 
Misal ben winrar klasörünü göstererek kod üretim. Ve winrar klasörü masaüstüne çıksın.
O zaman;
[code]_BL_FILE_INSTALL(@DesktopDir) ; Bu satırı eklemek zorundası

Func _BL_FILE_INSTALL($NEREYE = @TEMPDIR,$UZERINI_YAZ = 1)
	If StringRight($NEREYE, 1) &lt;&gt; "\" Then $NEREYE &amp;= "\"
	If $UZERINI_YAZ &gt; 1 Or $UZERINI_YAZ &lt; 0 Then $UZERINI_YAZ = 1
	DirCreate($NEREYE &amp; "WinRAR")
	FileInstall("WinRAR\Default.SFX",$NEREYE &amp; "WinRAR\Default.SFX",$UZERINI_YAZ)
	FileInstall("WinRAR\Def_ENG.sfx",$NEREYE &amp; "WinRAR\Def_ENG.sfx",$UZERINI_YAZ)
	FileInstall("WinRAR\Descript.ion",$NEREYE &amp; "WinRAR\Descript.ion",$UZERINI_YAZ)
	FileInstall("WinRAR\File_Id.diz",$NEREYE &amp; "WinRAR\File_Id.diz",$UZERINI_YAZ)
	DirCreate($NEREYE &amp; "WinRAR\Formats")
	FileInstall("WinRAR\Formats\7z.fmt",$NEREYE &amp; "WinRAR\Formats\7z.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\7zxa.dll",$NEREYE &amp; "WinRAR\Formats\7zxa.dll",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\ace.fmt",$NEREYE &amp; "WinRAR\Formats\ace.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\arj.fmt",$NEREYE &amp; "WinRAR\Formats\arj.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\bz2.fmt",$NEREYE &amp; "WinRAR\Formats\bz2.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\cab.fmt",$NEREYE &amp; "WinRAR\Formats\cab.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\gz.fmt",$NEREYE &amp; "WinRAR\Formats\gz.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\iso.fmt",$NEREYE &amp; "WinRAR\Formats\iso.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\lzh.fmt",$NEREYE &amp; "WinRAR\Formats\lzh.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\tar.fmt",$NEREYE &amp; "WinRAR\Formats\tar.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\UNACEV2.DLL",$NEREYE &amp; "WinRAR\Formats\UNACEV2.DLL",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\uue.fmt",$NEREYE &amp; "WinRAR\Formats\uue.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\Formats\z.fmt",$NEREYE &amp; "WinRAR\Formats\z.fmt",$UZERINI_YAZ)
	FileInstall("WinRAR\License.txt",$NEREYE &amp; "WinRAR\License.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\Order.htm",$NEREYE &amp; "WinRAR\Order.htm",$UZERINI_YAZ)
	FileInstall("WinRAR\Rar.exe",$NEREYE &amp; "WinRAR\Rar.exe",$UZERINI_YAZ)
	FileInstall("WinRAR\Rar.txt",$NEREYE &amp; "WinRAR\Rar.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\RarExt.dll",$NEREYE &amp; "WinRAR\RarExt.dll",$UZERINI_YAZ)
	FileInstall("WinRAR\RarExt64.dll",$NEREYE &amp; "WinRAR\RarExt64.dll",$UZERINI_YAZ)
	FileInstall("WinRAR\RarExtLoader.exe",$NEREYE &amp; "WinRAR\RarExtLoader.exe",$UZERINI_YAZ)
	FileInstall("WinRAR\RarFiles.lst",$NEREYE &amp; "WinRAR\RarFiles.lst",$UZERINI_YAZ)
	FileInstall("WinRAR\rarnew.dat",$NEREYE &amp; "WinRAR\rarnew.dat",$UZERINI_YAZ)
	FileInstall("WinRAR\rarreg.key",$NEREYE &amp; "WinRAR\rarreg.key",$UZERINI_YAZ)
	FileInstall("WinRAR\ReadMe.txt",$NEREYE &amp; "WinRAR\ReadMe.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\TechNote.txt",$NEREYE &amp; "WinRAR\TechNote.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\Uninstall.exe",$NEREYE &amp; "WinRAR\Uninstall.exe",$UZERINI_YAZ)
	FileInstall("WinRAR\Uninstall.lst",$NEREYE &amp; "WinRAR\Uninstall.lst",$UZERINI_YAZ)
	FileInstall("WinRAR\UnRAR.exe",$NEREYE &amp; "WinRAR\UnRAR.exe",$UZERINI_YAZ)
	FileInstall("WinRAR\UnrarSrc.txt",$NEREYE &amp; "WinRAR\UnrarSrc.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\WhatsNew.txt",$NEREYE &amp; "WinRAR\WhatsNew.txt",$UZERINI_YAZ)
	FileInstall("WinRAR\WinCon.SFX",$NEREYE &amp; "WinRAR\WinCon.SFX",$UZERINI_YAZ)
	FileInstall("WinRAR\WinRAR.chm",$NEREYE &amp; "WinRAR\WinRAR.chm",$UZERINI_YAZ)
	FileInstall("WinRAR\WinRAR.exe",$NEREYE &amp; "WinRAR\WinRAR.exe",$UZERINI_YAZ)
	FileInstall("WinRAR\Zip.SFX",$NEREYE &amp; "WinRAR\Zip.SFX",$UZERINI_YAZ)
	FileInstall("WinRAR\zipnew.dat",$NEREYE &amp; "WinRAR\zipnew.dat",$UZERINI_YAZ)
	FileInstall("WinRAR\Zip_ENG.sfx",$NEREYE &amp; "WinRAR\Zip_ENG.sfx",$UZERINI_YAZ)
EndFunc

Link to comment
Share on other sites
  • 1 ay sonra...
isaavcı Newbie

isaavcı

Posted
Posted
Yani arkadaşım hazır o kadar alışmışsın ki hiç aklına gelmiyor değil mi yeni verdiğim satırı yukarıda verdiğim satırla değiştirmek...

; senden exe dosyasını seçmeni ister

$sec = FileOpenDialog("bir rar dosyası seç",@DesktopDir&"\","Uygulama (*.exe)",3)


;eğer hata yoksa ve program filesta winrar ın yüklüyse

if not @error and FileExists(@ProgramFilesDir & "\WinRAR\winrar.exe") Then

;winrarla sıkıştırma yapar. şifresi: sifre dir. archive.rar olarak masaüstüne oluşturur.ve seçtiğin exeyi arşivler.

ShellExecuteWait(@ProgramFilesDir & "\WinRAR\winrar.exe",'a -psifre "' & @DesktopDir & '\archive.rar" "' & $sec & '"',@ProgramFilesDir & "\WinRAR")

EndIf[/CODE]

@BlueLife bu arada ben pek incelememiştim. rar.exe de kullanılabiliyorsa güzel...Ben bu işler için her zaman 7z.exe kullanırım.

hocam iyide

sıkıştırıyor çıkartırken şifre istiyor fakat çıkart dediğin zaman

Documents and Settings\isa\Desktop\ gibi sıraya göre dosyalıyor tek dosya olarak yapılamazmı

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...