03-06-2011, 12:01 AM
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]](http://ploader.net/files/20bb6cdb23a9c0d7c96dca985c855e4e.bmp)
Thanks to pr0t0typ3 for the random key function.
Example :
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 :
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()