rule win_pirpi_auto {

    meta:
        author = "Felix Bilstein - yara-signator at cocacoding dot com"
        date = "2022-11-21"
        version = "1"
        description = "Detects win.pirpi."
        info = "autogenerated rule brought to you by yara-signator"
        tool = "yara-signator v0.6.0"
        signator_config = "callsandjumps;datarefs;binvalue"
        malpedia_reference = "https://malpedia.caad.fkie.fraunhofer.de/details/win.pirpi"
        malpedia_rule_date = "20221118"
        malpedia_hash = "e0702e2e6d1d00da65c8a29a4ebacd0a4c59e1af"
        malpedia_version = "20221125"
        malpedia_license = "CC BY-SA 4.0"
        malpedia_sharing = "TLP:WHITE"

    /* DISCLAIMER
     * The strings used in this rule have been automatically selected from the
     * disassembly of memory dumps and unpacked files, using YARA-Signator.
     * The code and documentation is published here:
     * https://github.com/fxb-cocacoding/yara-signator
     * As Malpedia is used as data source, please note that for a given
     * number of families, only single samples are documented.
     * This likely impacts the degree of generalization these rules will offer.
     * Take the described generation method also into consideration when you
     * apply the rules in your use cases and assign them confidence levels.
     */


    strings:
        $sequence_0 = { 8be8 ff15???????? 33d2 3bea 745d 8b442414 8b4c241c }
            // n = 7, score = 200
            //   8be8                 | mov                 ebp, eax
            //   ff15????????         |                     
            //   33d2                 | xor                 edx, edx
            //   3bea                 | cmp                 ebp, edx
            //   745d                 | je                  0x5f
            //   8b442414             | mov                 eax, dword ptr [esp + 0x14]
            //   8b4c241c             | mov                 ecx, dword ptr [esp + 0x1c]

        $sequence_1 = { f7d1 49 3bf1 72e7 8b4c2410 8b442412 03c1 }
            // n = 7, score = 200
            //   f7d1                 | not                 ecx
            //   49                   | dec                 ecx
            //   3bf1                 | cmp                 esi, ecx
            //   72e7                 | jb                  0xffffffe9
            //   8b4c2410             | mov                 ecx, dword ptr [esp + 0x10]
            //   8b442412             | mov                 eax, dword ptr [esp + 0x12]
            //   03c1                 | add                 eax, ecx

        $sequence_2 = { 8bce c706???????? c7460400000000 e8???????? 8b16 6a01 8bce }
            // n = 7, score = 200
            //   8bce                 | mov                 ecx, esi
            //   c706????????         |                     
            //   c7460400000000       | mov                 dword ptr [esi + 4], 0
            //   e8????????           |                     
            //   8b16                 | mov                 edx, dword ptr [esi]
            //   6a01                 | push                1
            //   8bce                 | mov                 ecx, esi

        $sequence_3 = { 53 56 57 b920000000 33c0 8d7d80 f3ab }
            // n = 7, score = 200
            //   53                   | push                ebx
            //   56                   | push                esi
            //   57                   | push                edi
            //   b920000000           | mov                 ecx, 0x20
            //   33c0                 | xor                 eax, eax
            //   8d7d80               | lea                 edi, [ebp - 0x80]
            //   f3ab                 | rep stosd           dword ptr es:[edi], eax

        $sequence_4 = { 750e 5f 5e 33c0 5b 81c4a4040000 }
            // n = 6, score = 200
            //   750e                 | jne                 0x10
            //   5f                   | pop                 edi
            //   5e                   | pop                 esi
            //   33c0                 | xor                 eax, eax
            //   5b                   | pop                 ebx
            //   81c4a4040000         | add                 esp, 0x4a4

        $sequence_5 = { 8944241c 40 80f908 894304 66897c2422 c644242802 }
            // n = 6, score = 200
            //   8944241c             | mov                 dword ptr [esp + 0x1c], eax
            //   40                   | inc                 eax
            //   80f908               | cmp                 cl, 8
            //   894304               | mov                 dword ptr [ebx + 4], eax
            //   66897c2422           | mov                 word ptr [esp + 0x22], di
            //   c644242802           | mov                 byte ptr [esp + 0x28], 2

        $sequence_6 = { 3beb 7517 ff15???????? 5e }
            // n = 4, score = 200
            //   3beb                 | cmp                 ebp, ebx
            //   7517                 | jne                 0x19
            //   ff15????????         |                     
            //   5e                   | pop                 esi

        $sequence_7 = { b980000000 8d7c2428 f3ab 8d842428020000 8d4c2428 }
            // n = 5, score = 200
            //   b980000000           | mov                 ecx, 0x80
            //   8d7c2428             | lea                 edi, [esp + 0x28]
            //   f3ab                 | rep stosd           dword ptr es:[edi], eax
            //   8d842428020000       | lea                 eax, [esp + 0x228]
            //   8d4c2428             | lea                 ecx, [esp + 0x28]

        $sequence_8 = { e8???????? 8d4c2408 51 6a02 8bce e8???????? 5f }
            // n = 7, score = 200
            //   e8????????           |                     
            //   8d4c2408             | lea                 ecx, [esp + 8]
            //   51                   | push                ecx
            //   6a02                 | push                2
            //   8bce                 | mov                 ecx, esi
            //   e8????????           |                     
            //   5f                   | pop                 edi

        $sequence_9 = { 68cb0b0000 c745fcffffffff e8???????? 83c40c }
            // n = 4, score = 200
            //   68cb0b0000           | push                0xbcb
            //   c745fcffffffff       | mov                 dword ptr [ebp - 4], 0xffffffff
            //   e8????????           |                     
            //   83c40c               | add                 esp, 0xc

    condition:
        7 of them and filesize < 327680
}