Пытаюсь переименовать файлы *.rtf в папке test в зашифрованное название (Алгоритмом RC4) и расширением *.protected
Но чет не получается. Помогите разобраться.
Add(MainForm,2953706,98,154)
{
Width=853
Height=455
link(onCreate,7532332:doSearch,[(184,174)(184,209)])
}
Add(FileSearch,7532332,238,203)
{
Ext="*.rtf"
link(onSearch,14529410:doEvent1,[(300,209)(300,174)])
link(Dir,8501104:Text,[(251,181)(258,181)])
}
Add(Edit,8501104,252,126)
{
Left=250
Top=125
Text="C:\\Users\\test"
}
Add(Hub,14529410,329,168)
{
OutCount=6
link(onEvent1,16476483:doValue,[(364,174)(364,139)])
link(onEvent2,12431052:doEnCrypt,[(375,181)(375,244)])
link(onEvent3,9671917:doStrCat,[(357,188)(357,307)])
link(onEvent4,16357333:doMove,[(367,195)(367,370)])
}
Add(Memory,16476483,448,133)
{
}
Add(EnCrypt,12431052,406,238)
{
Key="111"
link(Data,6638517:Var2,[(412,219)(454,219)])
}
Add(StrCat,9671917,371,301)
{
Str2=".protected"
link(onStrCat,11722321:doAdd,[(450,307)(450,335)])
link(Str1,12431052:Result,[(377,285)(412,285)])
}
Add(FileTools,16357333,385,364)
{
link(FileName,6638517:Var1,[(391,187)])
link(NewFileName,9671917:Result,[(398,348)(377,348)])
}
Add(GetDataEx,6638517,448,182)
{
link(Data,16476483:Value,[])
}
Add(Memo,11722321,497,329)
{
Left=5
Top=10
Width=815
Height=360
}