439389_es-ES

liliconcom

Cifrar Descifrar con Powershell

Estoy tratando de cifrar una lista de JSL válido usando runprogram / powershell.Es importante que esta sea solo una llamada a powershell debido al rendimiento.Pensé que lo tenía funcionando, pero me di cuenta de que las comillas simples o dobles me estropean cuando son listas anidadas.  

Además, NO puedo escribir en un archivo y hacer que PowerShell lo lea.funciona muy bien, aunque no se le permite hacerlo.Creo que estoy roto por el escape de JSL y C y 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: cifrar descifrar con Powershell

Creo que el quid es ir hacia / desde una matriz de PowerShell.  

 

Quizás esto hace que las cosas sean más fáciles de entender

 

 

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);