Ijust would like to know if the fact that i can not calculate an imagem properly is because these files are considered untrusted if so how can convert them into a trusted file , maybe this why it is not working... i was warned by the community rules not to place the lines of the codes so if you need them to anwer my question please ask and i will post it ....

* Abrir uma caixa de entrada para nomear o grupo de arquivos *)
nomeGrupo = InputString["Digite o nome do grupo de arquivos:"];

(* Abrir uma caixa de entrada para nomear a pasta *)
nomePasta = InputString["Digite o nome da pasta na área de trabalho:"];

(* Determinar o caminho da área de trabalho *)
caminhoDesktop = FileNameJoin[{Environment["USERPROFILE"], "Desktop", nomePasta}];

(* Criar a pasta, se não existir *)
If[!DirectoryQ[caminhoDesktop], CreateDirectory[caminhoDesktop]];

(* Restaurar variáveis importantes se já existirem *)
arquivoSalvo = FileNameJoin[{caminhoDesktop, "variaveisSalvas.mx"}];
If[FileExistsQ[arquivoSalvo],
  Get[arquivoSalvo];
  Print["Variáveis restauradas com sucesso!"];
];

(* Importando os arquivos *)
gh = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_gh.txt"]];
zeros = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_zeros.txt"]];
final = Import[caminhoDesktop <> "/" <> nomeGrupo <> "_final.txt"];
zerosverdadeiros = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_zerosverdadeiros.txt"]];
ii2 = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_ii2.txt"]];
ii3 = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_ii3.txt"]];
ii4 = ToExpression[Import[caminhoDesktop <> "/" <> nomeGrupo <> "_ii4.txt"]];

(* Agora, vamos recompor a imagem usando os dados importados *)
jet4 = Import["zeros.txt"];
jet = zeros;
jotit = final;
minus = Import["zerosverdadeiros.txt"];
minus1 = zerosverdadeiros;
let2 = jet;
gt = let2 - minus1;
let22 = let2 - gt;
let2 = ToExpression[let22];
jotitvv3 = StringJoin["1", StringJoin[Table["0", {let2}]], jotit];
vvv = ToString[jotitvv3];
ee3 = ToExpression[vvv];
ii31 = Import["ii3.txt"];
ii3 = ii3;
ii41 = Import["ii4.txt"];
ii4 = ii4;
ii21 = Import["ii2.txt"];
ii2 = ii2;
hh = gh;
hh2 = ToExpression[hh];
ee3 = dd;
question = {x} /. Solve[(ii2*ii3*x + ii4)/(ii2*ii3*x) == dd, x];
N[%];
send = ii2*ii3*question + ii4;
send2 = Flatten[send];
send3 = Flatten[send2];
answer = DecimalForm[send3];
a = {x1} /. Solve[(ii2*ii3*x1 + ii4)/(ii2*ii3*x1) == dd, x1];
dd = ee3;
letters = (ii2*ii3*a)*dd;
letters1 = ToString[letters];
(*digits = IntegerDigits[letters, 256];
digits2 = Flatten[digits];
gh = hh2;
hj = Take[%, -1];
bb = Partition[digits2, 4];(*
*)bg = Partition[bb, hj];
image = Image[bg, "Byte", ColorSpace -> "RGB", ImageSize -> gh];
img = image
labImg = ColorConvert[img, "LAB"];
Export["C:\\Users\\Felipe\\Desktop\\img.png", img];*)

(* Salvar todas as variáveis importantes para a próxima execução *)
DumpSave[arquivoSalvo, {"gh", "zeros", "final", "zerosverdadeiros", "ii2", "ii3", "ii4"}];
Print["Variáveis salvas com sucesso para a próxima sessão!"];

untrusted files path