Skip to content

Reply To: age checker cource codes for sale

#189690
Admin
Administrator

@Departure wrote:

Your both full of shit and know syxx is for sure, i am also a fellow planet-source code member and i know for a fact syxx you did’nt code that profile viewer you retard, copy and pasting code does’nt make you a programmer, ohh and your interface sucks dude, go and learn howto use photoshop or something , maybe you could start to learn windows paint first!

and real coding is done with Delphi (intermediate) and C (advanced)
although i have to admit i started with VB also and im not knocking you for using VB as it makes a great starting point and just because im i nice guy here is a VB source code for mIRC keygen …… mmmmmmm love those keygens

Private Sub ShowKey()
Text1.Text = Username
Static Already As Boolean, MyTable(&H26)
If Already = False Then
MyTable(0) = 11: MyTable(1) = 6: MyTable(2) = 17: MyTable(3) = 12
MyTable(4) = 12: MyTable(5) = 14: MyTable(6) = 5: MyTable(7) = 12
MyTable(8) = 16: MyTable(9) = 10: MyTable(10) = 11: MyTable(11) = 6
MyTable(12) = 14: MyTable(13) = 14: MyTable(14) = 4: MyTable(15) = 11
MyTable(16) = 6: MyTable(17) = 14: MyTable(18) = 14: MyTable(19) = 4
MyTable(20) = 11: MyTable(21) = 9: MyTable(22) = 12: MyTable(23) = 11

MyTable(24) = 10: MyTable(25) = 8: MyTable(26) = 10: MyTable(27) = 10
MyTable(28) = 16: MyTable(29) = 8: MyTable(30) = 4: MyTable(31) = 6
MyTable(32) = 10: MyTable(33) = 12: MyTable(34) = 16: MyTable(35) = 8
MyTable(36) = 10: MyTable(37) = 4: MyTable(38) = 16
End If
If Len(Text1.Text) < 4 Then Text2.Text = "": Exit Sub
CL = 0
For C = 4 To Len(Text1.Text)
Valore = Asc(Mid$(Text1.Text, C, 1)) * MyTable(CL)
FirstPart = FirstPart + Valore
CL = CL + 1
If CL > &H26 Then CL = 0
Next
CL = 0: Valore = 0
For C = 4 To Len(Text1.Text)
Valore = Asc(Mid$(Text1.Text, C – 1, 1)) * Asc(Mid$(Text1.Text, C, 1))
SecondPart = SecondPart + Valore * MyTable(CL)
CL = CL + 1
If CL > &H26 Then CL = 0
Next
Text2.Text = LTrim$(Str$(FirstPart)) + “-” + LTrim$(Str$(SecondPart))
End Sub


Private Sub Text1_Change()
ShowKey
End Sub



put 2 text boxes on your form and you in action ….

now you can pretent you know something syxx :O)

YOU HAVE BEEN TOUGHT DUDE!!!!!

ahahahahahah a fucking lame ass mIRC Keygen WTF!?!?!?!? ahahahahaahahahahahhah wow your like a elite programmer cause you madea mIRC keygen LOL………..lets see sence why would anyone care for that yet again you post a useless source code to prove your a dumb shit trying to look cool wow dude your like 4|| 3|_1-|-3 |D|206|24|/||/|3|2 1 ||33d -|-00 |D|-|33|2 y0|_| D|_|d3 11111111111