Sign in to follow this  
Followers 0
RedSkull92

cript

4 posts in this topic

#1 ·  Posted (edited)

Hello, I have a small problem

I wanted to do a script that I read all the files into a folder and can you crypt with the function _stringEncript

I know help?

Thanks :)

Edited by RedSkull92

Share this post


Link to post
Share on other sites



#include 

#include 

#include 



$Form1 = GUICreate("Form1", 322, 438, 297, 131)



$MusicDir = FileSelectFolder("Please select a folder", @HomeDrive)



$ListView1 = GUICtrlCreateListView("Encrypted filenames at " & $MusicDir, 16, 4, 289, 413)



If @error Then Exit



$filesArray = _FileListToArray($MusicDir, "*")



ProgressOn("L|M|TER encrypter", "Encrypting filenames ...", "", -1, -1, 16)



For $i = 1 To $filesArray[0]

$a = _StringEncrypt(1,$filesArray[$i],"testpssword",1)

GUICtrlCreateListViewItem($a, $ListView1)

$percent = Round($i / $filesArray[0] * 100)

ProgressSet($percent, $percent & "% done")

Sleep(100)

Next

ProgressSet(100, "Done")

Sleep(1000)

ProgressOff()



GUISetState(@SW_SHOW)





While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Home-made :)

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Through 1000

Edited by RedSkull92

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0