Thread Rating:
  • 1 Vote(s) - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] Fake Api Generator [SOURCE]
#1
I made a little applicatio in vb.net to generate fake api's.

Is really simple, but usefull.

You need to import system.text, make 2 textbox and 1 button.

(Textbox1.text = Generated Api's)
(Textbox2.text = How much api's)
(Button1 = Generate Api's)

This is the source code :

[Image: 20bb6cdb23a9c0d7c96dca985c855e4e.bmp]

Code:
apicoder.Append(vbNewLine + "Declare Unicode Function " & random_key(generator) & " Lib """ & random_key(generator) & ".dll" & """ (ByVal " & random_key(generator) & " As String,ByVal " & random_key(generator) & " As String(),ByVal " & random_key(generator) & " As char) As Byte()")

Thanks to pr0t0typ3 for the random key function.

Example :

Code:
Declare Unicode Function plZtlcp Lib "AhhTGiE.dll" (ByVal QfNePTt As String,ByVal igbrpMh As String(),ByVal FMHSVmG As char) As Byte()
Declare Unicode Function IRdVBPi Lib "DUQFmtu.dll" (ByVal szldlOc As String,ByVal bqtvoNd As String(),ByVal TFnpLnr As char) As Byte()
Declare Unicode Function FPlzmVA Lib "TSuetgm.dll" (ByVal LmvqHFd As String,ByVal zUOLUoC As String(),ByVal VMTsoQR As char) As Byte()
Declare Unicode Function ASZhUCL Lib "MIOnsBf.dll" (ByVal rqGLNEe As String,ByVal smUDFcD As String(),ByVal HURBOoo As char) As Byte()
Declare Unicode Function OVlMgLi Lib "CcCNGZH.dll" (ByVal fObfcnE As String,ByVal RbdmIEh As String(),ByVal iPUpvnR As char) As Byte()
Declare Unicode Function NOMQDIQ Lib "hHGVNPH.dll" (ByVal gIonSHe As String,ByVal SLZiQQE As String(),ByVal EfoBdvc As char) As Byte()
Declare Unicode Function AReRPIc Lib "ZufqurD.dll" (ByVal TTqsCbG As String,ByVal lAgnFND As String(),ByVal iefdhSM As char) As Byte()
Declare Unicode Function SzZIbeg Lib "VvbEplZ.dll" (ByVal tlcpAhh As String,ByVal TGiEQfN As String(),ByVal ePTtigb As char) As Byte()
Declare Unicode Function rpMhFMH Lib "SVmGIRd.dll" (ByVal VBPiDUQ As String,ByVal Fmtuszl As String(),ByVal dlOcbqt As char) As Byte()
Declare Unicode Function voNdTFn Lib "pLnrFPl.dll" (ByVal zmVATSu As String,ByVal etgmLmv As String(),ByVal qHFdzUO As char) As Byte()
Reply
#2
Nice work xCocaine!
Glad to see the coding section coming alive once again.
Reply
#3
thanks xCocaine
Reply
#4
Thanks for the share bro. Good work.
Reply
#5
Another thing that is very useful from you.
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  Free Advanced Port Scanner SOURCE [ VB.NET ] Filefinder 6 5,739 01-22-2013, 04:27 AM
Last Post: TalishHF
  [VB.NET]Console app Menu example (amortization calculator)[Source] KoBE 8 8,162 12-28-2012, 06:55 AM
Last Post: mouse719
  [VB.NET] Get Region Info [Source] ƃu∀ ıʞƃu∀ 0 1,251 11-28-2012, 04:38 AM
Last Post: ƃu∀ ıʞƃu∀
  How To Make And Use A Builder And Stub. [VB.NET] [Source] Vorfin 35 23,191 11-25-2012, 10:34 PM
Last Post: ƃu∀ ıʞƃu∀
  [Source] Tricks Using PictureBox Control [VB.NET] Fragma 8 6,490 11-25-2012, 10:32 PM
Last Post: ƃu∀ ıʞƃu∀

Forum Jump:


Users browsing this thread: 2 Guest(s)