CRijndael UD bekommen

cr3dibl3 · 15.06.2013, 18:16

Servus,
Wie ich in meiner Vorstellung schon geschrieben habe beschäftige ich mich grade mit cryptern.
Zum crypten benutze ich CRijandael und bin gehe grade in der source jeder einzelnen detection nach.Nach filesplitting und auskommentieren fand ich folgende Zeilen die von emsisoft und fsecure als: Gen:Trojan.Heur.VP2.cm0@a0GgFzhi erkannt werden.

Private Sub Encrypt(Buff() As Byte)
Dim i    As Long, j As Long, k As Long, m As Long
Dim a(7) As Long, b(7) As Long, x() As Long
Dim y()  As Long, t() As Long
    For i = 0 To m_Nb - 1
        j = i * 4: a(i) = PackFrom(Buff, j): a(i) = a(i) Xor m_fkey(i)
    Next i
'    k = m_Nb:    x = a:    y = b   <--------------
    For i = 1 To m_Nr - 1
        For j = 0 To m_Nb - 1
            m = j * 3
            y(j) = m_fkey(k) Xor m_ftable(x(j) And m_lOnBits(7)) Xor RotateLeft(m_ftable(RShift(x(m_fi(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_ftable(RShift(x(m_fi(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_ftable(RShift(x(m_fi(m + 2)), 24) And m_lOnBits(7)), 24)
            k = k + 1
        Next j
'        t = x:        x = y:        y = t       <----------------------
    Next i
    For j = 0 To m_Nb - 1
        m = j * 3
        y(j) = m_fkey(k) Xor m_fbsub(x(j) And m_lOnBits(7)) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m)), 8) And m_lOnBits(7)), 8) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m + 1)), 16) And m_lOnBits(7)), 16) Xor RotateLeft(m_fbsub(RShift(x(m_fi(m + 2)), 24) And m_lOnBits(7)), 24)
        k = k + 1
    Next j
    For i = 0 To m_Nb - 1
        j = i * 4: UnpackFrom y(i), Buff, j: x(i) = 0: y(i) = 0
    Next i
End Sub

Folgendes habe ich schon getestet

1. Dim*s/sub*s randomized
2. Goto*s
3. trash code

Dim 1 As String
Dim 2 As String
If 1  = 2 & "456" Then
End
End If

letzteres war ca. 8 h ud, dann wieder detected.

ich weiß langsam nicht mehr weiter und hoffe auf ein paar gute tips

»Dr@ke« · 15.06.2013, 20:16

Ist das von alleine detected geworden? :O