JJ · November 28, 2022 07:30 · Nov 28, 2022
diff --git a/parsing-malware-by-terceranexus6.raku b/parsing-malware-by-terceranexus6.raku
@@ -0,0 +1,20 @@
+sub MAIN (Str :$fi = '', Str :$fo = '') {
+    # some genes in the binary
+
+    my token gen1 {'InterfaceSpeedTester9Calc'}
+    my token gen2 {'ScheduledCtrl9UpdateJobERK'}
+    my token gen3 {'ScanHardwareInfoPSt'}
+
+    my regex sparkling2 {
+        [
+           <gen1>|<gen2>|^<gen3>$
+        ]
+     }
+
+    my $c = 1;
+    for "$fo/$fi".IO.lines -> $line {
+        if $line ~~ &sparkling2 {say "Sparkling Goblin complex regex found: "; say $line; say "in line $c"; say "in file $fi"; say " "; }
+
+    $c++;
+  }
+}