Jump to content

Raven

Active Members
  • Posts

    394
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Raven

  1. Raven

    Felicitari

    cateva incercari si am reusit )
  2. mega mega mega idiot
  3. bun venit
  4. l-ai incercat? de aia nu merge linkul?
  5. Radio21
  6. interesant sa vedem daca se va putea afisa .
  7. Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 'Autor : Raven 'Contact : raven_200155@yahoo.com Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim md5 As String If CheckBox1.Checked = True Then md5 = getMD5Hash(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox2.Checked = True Then md5 = StringToHex(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox3.Checked = True Then md5 = Encode(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox4.Checked = True Then md5 = StrEncrypt(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox5.Checked = True Then md5 = MessageReversal(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox6.Checked = True Then md5 = getSHA1Hash(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox7.Checked = True Then md5 = ConvertToBinary(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox8.Checked = True Then md5 = rot13(TextBox1.Text) TextBox2.Text = (md5) lblstatus.Text = "Done!" End If If CheckBox9.Checked = True Then md5 = TextBox1.Text md5 = XOREncryption(md5, TextBox1.Text) TextBox2.Text = md5 lblstatus.Text = "Done!" End If If CheckBox10.Checked = True Then TextBox2.Text = TextBox1.Text End If End Sub Function getMD5Hash(ByVal strToHash As String) As String Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) bytesToHash = md5Obj.ComputeHash(bytesToHash) Dim strResult As String = "" For Each b As Byte In bytesToHash strResult += b.ToString("x2") Next Return strResult End Function Public Function StringToHex(ByVal str As String) As String Dim ret As String For i As Integer = 0 To str.Length - 1 ret &= Asc(str.Substring(i, 1)).ToString("x").ToUpper & " " Next Return ret.Trim() End Function Function Encode(ByVal dec As String) As String Dim bt() As Byte ReDim bt(dec.Length) bt = System.Text.Encoding.ASCII.GetBytes(dec) Dim enc As String enc = System.Convert.ToBase64String(bt) Return enc End Function Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Function StrEncrypt(ByVal EnStr As String) As String Dim Key As String Key = "Abt$9>3ZyX 21~)**1_0d%1xOp0#?s!14k-L7`3s9cxPo1ilIj=-0DnmOpas#$%5854/*?>00021atanu???" Dim p1 As Integer Randomize() p1 = (Rnd() * 8) + 1 Dim p2 As Integer p2 = Len(EnStr) Dim RandSeed As Integer RandSeed = p1 Dim i As Integer Dim s1 As String = "" Dim ft As String ft = "" For i = 1 To 50 s1 = s1 & Chr(Asc(Rnd() * 255)) Next ft = Chr(p1) & Chr(p2) Dim iXor As Integer For i = 1 To Len(EnStr) iXor = Asc(Mid(Key, i + p1, 1)) Xor Asc(Mid(EnStr, i, 1)) ft = ft & Chr(iXor) Next For i = Len(ft) To 50 ft = ft & Chr(Rnd() * 255) Next StrEncrypt = ft End Function Function MessageReversal(ByVal StrDataIn As String) Dim StrOut As String StrOut = "" Dim I As Integer For I = Len(StrDataIn) To 1 Step -1 StrOut &= Mid(StrDataIn, I, 1) Next MessageReversal = StrOut End Function Function getSHA1Hash(ByVal strToHash As String) As String Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) bytesToHash = sha1Obj.ComputeHash(bytesToHash) Dim strResult As String = "" For Each b As Byte In bytesToHash strResult += b.ToString("x2") Next Return strResult End Function Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click AboutBox1.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As String If CheckBox15.Checked = True Then a = HexToString(TextBox2.Text) TextBox1.Text = a ElseIf CheckBox13.Checked = True Then a = Decode(TextBox2.Text) TextBox1.Text = a ElseIf CheckBox14.Checked = True Then a = ConvertToAscii(TextBox2.Text) TextBox1.Text = a ElseIf CheckBox12.Checked = True Then TextBox1.Text = TextBox2.Text End If End Sub Public Function ConvertToBinary(ByVal str As String) As String Dim converted As New StringBuilder For Each b As Byte In ASCIIEncoding.ASCII.GetBytes(str) converted.Append(Convert.ToString(b, 2).PadLeft(8, "0")) Next Return converted.ToString() End Function Function rot13(ByVal rot13text) Dim k, j, rot13text_rotated As String rot13text_rotated = "" For i = 1 To Len(rot13text) j = Mid(rot13text, i, 1) k = Asc(j) If k >= 97 And k <= 109 Then k = k + 13 ElseIf k >= 110 And k <= 122 Then k = k - 13 ElseIf k >= 65 And k <= 77 Then k = k + 13 ElseIf k >= 78 And k <= 90 Then k = k - 13 End If rot13text_rotated = rot13text_rotated & Chr(k) Next rot13 = rot13text_rotated End Function Public Function XOREncryption(ByVal CodeKey As String, ByVal DataIn As String) As String Dim lonDataPtr As Long Dim strDataOut As String Dim temp As Integer Dim tempstring As String Dim intXOrValue1 As Integer Dim intXOrValue2 As Integer For lonDataPtr = 1 To Len(DataIn) intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1)) intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1)) temp = (intXOrValue1 Xor intXOrValue2) tempstring = Hex(temp) If Len(tempstring) = 1 Then tempstring = "0" & tempstring strDataOut = strDataOut + tempstring Next lonDataPtr XOREncryption = strDataOut End Function Function Decode(ByVal enc As String) As String Dim bt() As Byte bt = System.Convert.FromBase64String(enc) Dim dec As String dec = System.Text.Encoding.ASCII.GetString(bt) Return dec End Function Public Function HexToString(ByVal HexToStr As String) As String Dim strTemp As String Dim strReturn As String Dim I As Long For I = 1 To Len(HexToStr) Step 3 strTemp = Chr(Val("&H" & Mid(HexToStr, I, 2))) strReturn = strReturn & strTemp Next I HexToString = strReturn End Function Public Function ConvertToAscii(ByVal str As String) As String Dim chars As String = Regex.Replace(str, "[^01]", "") Dim arr((chars.Length / 8) - 1) As Byte For i As Integer = 0 To arr.Length - 1 arr(i) = Convert.ToByte(chars.Substring(i * 8, 8), 2) Next Return ASCIIEncoding.ASCII.GetString(arr) End Function Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.SaveFileDialog1.ShowDialog() Me.TextBox3.Text = Me.SaveFileDialog1.FileName End Sub Function EncodeByte(ByVal bt() As Byte) As String Dim enc As String enc = System.Convert.ToBase64String(bt) Return enc End Function Function DecodeToByte(ByVal enc As String) As Byte() Dim bt() As Byte bt = System.Convert.FromBase64String(enc) Return bt End Function Sub DecodeFile(ByVal srcFile As String, ByVal destFile As String) Dim src As String Dim sr As New IO.StreamReader(srcFile) src = sr.ReadToEnd sr.Close() Dim bt64 As Byte() = DecodeToByte(src) If IO.File.Exists(destFile) Then IO.File.Delete(destFile) End If Dim sw As New IO.FileStream(destFile, IO.FileMode.CreateNew) sw.Write(bt64, 0, bt64.Length) sw.Close() End Sub Sub EncodeFile(ByVal srcFile As String, ByVal destfile As String) Dim srcBT As Byte() Dim dest As String Dim sr As New IO.FileStream(srcFile, IO.FileMode.Open) ReDim srcBT(sr.Length) sr.Read(srcBT, 0, sr.Length) sr.Close() dest = EncodeByte(srcBT) If IO.File.Exists(destfile) Then IO.File.Delete(destfile) End If Dim sw As New IO.StreamWriter(destfile, False) sw.Write(dest) sw.Close() End Sub Private Sub butDecode2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butDecode2.Click Try If Me.TextBox3.Text = Nothing Or Me.TextBox4.Text = Nothing Then MsgBox("Please select source and destination files!") Exit Sub End If Me.DecodeFile(Me.TextBox4.Text, Me.TextBox3.Text) MsgBox("Conversion complete!") Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub butEndcode2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butEndcode2.Click Try If Me.TextBox3.Text = Nothing Or Me.TextBox4.Text = Nothing Then MsgBox("Please select source and destination files!") Exit Sub End If Me.EncodeFile(Me.TextBox3.Text, Me.TextBox4.Text) MsgBox("Conversion complete!") Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.SaveFileDialog1.ShowDialog() Me.TextBox4.Text = Me.SaveFileDialog1.FileName End Sub End Class Screenshot aici: http://i40.tinypic.com/2prsd1u.jpg Download: .exe http://rapidshare.com/files/201615784/Encryption_Center.rar.html Pastebin :http://pastebin.com/m5e6c431d Language : VB.NET Autor : Eu Bafta
  8. )))))))))))))))) mare e gradina ta doamne.
  9. Raven

    un hack

    ))))))))))))))))))))) esti 1337 man !
  10. )
  11. thanks man xD
  12. Imports System.Text.RegularExpressions Public Class Form1 ' ********* ' Autor : Raven ' Contact: raven_200155@yahoo.com ' ********* Dim response, c, d, response2, response3, response4, response5, response6, response7 As String Dim objHTTP Dim url As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ToolStripStatusLabel1.Text = "Cracked Is Started!" url = "http://www.tydal.nu/php/sakerhet/md5.php?q=" + TextBox1.Text objHTTP = CreateObject("Microsoft.XMLHTTP") objHTTP.open("POST", url, False) objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") Button1.Enabled = False Button1.Text = "Stop Crack!" ToolStripStatusLabel1.Text = "Cracked Is Stoped!" Button1.Enabled = True Button1.Text = "Start Crack!" ToolStripStatusLabel1.Text = "Welcome! to Md5 Online Cracker" objHTTP.send() response = (objHTTP.responseText) Call tydal1() Call gdata() Call md5decrypter() Call domain() Call md5live() Call hashcracking() Call milw0rm() End Sub Private Sub tydal() If response = "MD5-sträng!" Then ListBox2.Items.Add("www.tydal.nu: NotFound") ElseIf response = "träff." Then ListBox2.Items.Add("www.tydal.nu: NotFound") ElseIf c = "" Then ListBox2.Items.Add("www.tydal.nu: " + response) End If End Sub Private Sub tydal1() Dim a As String Dim rx As New Regex("(.*(?<=</b>))") Dim testStr As String testStr = response a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "<b>", "") tempStr = Replace(tempStr, "</b>", "") If Len(tempStr) > 0 Then response = tempStr End If Next Call tydal() End Sub Private Sub gdata() Dim http url = "http://gdataonline.com/qkhash.php?mode=txt&hash=" + TextBox1.Text http = CreateObject("Microsoft.XMLHTTP") http.open("GET", url, False) http.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") http.send() response2 = (http.responseText) Call gdata1() Call g() End Sub Private Sub gdata1() Dim a As String Dim rx As New Regex("((?<=<td width=\""35%\"">)(.*)(?<=</td>))") Dim testStr As String testStr = response2 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "</td>", "") tempStr = Replace(tempStr, "</b>", "") tempStr = Replace(tempStr, "<b>", "") If Len(tempStr) > 0 Then response2 = tempStr End If Next End Sub Public Sub g() If response2 = "????" Then ListBox2.Items.Add("www.gdataonline.com: NotFound") ElseIf response2 = "Hash not valid." Then ListBox2.Items.Add("www.gdataonline.com: Not Found") ElseIf c = "" Then ListBox2.Items.Add("www.gdataonline.com: " + response2) End If End Sub Private Sub md5decrypter() Dim url As String = "http://www.md5decrypter.com/" Dim http_request = CreateObject("Microsoft.XmlHttp") http_request.open("POST", url, False) http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded") http_request.setRequestHeader("Connection", "close") http_request.send("hash=" + TextBox1.Text) response3 = (http_request.ResponseText) Call md52() End Sub Private Sub md52() Dim a As String Dim rx As New Regex("((?<=<b class=.+>)(.*)(?<=</b>)(.*))") Dim testStr As String testStr = response3 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "</td>", "") tempStr = Replace(tempStr, "</b>", "") tempStr = Replace(tempStr, "Normal", "") tempStr = Replace(tempStr, "Text:", "") If Len(tempStr) > 0 Then response3 = (tempStr) End If Next Call e() End Sub Public Sub e() If response3 = "database" Then ListBox2.Items.Add("www.md5decryption.com: NotFound") ElseIf response3 = "our" Then ListBox2.Items.Add("www.md5decryption.com: NotFound") ElseIf c = "" Then ListBox2.Items.Add("www.md5decryption.com: " + response3) End If End Sub Private Sub domain() Dim url As String = "http://md5.ip-domain.com.cn/index.htm" Dim http_request = CreateObject("Microsoft.XmlHttp") http_request.open("POST", url, False) http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded") http_request.setRequestHeader("Connection", "close") http_request.send("text=" + TextBox1.Text) response4 = (http_request.ResponseText) Call domain3() End Sub Private Sub domain3() Dim a As String Dim rx As New Regex("((?<=<font color=red>)(.*)(?<=</font>))") Dim testStr As String testStr = response4 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "</font>", "") tempStr = Replace(tempStr, " ", "") If Len(tempStr) > 0 Then response4 = (tempStr) End If Next Call f() End Sub Private Sub f() If response4 = "MD5" Then ListBox2.Items.Add("www.md5.ip-domain.com.cn: NotFound") ElseIf response4 = "Lookup" Then ListBox2.Items.Add("www.md5.ip-domain.com.cn: NotFound") ElseIf c = "" Then ListBox2.Items.Add("www.md5.ip-domain.com.cn: " + response4) End If End Sub Private Sub md5live() Dim url As String = "http://md5live.com/index.php?format=md5&search=" + TextBox1.Text Dim http_request = CreateObject("Microsoft.XmlHttp") http_request.open("GET", url, False) http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded") http_request.setRequestHeader("Connection", "close") http_request.send() response5 = (http_request.ResponseText) Call md5live4() End Sub Private Sub md5live4() Dim b As String Dim a As String Dim rx As New Regex("((.+)(<br \/>))") Dim testStr As String testStr = response5 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "<br", "") tempStr = Replace(tempStr, "/>", "") If Len(tempStr) > 0 Then response5 = (tempStr) End If Next Call l() End Sub Private Sub l() If response5 = "found!" Then ListBox2.Items.Add("www.md5live.com: NotFound") ElseIf c = "" Then ListBox2.Items.Add("www.md5live.com: " + response5) End If End Sub Private Sub hashcracking() Dim url As String = "http://md5.hashcracking.com/search.php?md5=" + TextBox1.Text Dim http_request = CreateObject("Microsoft.XmlHttp") http_request.open("GET", url, False) http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded") http_request.setRequestHeader("Connection", "close") http_request.send() response6 = (http_request.ResponseText) Call hash6() End Sub Private Sub hash6() Dim b As String Dim a As String Dim rx As New Regex("((.*))") Dim testStr As String testStr = response6 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "Cleartext of", "") tempStr = Replace(tempStr, "/>", "") If Len(tempStr) > 0 Then response6 = (tempStr) End If Next Call j() End Sub Private Sub m() If response6 = "returned." Then ListBox2.Items.Add("www.md5.hashcracking.com: NotFound") ElseIf c = "" Then ListBox2.Items.Add("www.md5.hashcracking.com: " + response6) End If End Sub Private Sub milw0rm() Dim url As String = "http://milw0rm.com/cracker/search.php" Dim http_request = CreateObject("Microsoft.XmlHttp") http_request.open("POST", url, False) http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded") http_request.setRequestHeader("Connection", "close") http_request.send("hash=" + TextBox1.Text) response7 = (http_request.ResponseText) Call milw0rm5() End Sub Private Sub milw0rm5() Dim a As String Dim rx As New Regex("(</TD><TD align=\""middle\"" nowrap=\""nowrap\"" width=90>(.*)<\/TD><TD align=\""middle\"" nowrap=\""nowrap\"" width=90>cracked<\/TD><\/TR>)") Dim testStr As String testStr = response7 a = (rx.Match(testStr).Value) Dim s As String s = a Dim words() As String words = Split(s) Dim tempStr As String For i = 0 To UBound(words) tempStr = Replace(words(i), "</TD><TD", "") tempStr = Replace(tempStr, "width=90>", "") tempStr = Replace(tempStr, "align=""middle""", "") tempStr = Replace(tempStr, "nowrap=""nowrap""", "") tempStr = Replace(tempStr, "cracked</TD></TR>", "") If Len(tempStr) > 0 Then response7 = (tempStr) End If Next Call j() End Sub Private Sub j() If c = "" Then ListBox2.Items.Add("www.milw0rm.com: " + response7) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form2.Show() End Sub End Class HaveFun!
  13. CopyFile(Application.exename,ExtractFilePath(,false);
  14. Raven

    Desktoape

  15. Raven

    Gay Test

    Download : http://rapidshare.com/files/197928919/GayTest12.exe.html :D:D
  16. Super tare Nemessis te-au pomenit astia
  17. Asa ii .... Download : http://www.2shared.com/file/4854537/c7f485f5/X_and_Zer0.html
  18. Nytro punel la punct pe negreala ca face offtopic din orice la orice da reply.
  19. Raven

    Acuzare

    Man nu speria copilu' asa Fi serios man nu iti face nimic stai linistit . Stai relax.
  20. Raven

    salutare

    bun venit gogule.
  21. Exact... nu stiu ce e asa de greu + ca toti acum stiu sqli cu toolurile astea....
  22. La multi ani.
  23. benny material didactic
  24. unkn0wn ii doar o adunatura de ratati.
  25. Raven

    Iarba...

    Nu am incercat asa ceva nici nu o sa incerc in viata mea.
×
×
  • Create New...