439389_it-IT

liliconcom

Crittografia Decrittografia con Powershell

Sto cercando di crittografare un elenco di JSL validi utilizzando runprogram/powershell.È importante che questa sia solo una singola chiamata a PowerShell a causa delle prestazioni.Pensavo di averlo funzionato, ma mi sono reso conto che le virgolette singole o doppie mi incasinano quando sono elenchi nidificati.  

Inoltre, NON posso scrivere su un file e farlo leggere a PowerShell.funziona alla grande, non è permesso farlo però.Penso di essere appena rotto per la fuga di JSL e C e Powershell.

 

Names default to here(1);
encryption_key = J(16, 1, randominteger(0, 255));
unencrypted_input = {"Fa'ke\!"", {Empty(), "Str'\!"ing"}}; // this one breaks me
unencrypted_input = {"Fake", {Empty(), "String"}}; // this one is fine

print("encryptng");
init_str = "@("; // creating a powershell array
for(i=1, i<=nitems(unencrypted_input), i++, 
 if(i!=1, init_str ||= ", ");
 item = unencrypted_input[i];
 // for encrypt we want to put it in quotes so we can pull it out later so we can parse;
 if( isstring(item), item = "\!""||char(item)||"\!"");
 // because of the way runprogram works we have to C escape the quotes as well 
 init_str ||= "\\!""||substitute(char(item), "\!"", "'")||"\\!"";
);
init_str ||= ")";

exec_str = init_str || " | ConvertTo-SecureString -AsPlainText -Force"
 || " | ConvertFrom-SecureString -Key " || Substitute(char(encryption_key), "[", "(", "]", ")");

write("\!n"||exec_str);
rp = Run Program(
 Executable("powershell"), 
 Options(exec_str), 
 ReadFunction("text")
);
print("");
show(rp);

encrypted_list = words(rp, "\!n\!r");

print("decrypting");
// now to decrypt
init_str = "@("; // creating a powershell array
for(i=1, i<=nitems(encrypted_list), i++, 
 if(i!=1, init_str ||= ", ");
 item = encrypted_list[i];
 // because of the way runprogram works we have to C escape the quotes as well 
 init_str ||= "\\!""||substitute(char(item), "\!"", "'")||"\\!"";
);
init_str ||= ")";

exec_str = init_str || " | ConvertTo-SecureString -Key " || Substitute(char(encryption_key), "[", "(", "]", ")")
 || " | ForEach-Object {"// doing this in a loop in case of multiple lines
 || "$BSTR = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($_);"
 || "[System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)}";
 
write("\!n"||exec_str);
rp = Run Program(
 Executable("powershell"), 
 Options(exec_str), 
 ReadFunction("text")
);
print("");
show(rp);
dec_list = Words(rp, "\!n\!r");
for(i=1, i<=nitems(dec_list), i++, 
 r = substitute(dec_list[i], "'", "\!"");
 r = parse(r); // parse it because we wrapped everything
 dec_list[i] = r;
);

show(dec_list, unencrypted_input);
show(dec_list == unencrypted_input);

ScriptingRe: Crittografia Decrittografia con Powershell

Penso che il punto cruciale sia andare da/verso un array PowerShell.  

 

Forse questo rende le cose più facili da capire

 

 

Names default to here(1);
//unencrypted_input = {"Fa'ke\!"", {Empty(), "Str'\!"ing"}}; // this one breaks me
unencrypted_input = {"Fake", {Empty(), "String"}}; // this one is fine
to_pwsh_array = function({input, wrap_string = 1}, 
 // wrap string because the inputs for decrypt aren't valid JSL so we don't want to wrap those
 {DEFAULT LOCAL}, 
 init_str = "@("; // creating a powershell array
 for(i=1, i<=nitems(input), i++, 
  if(i!=1, init_str ||= ", ");
  item = input[i];
  // for encrypt we want to put it in quotes so we can pull it out later so we can parse;
  if( wrap_string & isstring(item), item = "\!""||char(item)||"\!"");
  // because of the way runprogram works we have to C escape the quotes as well 
  init_str ||= "\\!""||substitute(char(item), "\!"", "'")||"\\!"";
 );
 init_str ||= ")";
);
from_pwsh_array = function({input}, 
 final_list = Words(input, "\!n\!r");
 for(i=1, i<=nitems(final_list), i++, 
  r = substitute(final_list[i], "'", "\!"");
  r = parse(r); // parse it because we wrapped everything
  final_list[i] = r;
 );
 return(final_list);
);

rp = Run Program(
 Executable("powershell"), 
 Options(to_pwsh_array(unencrypted_input)), 
 ReadFunction("text")
);

out = from_pwsh_array(rp);

show(out == unencrypted_input);

Re: Crittografia Decrittografia con Powershell

Potresti sostituire le virgolette in JSL con qualcosa che non include una citazione e quindi sostituirle nuovamente all'interno di PowerShell usando la sostituzione?

Re: Crittografia Decrittografia con Powershell

Ho provato a farlo con [quote], ma non sono riuscito a farlo funzionare a causa del modo in cui funziona char (elenco contenente stringhe).Non riesco a convincere PowerShell a restituirmi le virgolette, rimuove semplicemente le virgolette, quindi quando lo reinserisco (se ha anche virgolette all'interno), rovina l'analisi.Potrei forse creare una funzione ricorsiva con profondità in modo che entri e trasformi tutte le cose in ciò di cui ho bisogno, quindi avvolgi solo il livello superiore.Se questo ha un senso.  

 

Names default to here(1);
ll = {"Fak'e\!"", {Empty(), "Str'\!"ing"}};
char(ll); // "{\!"Fak'e\!\!\!"\!", {Empty(), \!"Str'\!\!\!"ing\!"}}"