Home

About

Milis

Blog Roll

Group Facebook

XCode Magazine

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15

Selamat Datang Di Komunitas Yogyafree

Selamat datang di komunitas XCode - Yogyafree - Yogya Family Code. Disini kita saling berbagi ilmu komputer, baik hacking, security, programming, software engineering dan lain sebagainya. Klik disini untuk register

Panel
Welcome! Anonymous

Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

[ Facebook comments]

Berita hacking dan informasi terbaru tentang Yogya Family Code
Forum rules
Berita yang berisi tentang kegiatan, pengumuman, aktivitas komunitas Xcode - Yogyafree. bagi member yang menemukan berita tentang komunitas ini dari sumber lain, silahkan posting disini dan sertakan sumbernya

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby kucingpunk » Mon Mar 22, 2010 3:12 pm

om mau nanya di xcode15 kan ad bonus yg mengenai scrip iseng vbs itu fungsinya buat ap?? trus cara ngembalikinnya gmna??? :putusasa: :putusasa:
kucingpunk
 
Posts: 2
Joined: Thu Mar 11, 2010 7:51 am

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby poni » Mon Mar 22, 2010 8:07 pm

kucingpunk wrote:om mau nanya di xcode15 kan ad bonus yg mengenai scrip iseng vbs itu fungsinya buat ap?? trus cara ngembalikinnya gmna??? :putusasa: :putusasa:


source asli
Code: Select all
Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.exe$" 'ekstensi file yang akan direname
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".SURYAexe") 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub


:) gampang . tinggal di reverse aja. di script .vbs tersebut hanya ubah ekstensi file di drive D:/
jadi pakai code dibawah ini . simpan jadi reverseIsenk.vbs

pakai source ini untuk kembalikan ekstensinya
Code: Select all
Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.SURYAexe$" 'ekstensi file yang akan direname
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".exe) 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub
.::...Cr3ditz......::....
join us : www.xcode.or.id - 001101
"@ b3tt3r d1g1t4l w0rlD" -- 010110000110001001
User avatar
poni
 
Posts: 1666
Joined: Mon Dec 05, 2005 10:44 am
Location: Indonesia

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby phatinjo » Wed Mar 24, 2010 2:06 am

izin sedot bang.... boleh ngga aku share di blog aku.....????? :kaca:
phatinjo
 
Posts: 1
Joined: Wed Mar 24, 2010 1:56 am

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby Adye Ahmad » Wed Mar 24, 2010 10:45 pm

izin sedoott gan,,
sekalian mau tanya, cara hacking game naruto shippuden app on fb bagaimana?
ada Tools nya kah yang sejenis??
ssssSssstttt................................
Image
User avatar
Adye Ahmad
 
Posts: 1
Joined: Wed Mar 12, 2008 12:38 pm
Location: Di_RuMaH

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby boyzzz99 » Thu Mar 25, 2010 2:36 pm

TOLONG DUNK XCODE EZINE #15 NA DI UPLOAD DI IDWS ATO MEDIAFIRE .......
boyzzz99
 
Posts: 1
Joined: Thu Mar 25, 2010 2:09 pm

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby poni » Thu Mar 25, 2010 5:39 pm

@ atas, ada yang salah dengan ziddu???
.::...Cr3ditz......::....
join us : www.xcode.or.id - 001101
"@ b3tt3r d1g1t4l w0rlD" -- 010110000110001001
User avatar
poni
 
Posts: 1666
Joined: Mon Dec 05, 2005 10:44 am
Location: Indonesia

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby shinobu » Fri Mar 26, 2010 9:30 am

terima kasih bapak penganten baruuu :malumalu:
aye udah dunlut :licik:
jangan bosen belajar !
shinobu
 
Posts: 2
Joined: Tue Mar 24, 2009 12:08 pm

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby bleckock » Tue Mar 30, 2010 10:15 pm

izin download ya kakak.. :maaf:
Diatas langit masih ada langit maka dari itu hindari kesombongan dalam melakukan segala sesuatu.
User avatar
bleckock
 
Posts: 65
Joined: Mon Jul 14, 2008 11:56 pm
Location: home/bleckock

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby xephion » Sun Apr 04, 2010 3:04 pm

gk bisa dunlud dari ziddu neh..
baru 1 mb langsung terputus/..

mirror udah di apus tuh..


ada yang mirrorin ulang gk??/
please kk..
xephion
 
Posts: 2
Joined: Wed Apr 01, 2009 3:43 pm

Re: Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

Postby cupuabiz » Mon Apr 05, 2010 4:41 pm

kok ga bisa dibalikin lagi sih kk, dah coba bikin reverseIsenk.vbs. gmn caranyaaa ???? tolong di bls y kk
cupuabiz
 
Posts: 1
Joined: Mon Apr 05, 2010 2:02 pm

leave a comment

PreviousNext

Return to Berita dan Informasi Terbaru

Who is online

Users browsing this forum: No registered users and 28 guests

Web Counter Start : December 14th 2009
Hit Counters

http://www.xcode.or.id