www.Hacking-Romania.com
Hacking, gaby hacker team, programe hack, radmin hack, hi5 hack, hack the west, hacking romania, hacking stuff, hacking tools, 1 hack, 1st hacks, 2 hack, 2 hacks, 3 hack, 3 hacks, 3000 hack, 3004 hack, 4 hack, 4 hacks, 55 hack, 6 hack, 6 hacks, 7 hack, 7 hacks, 9 hack, 9dragons hack, a hack, adventure quest hack, aim hack, alz hack, and hacks, best hack, blue hack, bots hack, bots hacks, buy hack, cabal online hack, chaos hacks, cheat engine hack, cheat hack, cheats and hacks, cheats hacks, city hack, club hack, combo hack, conquer hacks, conquer online hack, conquer online hacks, conquer speed hack, conquiztador hack, counter strike 1.6 hack, damage hack, de hack, download hack, download hack for, dragonfable hack, dragonfable hacks, drakkarious hack, exp hack, flyff hack, free hack, free hacks, game hack, game hacks, garena exp hack, gladiatus hack, gm hack, gold hack, gunz hack, hack, hack 5, hack a pc, hack a site, hack a website, hack blog, hack conquer, hack counter strike, hack crack, hack cs, hack cs 1.6, hack dvd, hack email, hack forum, hack hunter, hack id, hack info, hack it, hack mess, hack muonline, hack net, hack password, hack passwords, hack pc, hack pdf, hack programs, hack site, hack sites, hack soft, hack software, hack team, hack the game, hack this, hack website, hack windows xp, hack world, hack xp, hacked, hacking, hacking game, hacking programs, hacking software, hacking tutorials, hacks, how hack, how to hack, icon hack, last chaos hack, last chaos hacks, life hack, lineage 2 hack, lineage 2 hacks, linux hack, lvl hack, maplestory hacks, mobile hack, multi hack 3.0, mybrute hack, naruto arena hack, naruto arena hacks, one hit kill hack, online hacks, perfect world hacks, pool hack, programe hack, resolution hack, resource hack, roll hack, royal hack, silkroad hack, source hack, speed hack, speed hacks, super hack, the west hack, warrock hack, warrock hacks, web hack, xpango hack, lockerz forum 		Lista Forumurilor Pe Tematici
www.Hacking-Romania.com | Reguli | Inregistrare | Login

POZE WWW.HACKING-ROMANIA.COM

Nu sunteti logat. 		Nou pe simpatie:
Lolo
Femeie
25 ani
Galati
cauta Barbat
25 - 52 ani
www.Hacking-Romania.com / Hacking-ul nostru cel de toate zilele / [Tut VB6]Crearea unui cripter  
Autor
Mesaj Pagini: 1
danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447
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.


Tutorial Creat de Hackermad.
Mai multe pe rhtecuci.hot4um.com

Modificat de danuhack (acum 13 ani)

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]
pus acum 13 ani
   
Pagini: 1  

Mergi la