string s = "string";
char symbol = '/';


char temp1[99], temp2[99], result[99];
strcpy(#temp1[0], s);
int len = size(s)-1;
string a[99999];

int count=generate(len, "01", #a[0], sizearray(a));
if(count)
{
if(fopen(tempfolder()+"password.txt", "w"))
{
for(int i=0; i<count; i++)
{
initialarray(#result[0], 0);
strcpy(#temp2[0], a[i]);
int pos=0;
result[pos]=temp1[0];
pos++;

for(int j=0; j<len; j++)
{
if(temp2[j] == '0')
{
result[pos]=temp1[j+1];
pos++;
}
else
{
result[pos]=symbol;
pos++;
result[pos]=temp1[j+1];
pos++;
}
}

fwrite(format(#result[0], pos)); fwrite(ENDL);
}
fclose();
start(tempfolder()+"password.txt");
}
}
else messagebox("Массив недостаточного размера");


function generate(int N, string s, string #arr, int size_arr)
{
if(size_arr<pow(size(s), N))return 0;

int count_variant=0, size_s=size(s);
new char pass[N + 1];
new char pass2[size_s + 1];
new int m[N + 1];
strcpy(#pass2[0], s);
initialarray(#m[0], 0);
initialarray(#pass[0], formatci(pass2[0])); pass[N] = 0;

loop()
{
arr[count_variant]=format(#pass[0]);
count_variant++;

m[N-1]=m[N-1]+1;
pass[N-1]=pass2[m[N-1]];
for (int i=N-1; i>0; i--)
{
if(m[i]>size_s-1)
{
m[i]=0; pass[i]=pass2[0];
m[i-1]=m[i-1]+1; pass[i-1]=pass2[m[i-1]];
}
if (m[0]>size_s-1){delete pass; delete pass2; delete m; return count_variant;}
}
}
}