Исходник Pascal obfuscator

[merka1rugg]

Всем привет! Я решил сделать свой обфускатор на паскаль используя XOR шифрование

program CodeObfuscator;

uses
  SysUtils;

function ObfuscateString(const s: string): string;
var // Тут я задаю переменную
  i: integer;
  b: byte;
  c: char;
begin // Задаю начала функции работы
  Result := '';
  for i := 1 to Length(s) do
  begin
    b := Ord(s[i]);
    b := b xor $55; // Простая XOR маскировка
    c := Chr(b);
    Result := Result + c;
  end;
end;

function DeobfuscateString(const s: string): string;
var
  i: integer;
  b: byte;
  c: char;
begin
  Result := '';
  for i := 1 to Length(s) do
  begin
    b := Ord(s[i]);
    b := b xor $55;
    c := Chr(b);
    Result := Result + c;
  end;
end;

procedure ObfuscateFile(const inputFile, outputFile: string);
var
  inFile, outFile: TextFile;
  line: string;
begin
  AssignFile(inFile, inputFile);
  AssignFile(outFile, outputFile);
  Reset(inFile);
  Rewrite(outFile);
 
  while not EOF(inFile) do
  begin
    ReadLn(inFile, line);
    WriteLn(outFile, ObfuscateString(line));
  end;
 
  CloseFile(inFile);
  CloseFile(outFile);
end;

procedure DeobfuscateFile(const inputFile, outputFile: string);
var
  inFile, outFile: TextFile;
  line: string;
begin
  AssignFile(inFile, inputFile);
  AssignFile(outFile, outputFile);
  Reset(inFile);
  Rewrite(outFile);
 
  while not EOF(inFile) do
  begin
    ReadLn(inFile, line);
    WriteLn(outFile, DeobfuscateString(line));
  end;
 
  CloseFile(inFile);
  CloseFile(outFile);
end;

var
  original, obfuscated, restored: string;
begin
  original := 'Hello, World! This is Pascal obfuscator.';
  obfuscated := ObfuscateString(original);
  restored := DeobfuscateString(obfuscated);
 
  Writeln('Original: ', original);
  Writeln('Obfuscated: ', obfuscated);
  Writeln('Restored: ', restored);

  ObfuscateFile('source.pas', 'obfuscated.pas');
  DeobfuscateFile('obfuscated.pas', 'restored.pas');
 
  Writeln('File obfuscation and deobfuscation completed.');
end.

 

[back to back]

норм старт, классика xor как есть. но с фикс. ключом такое, палится на раз.

можешь заморочиться: сделай ключ от позиции, мешай порядок, добавь ещё слоёв дичи.

для учёбы ок если ты только начал, для защиты слабенько. но красава.

 

[merka1rugg]

норм старт, классика xor как есть. но с фикс. ключом такое, палится на раз.

можешь заморочиться: сделай ключ от позиции, мешай порядок, добавь ещё слоёв дичи.

для учёбы ок если ты только начал, для защиты слабенько. но красава.

Спасибо, я начал изучать паскаль буквально неделю назад

Вот решил, попробовать без нейросетей сделать обфускацию

 

[Angelwingsov]

Клёво